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is provided both for a browser or stand-alone 
application. The entire method provides means by 
which users can establish, use, and maintain files 
on the internet in a manner remote from their local 
computers yet in a manner that is similar to the file 
manipulation used on their local computers. A high 
capacity or other storage system is attached to the 
internet via an optional internet network that also 
serves to generate and direct metadata regarding 
the stored files. A web server (140) using a CGI, 
Java-based, or other interlace transmits and retrieves 
TCP/IP packets or other internet information 
through a load balancer/firewall (110) by using 
XML to wrap the data packets. File instructions 
may be transmitted over the Internet to the Shared 
Resource System. The user's account may be 
password protected so that only the user may access 
his or her files. On the user's side, a stand-alone 
client application (142) or JavaScript object 
interpreted through a browser provide two means 
by which the XML or other markup language data 
stream may be received and put to use by the user. 
Internet-to-internet file transfer may be effected by 
directly downloading to the user's account space. 
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WO 01/33381 PCT/USOO/30536 

SHARED INTERNET STORAGE RESOURCE, USER 
INTERFACE SYSTEM, AND METHOD 

TECHNICAL FIELD 

This invention relates to resources on computer networks, particularly the Internet, and more particularly to a file 
storage and retrieval system that is available worldwide via the Internet which additionally allows a direct transfer of 
Internet files to an Internet storage/retrieval, and sharing resource. The present invention acts in the manner of a 
"Internet hard disk" or "Internet hard drive" to provide online storage and retrieval resources for users. 

BACKGROUND ART 



The Internet is the worldwide computer network making available a vast number of computer and information 
resources to institutions and individuals. A significant part of the Internet is|the worldwide web that allows for web 
pages to be written in HTML and transmitted upon demand throughout the Internet. Recent developments have better 
established the use of XML (Extensible Markup Language) as a subset of SGML (Standard Generalized Markup 
Language, ISO standard 8879:1986). FTP (File Transfer Protocol) provides means by which files may be transferred 
over the Internet. All of these protocols are generally well known in the art, and collateral resources can easily be 
obtained to describe these further. 

Patents relevant to the present invention include U.S. Patent No. 5,771,354 issued to Christopher Crawford on 
June 23, 1 998 for an Internet Online Backup System, and U.S. Patent No. 5,90 1 ,228 issued to Christopher Crawford on 
May 4, 1999 for a Commercial Online Backup Service. 

Additionally, portable programming systems such as Java®, JavaBeans, and JavaScript have been extensively 
developed with an anticipation of future portability across the vast network that is the Internet. Java<E>-related systems 
allow for object-oriented programming whereby objects or "beans" allow the passing of self-contained modules with 
associated processing methods that are used to act upon the accompanying data. Consequently, the "bean" can travel 
through a network and, under appropriate circumstances, have certain processes activated allowing manipulation of the 
information contained in the bean. 

Advancements in Java<g>-related systems have given rise to the Enterprise JavaBean™ (EJB). The Enterprise 
JavaBean™ allows for clustering of servers such that the bean is given independence from specific servers on the 
system, yet can be activated or "instantiated" such that error recovery is easier, the system as a whole is more robust, and 
processing of the bean can be performed asynchronously so that all events do not have to happen at a pre-set time or 
serially/one after the other. 

Enterprise JavaBeans™/EJBs allow serialization of beans. Such serialization allows the bean to be represented as 
a data stream of determined length. In essence, this is just a data file that is interpreted in the proper context, much the 
same as any electronic information file. Such serialization of the EJB allows it to be replicated and stored in case of 
catastrophic failure of a preferred server or the like. 

If the server upon which the instantiated EJB dies, goes down, or fails, a previously replicated twin can be used to 
continue the process and allow for error recovery. More information about Enterprise JavaBeans™ technology can be 
found in the white paper, "Enterprise JavaBeans™ Technology: Server Component Model for the Java™ Platform" by 
Anne Thomas, revised December 1998, prepared for Sun Microsystems, Inc. and published/made available by the 
Patricia Seybold Group of Boston, Massachusetts. 

Due to the nature of new technologies, terms such as "bean" or "instantiated" may seem unfamiliar to those new 
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to the pertinent art. Reasons for this include the difficulty of communicating quickly new and complex subjects as well 
as the good-humored nature of those who intensely pursue the establishment of new technology, particularly software 
systems. Consequently, for Java<E»-related systems, a coffee theme is often present that indicates to those knowledgeable 
in the art the general subject matter of interest. While distinctions may be subtle in the art, they can be very important 
and serve the ends of those attempting to establish, share, and forward the technology. 

Generally, home pages or other web pages are requested by the user through designation of the URL (Uniform 
Resource Locator). With the transmission to the user via TCP/IP protocol, the information present at the URL (and 
generally a file located somewhere on a computer) is transmitted to the user. The file may have links, or pointers, to 
other resources including images, graphics, audio or video streams, or other resources. Mark-up language is used on the 
Internet in an attempt to provide an open-ended structure by which information of any sort that can be stored 
electronically (or perhaps even otherwise) can be made available to an end user on demand. As such, the Internet is seen 
as a powerful tool making almost any information resource available to any computer or to any person using a computer. 

Over the past several years, the personal computer has increased in power and capacity as commercial demand 
has driven the research and development of producers and vendors. It is now not uncommon to be able to easily find an 
Intel-manufactured 500 megahertz Pentium<§>-based system having well over 1 0 gigabytes of hard disk space, as well as 
32 - 256 megabytes of RAM. As such, the power by which files may be received and acted upon by the local user 
through his or her PC has kept pace with the advances in technology. 

However, there currently remain obstacles to universal access to an individual's own information stored on his or 
her computer. First of all, computers are very heavy. They are bulky. They generally weigh several kilograms and are 
not easily transportable. Lightweight laptop computers or the like generally do not have the same resources available to 
the user as a regular PC. Additionally, access to local area networks (LANs) is generally not available once the 
computer leaves the premises occupied by the LAN. Additionally, Internet access is often restricted by the use of a 
modem. Modems generally provide data transmission speeds on the order of 56 kilobits per second. This is 
approximately the same as 7 kilobytes per second. However, headers and other information are required to properly 
transmit information over the Internet and increase the effective size of files. 

Even with the increased availability of broad band access to the Internet, it becomes an important feature of 
electronic information processing and the like in order to provide resident resources on the Internet. Such resources 
could include the sharing of files and the like in a manner that are easy to use and understand. 

Due to these and other restrictions regarding data transport, transmission, and reception, a need has arisen for 
means by which files and other data may be available worldwide through the Internet and not tied to a local computer. 
The present invention addresses this demand by providing means by which files and other data may be stored on the 
Internet and made available worldwide through the Internet. 

DISCLOSURE OF INVENTION 

The present invention provides an "Internet hard drive" or "Internet hard disk" to and from which files may be 
stored and retrieved. Denominated commercially as "X- Drive," the present invention allows users to store files of 
foreseeably any type on a resource available throughout the Internet. Once available to the Internet, the files stored on 
the user's X: Drive are available to the same extent as the Internet, namely worldwide. 

Note should be made that the term "XrDrive" refers both to the system as a whole and to the individual space 
allocated to an individual user. Consequently, reference is sometimes made herein to the X:Drive system or to X: Drive 
to refer to the system as a whole. At other times, the term X:Drive indicates the user's individual X:Drive, or allocated 
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space. The different uses are indicated by context. 

In order to effect the Shared Internet Storage Resource of the present invention, a centra! or distributed storage 
facility is provided. First and foremost is the high-speed access storage facility where flies are actually stored. Such 
individual storage areas may be allocated in individual limited allotments, or be left open-ended and limited only by the 
capacity of the physical devices responsible for storage. Metadata, that is data about the files stored on the network hard 
drives or other storage devices, is generated and stored in a separate database. The database of metadata (the 
metadatabase) and the network-attached storage facility may be linked by an internal network. It is possible for the 
database to be stored on the same network storage facility or device on which user files are also stored. System 
management may select whether or not to distribute or consolidate the database with the network storage. 

Also attached to the internal network is a web server that serves to generate and transmit the information to the 
Internet, and ultimately the user. The web server files may pass through a load balancer and/or firewall before 
proceeding on to the Internet. The same is similarly true for information coming into the web server from the Internet. 

XML may be used in combination with JavaScript or the like to provide two means by which the Shared Internet 
Storage Resource of the present invention may be achieved. The first is a JavaScript object which may be transmitted to 
a browser program running on the user's computer. Such browsers may include ones that are well known, including 
Netscape® Communicator and Microsoft® Internet Explorer. Alternatively, a stand-alone application may be installed 
and stored upon the user's computer. This stand-alone application serves to intermediate the user commands with the 
web server and ultimately the metadatabase in the Internet storage device. 

As an additional enhancement, the user interface may be a client program that meshes seamlessly with standard 
user presentations in WYSIWYG (what you see is what you get) graphic user interfaces (GUIs). As such, a drive may 
be shown on the user's computer and may be denominated "x:" (or "y:" or "z:'\ etc., depending upon user preferences). 
The user can then read from or write to the x:\ Shared Internet Storage Resource drive much in the same way as you 
would the local a:\ and c:\ hard drive. 

When the user shuts down his or her computer, information that is stored on the Shared Internet Storage Resource 
of the present invention remains on the Internet. The user can then access such information from another computer, 
another geographic location, or even give permission to share files on the Shared Internet Storage Resource with others. 
Password protection or other security protocols may be used to limit or discriminate access to the user's files. 

The Shared Internet Storage Resource of the present invention allows for direct Internet-to-internet file transfer to 
a user's allocated XrDrive file space in a process referred to as "Skip the Download" or "Save to My Xdrive." 

BRIEF DESCRIPTION OF DRAWINGS 

Figure 1 is a schematic view of the XrDrive system of the present invention. The different tier levels are shown, 
along with the marking indicia of a circle, triangle, square, and star/asterisk corresponding to the same indicia in Figure 
3. 

Figure 2 is a schematic view of Java® library objects operating in the transactions or data exchanges occurring in 
the present invention. 

Figure 3 is a detailed flow diagram showing the operation of the present invention. Indicia including a circle, a 
triangle, a square, and a star/asterisk correspond to tier levels shown in Figure 1 and indicate the level of operation of the 
steps shown in the flowchart of Figure 3. 

Figure 4 is a flowchart showing the operation of the XDFile Enterprise JavaBean™ (EJB) used in the present 
invention. 
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Figure 5 is an overview of the Java® architecture used to effect transactions in the present invention. 
Figure 6 is an alternative schematic diagram of the Java® architecture shown in Figure 5. 
Figure 7 is a schematic and flowchart diagram showing the IO (input/output) for the database transactions of the 
present invention. 

Figure 8 is a schematic diagram of the data recovery process as effected by the FilelO component of the XDFile 
object used in the present invention. 

Figure 9 is a schematic depiction of failure recovery elements. 

Figure 10 is a schematic and flowchart diagram showing virus protection effected in the present invention. 
Figure 1 1 is a schematic and flowchart diagram of the Internet-to-resource transfer ("Skip the Download"/"Save 
to My Xdrive") as set forth in the present invention. 

Figure 12 is a schematic and flowchart diagram of the client system used in the present invention. 
Figure 13 is a Windows™ desktop display showing both the client and web-browser applications. 
Figure 14 is a display of a web browser pointing to a user's X:Drive. 

BRIEF DESCRIPTION OF APPENDICES 

Appendix 1 is a listing of web site/server code use to achieve the present invention. 

Appendix 2 is a listing of the code used on the client side to achieve the present invention in a Microsoft® 
Windows™ environment. 

Appendix 3 is a listing of the JavaScript code used to achieve the present invention in a Sun Microsystems® 
Java® environment (including one on a browser). 

M ODE(S) FOR CARRYING OUT THE INVENTI ON 

The detailed description set forth below in connection with the appended drawings is intended as a description of 
presently-preferred embodiments of the invention and is not intended to represent the only forms in which the present 
invention may be constructed and/or utilized. The description sets forth the functions and the sequence of steps for 
constructing arid operating the invention in connection with the illustrated embodiments. However, it is to be understood 
that the same or equivalent functions and sequences may be accomplished by different embodiments that are also 
intended to be encompassed within the spirit and scope of the invention. 

Appendices 1 , 2, and 3 provide the source code for, respectively, the Web Site/Server Code of the XrDrive Shared 
Internet Storage Resource system of the present invention; the Windows Client Code; and the JavaScript Listings for the 
present invention. These Appendices are incorporated herein by this reference thereto as if set out in their entirety. It is 
contemplated that these Appendices provide a full, complete, and enabling disclosure to those of ordinary skill in the art 
or less by which the present invention may be achieved. 

Additionally, the reference numbers used in conjunction with the figures are numbered such that the 1 00's place 
of the number indicates the number of the drawing figure. For example, the 600 series of reference numbers refers to 
Figure 6, while the 200 series refers to elements shown in Figure 2. 

The present invention provides a method by which an Internet hard disk or hard drive may be achieved in a 
manner similar to a hard disk or hard drive available locally to the individual on the local computer. Additionally, as 
Internet use becomes a more familiar and everyday event for people, the resources provided by the present invention 
may allow the actual use of the Internet hard drive or X:Drive set forth herein to act as such a resource with,the files 
being called up for execution for programs available and processed either locally and/or over the Internet. In light of the 
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foregoing, it can be seen that the present invention may act as a bridge or may pave the way towards a more inter- 
networked community for the use and processing of electronic information. 

The virtual disk drive provided by the present invention may be selectively shared with others or kept entirely 
private. Additionally, and as set forth in more detail below, the use of a metadatabase provides quicker access and the 
ability to distribute the information regarding the legion of X:Drive accounts over a wide geographic area, enabling 
redundant preservation of user information by server clusters implementing Enterprise JavaBeans® (EJBs), or otherwise. 

The Shared Internet Storage Resource, User Interface System, and Method set forth herein is generally referred to 
as "XrDrive." Context reveals whether or not the term XrDrive is referring either to the system as a whole or the 
individual's own account. 

The XrDrive system of the present invention uses network application practices and may rely upon Java® 
Enterprise JavaBeans™ (EJBs) to enable distributed and clustered computing and file management environment. Along 
with such Java®-based and network-oriented design, the XrDrive system of the present invention also contemplates the 
use of open programming standards such as XML and Web-DA V (Web-based Distributed Authoring and Versioning). 
The use of such technology is foreseen as providing wide support by the user community as well as speed and 
development, refinement, and polishing. 

As shown in Figure I , the XrDrive system 100 has a multi-tiered, network-based application infrastructure. The 
multi-tiered nature of the system allows it to separate operations in an efficient manner. The network-based aspects of 
the XrDrive system allows it to disperse resources geographically as well as allow a high degree of communication 
between different aspects or facets of the system. 

The XrDrive system may be considered enabling technology as a medium that is independent of the applications 
and uses to which it is applied. The XrDrive system is currently based on object-oriented principles with each 
application layer responsible for a discreet functionality or aspect of operation. Both hardware and software resources 
may then successfully experience heavy re-use with both scalability and flexibility inherently provided. While these 
advantageous aspects of the XrDrive system are achieved, as a multi-tiered system, XrDrive involves a higher cost of 
complexity and planning. Thus, those who would seek to wrongly copy the XrDrive system would do so without 
accruing the great expense in time and money necessary to achieve the present XrDrive system. They would ride on the 
backs of those who not only developed the system, but also those who got it to work right and in a commercially-reliable 
manner. 

The use of tiers in the XrDrive system of the present invention is realized in both the network systems and the 
application systems involved in achieving XrDrive. 

As shown in Figure 1, a variety of tiers, or layers, are present between the client 102 and the ultimate data 
resources 104. Between the client 102 and the data resources 104, are one or more layers or tiers, accomplishing the 
following. 

The client 102 may be coupled to a public network 106 (such as the Internet) that may include a DNS redirector 
108 as well as a load balancer 1 10. The public network 106 may then lead into a web server network 120. The web 
server may then lead into an application network 122, which in turn leads into an EJB (Enterprise JavaBeans™) network 
124. The EJB network 124 may lead into a transaction network 126, which in turn leads into the data resources 104. 

The client 102 may be either a web- or browser-based application or an application resident on a Windows™ X 
system (the X indicating the version of Windows applicable, i.e., Windows® 95, Windows® 98, Windows® 2000, etc.). 
Requests generally originate from the client as the XrDrive system 100 is one that operates at the command of users 
directing the client program. Client requests may be made versus the Hypertext Transfer Protocol (HTTP) GET/POST 
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function. In a preferred embodiment, the GET/POST operation may be augmented with Web-DAV extensions to the 
HTTP protocol. Commands are transmitted by the client 102 are sent to the DNS redirector 108, which then isolate the 
request via a proxy server process. A proxy server process prevents a direct connection between the client 102 and the 
other downstream resources in the XrDrive system 100. Such proxy serving prevents inadvertent or mischievous 
disruption of service by allowing only certain commands or information to be propagated through the XrDrive system 
100. This prevents mischievous users from disrupting the system as such rogue commands are intercepted by the proxy 
server and denied further propagation. 

After the client command has passed through the DNS redirector/proxy server 108, the request by the client 102 is 
then directed to the most appropriate facility. As the XrDrive system is scalable, facilities may be distributed 
geographically, even over the face of the globe. This allows, at the outset, more efficiencies to take place in the XrDrive 
system 100 of the present invention so that more users may be served more quickly and so that the advantageous features 
of the XrDrive system may be realized by the widest number of users in the quickest way possible. 

Due to the construction and architecture of the XrDrive system 100, a number of machines/servers running a 
number of different processes may be distributed over a wide area. Broad band or high-speed access as provided by 
Internet backbone or the like may allow the XrDrive system to be effectively carried out over the entire face of the 
planet. The scalability and flexibility of the present invention augments its utility. Such advantages are further advanced 
by efficient use of the resources so that greater and better service can be provided. 

Upon receiving the request from the client 102, the DNS redirector 108 transmits the requests on to a load 
balancer which may provide a second proxy process under HTTP protocol and transmit the request to the least-loaded 
and most-available web server on an internal, non-routable, or other server network 120. 

The web server network 120 may be non-routable and may comprise a number of individual machines or servers 
processing the HTTP or other requests from one or more load balancers 110. Each of the web servers 140 in the network 
120 may handle HTTP requests for static content, such as HTML and graphic files. The web servers may proxy all 
requests for dynamic content to a Java® application network 122. 

As used in the XrDrive system 100 of the present invention, the Java® application networks may be non-routable. 
The use of non-routable facilities in the XrDrive system 100 of the present invention indicates their operation in a local 
area network (LAN). However, between tiers, the individual networks themselves may be available such that a web 
server 140 in Illinois may pass requests for dynamic content to Java® application clusters 122 in Wisconsin. 

Each Java® application cluster 122 may be composed of a number of Java® application servers 142 with each 
server 1 42 handling display functions necessary for user accounts, including the generation of XML, HTML, and other 
instructing displays for either browser or application clients 102. If a Java® application cluster 122 receives a resource 
request from the web server tier 120, the Java® application cluster 122 will pass the resource request onto the Enterprise 
JavaBean™ EJB network tier 124. 

As for the web server 120 and Java® application networks 122, the EJB network 124 may also be non-routable 
and operate upon a LAN. The EJB network may be an EJB cluster having a number of EJB servers 144. Each EJB 
cluster handles the business logic and resource access methods and protocols required for the resource requests and 
management. The EJB cluster (EJBC) caches memory of common resources such as the pooling of data connections and 
the like, as well as data objects. Resource access requests and transmissions are then passed out to the transaction 
network tier 126, which may also be non-routable. The transaction network tier 126 has a transaction processor 146 
which controls, operates, and guarantees access and transactions on different resources. These different resources are the 
ultimate data resources 104 that may include NFS (Network File Server) disk arrays 1 50 and databases 1 52. The NFS 
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disk arrays 150 may supply the actual storage capacity for the files of generally any size. The databases 152 comprise 
records of information regarding each of the files (metadata) stored by the NFS disk arrays 150 under the X:Drive 
system 100. 

By bifurcating the file information in databases 152 separate from the actual files themselves on the NFS disk 
arrays 150, file information and user queries can be handled much more quickly as display components of the present 
invention are important to provide the user information regarding the status and availability of the files stored on the 
X:Drive system 100. Consequently, although a user may have a hundred separate files in an XrDrive directory, he or she 
may be only interested in one. Consequently in order to provide the user the information necessary to make the decision 
as to which file to receive, move, rename, delete, or store, the use of the database provides a very quick and easy means 
by which such user requests can be satisfied. It is anticipated that the actual use of the file storage facilities on the NFS 
disk arrays 150 or the like may comprise only a part of the operations of the present invention. Having the ability to 
display, select, and determine file operations is one of the useful advantages provided by the XrDrive system 100 of the 
present invention. 

Note should be taken of the non-numerical indicia present in Figure 1 . Most notably, a circle is associated with 
the client 102, a triangle with the Java® application cluster 122, a square with the EJB network 124, and a star/asterisk 
with the transaction network. These non-numerical indicia correspond to those set forth in Figure 3. As different actions 
are performed at different tiers in the present invention, the non-numerical indicia provide an easy or visual means by 
which the operation of the different tiers can be indicated in Figure 3. 

Figure 2 shows a logic diagram in sequence structure for the Java® library objects used in the XrDrive system 
1 00 of the present invention. Generally, throughout the description of the XrDrive system 100 of the present invention, 
the prefix XD indicates "XrDrive." For example, in Figure 2 the steps/status indicators of XDError stands for XrDrive 
Error, and XDXML stands for XrDrive Extensible Markup Language. Likewise, the use of the term XDFile indicates 
XrDrive File as a Java® library object effecting and intermediating the file operations of the present invention. 

In Figure 2, the Java® system 200 allows operations to be performed on the metadatabase 202 and the operating 
system (OS) File System 204. Additionally, the XDFile object 210 may activate or instantiate the Database.Search 
object 216. The XDFile object 210 may be activated, or invoked, by the FileAction object 220. The FileAction 
object 220 may also activate the Database.Search 216 and Database. BigSearch 222 objects. Operations of the Java® 
library objects in the system 200 as shown in Figure 2 may be contingent upon the SessionSecurity object 224, which 
may instantiate or use the Database.Search object 216 and/or the Database.Transaction object 214. The SessionSecurity 
object 224 may return a separate object 226 to the UserData object 230. The Database object 236 may inherit or transmit 
from its Transaction 214, Search 216, and/or BigSearch 222 objects. 

The information generated may then be transmitted to the Database 202 for meta-information and the OS File 
System 204 for the actual data. If an error is generated during the operation of the Java® library object system 200, an 
XDError object 240 may serve to handle the error while a successful operation may be returned in the form of the 
XDXML object 242. In the Java® library object system 200 of Figure 2, the Database 202 may contain intelligence or 
programming for connection to SQL databases and the like. Options regarding the operations of the database 202 may 
be read from a configuration file. The Database object 236 may be able to connect multiple databases for redundancy in 
the case of repeated or redundantly archived information, or for functionality in order to connect to that database which 
responds most quickly to the requests and commands. 

The Database object 236 determines which database operation to perform and/or to which database to send 
operations based on the type of request it receives. For example, transaction requests may demand a separate database 



WO 01/33381 PCT/US00/30536 
from those of regular query and BigSearch 222 requests. In order to maintain more efficient operation, the Database 
object 236 generally sends session users to the same database whenever possible so that latency and database replication 
is not passed on to the user. 

The Database.Transaction object 214 is able to handle larger SQL statements such as those that would cause a 
load on the database. The Database.Transaction object 214 may spawn children classes that handle the transaction logic 
in order for more efficient operation. 

The Database. Search object 216 is designed to handle smaller SQL statements and has children classes for 
specific search types, such as those along anticipated and common fields or types of information. 

The Database. BigSearch object 222 handles larger, non-transactional SQL statements such as those used for 
reports in system accounting, monitoring, or otherwise. Children classes of the Database. BigSearch object 222 would 
handle specific large searches such as those that might be implemented on a monthly or other periodic basis. 

The FilelO object 212 inherits and overrides Java<£>'s data file object. The file object contains logic to engage 
multiple disks or resources for redundancy and/or functionality and contains the functionalities necessary to manipulate 
files on the OS File System 204. The FilelO object 212 may react to the JMS (Java Messaging Service) events triggered 
by events on the disks of the OS File System 204. 

Alternatively, one or more monitoring objects may be used to gather pertinent status information regarding the 
OS File System 204. When monitoring objects are used, the FilelO objects then query the common monitoring objects 
to determine the state of the system. In the present system, the monitoring object is denominated the Mount Point Status 
bean, or MPS bean, 534 (Figures 5 and 9). 

Additionally, disk level transactions are carried out by the FilelO object 212. Under the management of the 
FilelO object 212, user accounts are able to span or traverse several disks. The spanning of such several disks enables 
better recovery from failure should an error occur or system resources become unavailable in an unpredictable manner. 
The XDFile object 210 uses FilelO 212 to handle the file system transactions. By using the Database.Transaction file 
object, the XDFile object 210 handles database file transactions. The XDFile object 210 coordinates transactions for 
both the FilelO object 21 2 and the Database.Transaction file object 214 to keep both synchronized and to handle failure 
should it occur. 

The UserData object 230 holds user data for a session of the X:Drive system. A session is basically a span of 
time for which a user engages the X:Drive system. Methods are included in the UserData object 230 to manipulate the 
user status, so that the activity may be monitored, as well as whether or not the user has logged in. 

The SessionSecurity object 224 uses web logic session mechanisms to create the UserData object 230. It does 
this by returning a separate object 226. The SessionSecurity object 224 authenticates a user's login and expires old 
sessions with re-direction of such old sessions to appropriate pages. 

The FileAction object 220 may have children classes and contain logic for determining request types such as user 
requests, administration requests, etc. Tests for file action requests such as quotas and permissions, etc., may also be 
handled by the FileAction object 220. The FileAction object 220 accesses the file methods in the XDFile object 210. 

The XD Error object 240 reads a configuration file of error lists which gives each error an I.D. number. Such 
error lists preferably pivot on the language in which the X: Drive system 100 of the present invention is programmed. 
Such lists should also be able to pivot on the partner with which the X:Drive system 100 operates. Default values for the 
lists may be to XrDrive errors in the English language. The XD Error object 240 preferably holds errors in a stack and 
returns any such errors from the stack. Additionally, the XDError object 240 preferably accepts new errors by code or 
by message. 
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The XDXML object 242 accepts an object and delivers as output an XML representation of a transaction or status 
requested by the user or client software. 

Figure 3 shows the data flow through the X:Drive system 100 of the present invention, particularly that as 
reflected by the tiered configuration shown in Figure 1 . From a starting point 300, a request is sent by HTTP POST/GET 
command at step 302. Web-DAV protocol may also be used and is currently considered preferable. The send request is 
implemented on the client 102 and is evaluated by the web server 120 as a request for static content in step 304. If the 
request is for static content, the file is served by the web server 120 at step 306, and the file is displayed at step 308 by 
the client 102. 

If at step 304 the request for static content is evaluated as negative, a proxy request is issued by the web server 
network 120 to the Java® application cluster 1 22 at step 312. The request is received by the Java® application cluster 
(JAC) 122 and submitted to a servlet at step 314. The Java® application cluster (JAC) 122 then parses the request 
header at step 316. The Enterprise JavaBean™ (EJB) network 124 then authenticates the request at step 318. If 
authentication cannot be achieved, process control is then re-directed to the re-login page via the JAC network 122 at 
step 320. If authentication succeeds at step 31 8, the JAC network 1 22 then parses the multi-part form data at step 324. 

The JAC network 122 then determines the type of request at step 326. The request is then submitted to the 
FileAction EJB 220 at step 328. The EJB network 124 then evaluates the request at step 330 in order to ensure that all 
the business rules and other applicable limitations are met, such as quota limitations, permissions, and the like. If the 
evaluation is successful at step 330, the EJB network 124 then submits the request to the XDFile EJB 210 at step 332 and 
on to the transaction processor 146. The appropriate actions are then taken via the transactional database 152 and the 
disk arrays 150. If the business rule evaluation 330 fails, an error may be generated and, as for other errors in the data 
flow process of Figure 3, a session error object 334 may be generated in a session error stack 336. 

In effecting the data transfer to the ultimate system resources 104, evaluation is made as to the operation in 
step 340. If the operation is not a data read operation such as a directory listing or file read, the error stack is checked at 
step 342. If an error has occurred, the error status is sent to the client 102 at step 344. The client 102 then accepts the 
transmitted XML code and renders the appropriate display for the user at step 346. If the error stack evaluation step 342 
does not reveal any error, a success message is generated at step 350, and the subsequently-generated XML is received 
by the client 102 and displayed by the user at step 346. 

If at the evaluation step 340, the operation is not a data read action, the error stack is checked at step 352 much in 
the same way as it was at step 342. If an error has occurred, the error status is sent to the client 102 at step 354. The 
error status message is then received as XML code by the client 102 at step 346 and displayed to the user. If at 
evaluation step 352 the error stack reveals no errors, the evaluation is then made by the EJB cluster as to whether or not 
the operation is a file read at step 360. If the operation is a file read, the data stream is converted to a network stream and 
transmitted as a file to the client 102 by the Java® application network 1 22 at step 362. The data is then accepted by the 
client 102 and served to the user at step 364. 

If at evaluation step 360 the operation is not a file read (see Figure 4), then by elimination, the action is a request 
for file metadata such as a directory listing indication of file attributes or the like. At step 366, the metadata retrieved 
from the database 152 is then translated into XML format by the EJB cluster 124. The XML data is then transmitted to 
the JAC network 1 22, which encapsulates the XML from the network and sends it on to the client at step 368. The JAC 
network 122 then sends the encapsulated XML to the client 102 for rendering and display at step 346. 

As indicated in the description above with regards to Figure 3, users utilizing the client system 1 02 to connect to 
the XrDrive system 100 do so via the public Internet and then submit requests and receive replies effecting or indicating 
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the user's requests. Requests for file manipulations, such as uploads, downloads, copies, moves and updates travel 
through each functional layer of the X:Drive system 100. 

The core of the EJB cluster, and as indicated in Figure 2, the XDFile EJB provides core effectiveness in the 
present XrDrive system 100. The XDFile EJB 210 is a multi-tiered component. The X:Drive system 100 stores file 
metadata (such as directory structure, file name, file attributes, etc.) in the database 152 for fast retrieval, sorting, 
searching, linking, and other capabilities beyond standard file systems. The actual file data is stored by the X:Drive 
system 100 in network-attached storage units or storage area networks such as those shown in Figure 1 , the NFS disk 
arrays 150. 

To access files that exist in this hybrid environment (bifurcated between file information and file data), X:Drive 
uses the XDFile object 210 to manipulate both files and file data in two-phase committal transactions. Figure 4 shows 
the details of these transactions. 

In Figure 4, the XDFile EJB system 400 allows entry at any one of the five darkened triangles. If the action is to 
be a copy, entry is made at the copy entry point 402. If the action is a file read, entry is made at the file read point 404. 
If the action is a file write, entry is made at the file write point 406. If the action is a file delete, entry is made at the 
delete point 408. If the action is a file move, entry into the XDFile EJB 210 is at the move entry point 410. 

Beginning first with a file copy action beginning at the copy point 402, the evaluation of the operation occurs at 
step 420, where determination is made whether or not the action is a read transaction. If the action is a read transaction, 
program flow proceeds onto the read action and entry point 404. The corresponding database action 424 is then taken. 
As the action is a read transaction, the corresponding database record is read and evaluation is made as to whether or not 
the database action, in this case read action, has been successful at step 428. If the read action is not successful, the 
changes are then rolled back, if any, at step 432. An error is then returned at step 436 and the XDFile object awaits 
further instructions. If the evaluation at step 428 regarding the database action was successful, action can then be taken 
on the actual file itself on the OS File System 204 at step 440. In the present case, the FileOS Action 440 is a read 
action, and the file may be read into a temporary buffer or other memory space. The FileOS Action is evaluated for 
success at step 444. If the FileOS Action step 440 was unsuccessful, a fatal error is returned at step 448, and the 
changes, if any, are rolled back at step 452. If the evaluation at step 444 was successful, evaluation is made as to 
whether or not the action was a copy read at step 456. If the action was a copy read, return is made to the copy entry 
point 402 at step 464 in order to perform the write portion of the copy function. If the evaluation at step 456 indicates 
that the action was not a copy read action, evaluation is made at step 468 to determine if the action was a move/copy 
action: , If the action was a move/copy action, control is then directed towards the move entry point 41 0 via step 472 in 
order to delete the original file as the success of the move/copy transaction at evaluation step 444 indicates the success of 
the file write step of the FileOS Action step 440. Program control is then turned over to the move/action entry point 410 
so that the original file may be deleted at its original location via the delete entry point 408. 

If the move/copy evaluation step 468 indicates that not only was the action not a copy read, it was also not a 
move/copy, then the action is committed to the system at the ultimate system resource level 104 at step 480 and an 
indication of success is then returned at step 484. 

Upon reaching the move entry point at 410, evaluation is made at step 490 to determine whether or not the 
transaction is a copy transaction. If it is a copy transaction, the program then enters and executes the copy entry point 
402. If not, the delete entry point 408 is activated to effect the remainder of the move transaction. 

Consequently, it can be seen that a variety of actions take place depending upon the state of the XDFile EJB 210 
at the database action 424 and FileOS action 440 steps. 
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In performing file reads and writes, simple one-step actions are taken because neither of these read or write 
actions are either copy reads 456 or move/copy 468 and so they fall into the system commit 480 and return a successful 
indication at step 484. The same is generally true for the one-step delete action. Consequently, whenever a user wants 
to read, write or delete a file, entry can be made into the respective entry points at 404, 406, and 408. Errors are returned 
when necessary. 

However, the copy action 402 and the move action 410 require multiple loops through the XDFile EJB 210 in 
order to effect their operations. For the copy function 402, the initial read must be made successfully with the evaluation 
step 456 then prompting the write step to occur by the return to the copy entry point at step 464. The read transaction 
step 420 is then evaluated in the negative and the write entry point/action 406 is invoked with the database action 
occurring at step 424 to write the new information to the transactional database 152 and, if successful, the FileOS write 
action for the data at step 440. If the file write is successful, the evaluation at step 456 as to whether or not the action is a 
copy read is answered in the negative as is the evaluation of the transaction as to whether or not is a copy transaction 
executed under the move action at step 468. The resources are then committed, temporary resources are released, and 
the success indication is returned at step 484. 

Consequently, for a copy transaction 402, the loop is first made through the read function 404 and then the write 
function 406. For the move action at entry point 410, a copy transaction is first executed with the two-loop operation as 
set forth previously. Upon completion of the copy action, the delete action 408 is implemented in order to erase the 
original file and its file data. Upon the third loop through the delete step 408, the transaction is neither a read under the 
copy command at step 456 nor a copy under the move command at step 468. Consequently, the move function has 
- successfully completed, the system resources are committed at step 480, and a success indicator is returned at step 484. 

In Figure 5, an overview of the Java® architecture of the XrDrive system 100 of the present invention is shown. 
^ The Java® architecture 500 shown in Figure 5 may generally arise from the client 1 02. A file action container 504 has 
certain attributes and operations as do the other beans of the architecture 500. Contained within the file action container 
504 are a number of stateful, stateless, and entity beans, as well as other containers having other beans. The file action 
container 504 contains two stateful beans: a user date stateful bean 506 and a process request stateful bean 508. The 
user data stateful bean 506 has a user info entity bean 510 and a security stateless bean 512. 

The process request stateful bean 508 contains a single container, the XDFile container 520. The XDFile 
container 520 contains three (3) beans and a container. The three beans of the XDFile container 520 are: a database IO 
stateful bean 522, a file IO stateful bean 524, and an admin stateful bean 526. The container is a recovery container 530 
which contains a recovery IO stateful bean 532, a mount status stateful bean 534, a recovery admin stateful bean 536, 
and a recovery process stateful bean 538: 

As indicated by the nature of the beans carried by the containers, stateful beans generally carry information about 
the state of the bean, process, or otherwise as useful information for the ends and operations of the X:Drive system 100 
of the present invention. Stateless beans generally carry no state information, and entity beans are generally for 
information or identification only. As Java® beans are objects intended to carry both data and processes in association 
with one another, it is up to the operations of the X:Drive system 100 of the present invention to selectively and 
appropriately activate the beans and enable the proper actions to take place. The file action container 504 is shown in 
alternative representation in Figure 6. In Figure 6, a client 102 issues a user authentication request 602 and an operation 
request 604. The user authentication request 602 is passed into the user data stateful bean 506 in the file action container 
504. The operation request 604 is passed into the process request stateful bean 508. The user information entity bean 
510 then transmits information to a user information database 610, as does the security stateless bean 512. The process 
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request stateful bean uses a first property file 612 that is loaded upon deployment of the XDFile container 520. The 
property file is loaded into the admin stateful bean 526 for use with the OS file system 204. A Java® transaction server 
620 may operate in conjunction with the database 1 52 as well as the OS file system 204 in order to process the operation 
request 604. The second property file 630 may be loaded by the recovery admin stateful bean 536 upon the bean's 
deployment. The recovery IO stateful bean 532 and the recovery admin stateful bean 536 both transmit information to 
the recovery queue storage buffer 640. The mount status bean 534 operates in conjunction with the mount status of the 
system 650. 

The recovery container 530 is called when once a failed resource begins to recover. Further description of the 
recovery process is given below. However, Figures 5 and 6 operate in tandem to show linearly (Figure 5) and 
organically (Figure 6) the structure and operation of the XDFile object 210. 

Figure 7 shows the detail of the XDFile database component. A transaction processor (such as Tuxedo from 
BEA) works in conjunction with the database transaction object 214 as well as the FilelO object 212 to provide a robust 
and reliable system. Both the database transaction 214 and the FilelO 2 1 2 objects include logic and/or programming to 
handle situations where database or disk array access cannot be guaranteed. The database.transaction object 214 handles 
the inherent doubt present in the system by using replicated or repeated clusters of databases. The replication process 
creates latency or delay, in the system. In order to accommodate this latency, the database transaction object 214 uses a 
session object (a data construct representing a user session on the X: Drive system 1 00) to determine if the user's request 
can be transferred, or replicated, from one database cluster to another, in case of future system failure. 

An important aspect with respect to the reliable operation of the X:Drive system 100 is the need to separate 
databases into functional groups. While the query database may be optimized for quick and small queries and while a 
transaction database might be optimized for fewer, larger, more time consuming updates, the database layer 236 in the 
X:Drive system 100 allows for associating SQL commands with different database clusters based on functionality. 
Additionally, the XiDrive database layer 236 is configured for consolidation and addition of databases on the fly. 

As shown in Figure 7, the SQL command 710 is issued and passed to a SQL command e valuator 712. A SQL 
evaluator determines the SQL type so that the SQL can be sent to the appropriate database type (that is, in the X: Drive 
system 100, the transaction database 150, the query database 152, or both). 

Upon determining the database type of the SQL statement 712, the database preference is evaluated at step 714 to 
determine if the user should be sent back to the same database. If the user is not to be sent back to the same database, the 
database currently bearing the least load is found in step 716, and query is then made in step 718 to ensure that the 
selected least-loaded database is still up, running, and available. If it is, a specification regarding the pooling of database 
resources is created 720 and transmitted to the database object 236. Database object 236 then takes the SQL command 
and passes it to the appropriate database, either the transaction database 150 or the query database 152 via associated 
connecting pools 730. 

If at step 718 the least loaded database is not available, an alternative database must be used and query is made at 
step 736 to determine whether or not the alternate database is up. If the alternate database is not up and the evaluation 
step 736 fails, additional databases may be queried or, as indicated in Figure 7, a fatal error may be generated at step 738. 
If the alternate database is up, a pool specification 720 is generated and passed to the database object so that the SQL 
command may be implemented upon the transactional 152 databases via the connection pools 730. 

If at step 714 the user must be sent back to the same database, query is made at step 740 to determine if that 
database is still up. If it is, the request is passed to the pool specification 720 where it is subsequently passed to the 
database object 236, on to the connection pool 730, and the appropriate database, either the transaction database 150 or 
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the query database 152. If the same database is not up and the evaluation at step 740 fails, an alternative database must 
be used, but the SQL request is queried at step 744 to determine if the SQL command is transferable to the alternate 
database. If not, a fatal error occurs at step 746. If the SQL command is transferable, query is made at step 750 to see if 
the alternate database is up and active. Should the evaluation fail, subsequent databases may also be queried if the SQL 
command is transferable. However, as shown in Figure 7, if the second database is unavailable, a fatal error may be 
generated at 746. Otherwise, the database is up, and the evaluation at step at 750 is successful and the command is made 
available to the database object 236 via the pool specification standard 720 and on to the databases through the 
connection pools 730. 

In order to ensure proper operation of the XDFile database object 2 1 0, a database status monitor 760 persistently 
and on-goingly queries the databases 1 50, 1 52. The status is then returned to a database status object 762. the database 
status object may provide information to the recovery container 530 of the XDFile object 210. 

The recovery mechanism for the XrDrive system 100 of the present invention is shown in Figure 8. The FilelO 
object 212 uses a recovery object such as the recovery container 530 to handle write transactions 406 (as opposed to read 
transactions 404) when the transaction processor 214 fails. The recovery object is transparent to the user, making it 
easier and more convenient for the user to use the XrDrive system 100 while decreasing the concern that such a user 
would have in case of a power outage or other failure in one part of the XrDrive system 100. 

The FilelO object 212 reports an error to the user, but informs the user that her request was stored in the XrDrive 
system 100 and that the XrDrive system 100 will try to apply the change as soon as possible. If the storage unit, 
represented as a mounting point in the EJB cluster becomes unavailable for write transactions 406, the monitoring 
client 760 updates the EJB network 124 that the status of the mounting point is "down." Once the mounting point is 
available and checked for data integrity, the status is updated from "down" to "recovery" and the recovery object 530 is 
called to apply all queued requests for the file action container 504. This keeps the user from catastrophically losing 
uploads and other file writes, but may cause some delay in file reads. 

In the recovery system 800 of the present invention, the multi-connected pooled database object, the 
recovery-enabled FilelO object 212, and the transaction processor 146 work together to create a resource layer offering 
high availability, recovery, and scalability. Additionally, this resource layer (encapsulated in the XDFile EJB 210) lends 
itself to replication of the data, both geographically and locally. Such replication preferably has the three essential traits 
of being off-site, application-driven, and accessible. With this level of controlled replication, secondary XrDrive clusters 
are enabled in geographically diverse locations in order to enhance the reliability of the XrDrive system 100. 
Consequently, data loss from one data center or even the physical loss of an entire data center would not cause loss of 
customer data or access. Re-direction would occur dynamical ly and this information would be replicated in a plurality of 
sites across the XrDrive system 100, the query or metadata databases provide multiple pointers to the user's data. 

In the recovery system 800 of Figure 8, the recovery system is initially initiated when the MPS Bean 534 is set for 
a mode to detect mount point recovery at step 804. At step 804, a recover method is called and the external mount point 
is checked. Query is made at step 806 to evaluate whether or not recovery is already occurring. If recovery is already 
occurring, an exception is thrown at step 808 and exit is made at this finish point. If recovery is not already occurring, a 
list of mount points in recovery mode is generated in step 810. Additionally, at step 812 a list of mount points which are 
down is also generated. Query is made at the evaluation step 818 as to the presence of available recovery objects in the 
recovery queue. If no such objects are available in the queue, the disk or other database is set into the "up" mode at step 
820. The queue for that disk is then unlocked in step 822, and the recovery process is complete at step 824. If at 
evaluation step 818 recovery objects are still in the queue, evaluation is made as to whether or not the system has gone 
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past the lock count at step 830. If so, the queue for the disk in recovery is locked at step 832 for both the lock count 
evaluation 830 and the queue lock 832 step, control is then directed to the evaluation step as to whether or not the target 
file exists 834. If the target file does not exist and the evaluation at step 834 fails, the recovery object is removed from 
the queue at step 840. The status of the recovery is subsequently put in the request for alert queue at step 842 and return 
is then made to the query step 818 to determine whether or not objects are still available for recovery in the queue. 

If the target file does exist when evaluated at step 834, evaluation is made as to whether or not the request is more 
current than the file at step 850. If the request is older than the current file, the recovery object is removed from the 
queue at step 840, and the status for the request is put in the request or alert queue 842 and control returns back to the 
evaluation step 818 to see if any further recovery objects are available in the recovery queue. 

If, in evaluating the request, it is found that the request is more current than the file, the request is submitted to the 
XDFile object 210 at step 852. The submission of the request to the XDFile object 210 is not recoverable. If the 
submitted request is successful as indicated by the evaluation at step 854, the recovery object is removed from the queue 
at step 840, its status is put into the request for alert queue at step 842 and evaluation is made at step 818 as to the 
presence of any additional recovery objects in the recovery queue. However, if in submitting the request to the XDFile 
object 210 at step 852 the submission fails, query is made at step 860 as to whether or not the mount point has gone 
down. If at step 860 the mount point is still up, the request from this mount point is ignored at step 862 and the queue 
for the disk is unlocked at step 864. Control of the program is then returned to the recovery object availability query in 
evaluation step 818. 

As shown in Figure 9, the mount point status bean 534 has UP, DOWN, and RECOVERY states. This bean is 
applicable to the file database 150, as well as user disks 970, 972 as well as recovery disks 974, 976. Additionally, the 
recovery admin stateful bean 536 is directed towards the recovery database 980 in order to effect the recovery process 
800. 

In order to effect virus scanning and repair features, the X:Drive system 1 00 preferably uses the Java® JNI (Java 
Native Interface) to access a Norton Anti-Virus or other dynamically linked library (NAV.DLL) to scan files for viruses 
via a Java® servlet. The Java® servlet runs on a Windows™ version X server and can use JNI to make calls to the 
NAV.DLL dynamically linked libraries. In effect, the Windows™ X machine becomes a specialized NAV.DLL server 
located at the EJB network layer 124 of the X:Drive system 100, on a sub-network of the resource network. The logic 
integrating the NAV.DLL dynamic linked libraries with all X:Drive file writes is shown schematically in the flow 
diagram in Figure 10. 

As shown in Figure 10, the virus scanning sub-system 1000 takes the file/transaction ID 1002 and a transaction 
ID 1004 from a user 1006. The file/transaction ID 1002 is passed to a file write process 1008 executed by a SUN® or 
other web server 101 0. The file is written to both the database generical ly indicated at reference 1 020 and to a temporary 
file storage area 1022. The file write process 1008 passes the file transaction ID to the Norton Anti-Virus (NAV) 
process 1024. Within the NAV process 1024 is NAV scanner 1026. The NAV scanner monitors the data stream or 
otherwise to determine and detect the presence of any viruses. If upon evaluation the NAV process 1 024 detects a virus 
at evaluation step 1028, data sink action is taken with respect to the database 1020. If no virus is detected, the sequence 
moves to its final termination at step 1030 and data sink action is taken with respect to a temporary file on medium 1032. 

While both the file and transaction ID 1002 are delivered to the file write process 1 008, the transaction ID alone 
1 004 is transmitted to a fetch location info step 1040 on a SUN® or other web server 1 01 0. The fetch location info step 
1040 transmits its results to an evaluation step 1042, which determines whether or not the file is in the temporary storage 
area 1022. If the file is in the temporary area, the file's upload status is shown in step 1044. If the file is not in the 
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temporary medium 1022, virus information is fetched at step 1050 in the file status process 1036. 

Once the virus information has been fetched, it is evaluated as to whether or not there is a virus present at step 
1052. If there is no virus detected, then the virus evaluation terminates and a display of same may be made at step 1 054. 

However, if evaluation step 1052 indicates the presence of one or more viruses, a plurality of virus options may 
be shown and presented to the user at step 1060. Among the virus options available are: the cleaning of the virus at step 
1062, moving the virus to a different location at step 1064, and/or deleting the virus in step 1066. If step 1064 is taken 
with the move of the virus-laden file despite its infectious nature is made, movement of the file with its final destination 
is made in step 1070. 

As shown in Figure 10, a number of data sink actions are taken with respect to information. Additionally, as 
indicated by Figure 10, the NAV process 1024 is a separate entity and may be considered to be a JAVA® 
serv let/daemon living on specialized Windows® NT or other servers. 

In order to make resources available on an on-going basis to the virus scanning sub-system 1000 of the present 
invention, a chron file 1074 (a file executing commands on a periodic basis according to the time) is used to remove old 
files from a first temporary storage resource 1002. 

Figure 1 1 shows the Skip the Download/Save to My Xdrive system where a file on the Internet can be transferred 
over to an individual's XrDrive at generally data speeds far faster than those available to the end user. This allows the 
user to exercise dominion and control over the file without having to bear the burden of downloading it to the local 
computer at the present moment. Once the transfer has taken place across the Internet from the host to the X: Drive 
system 100, then the user may download the file stored in his X:Drive directory to his local computer at his convenience. 

As XrDrive exists on the Internet network, transferring a file from one network resource (such as a web or FTP 
server) to the user's X:Drive is made much faster from the user's standpoint by by-passing the local connection to the 
user and allowing the user to submit the transfer request directly to the XrDrive network for execution. The X:Drive 
system 100 then downloads the requested data from the target server to the user's X:Drive over the presumably hi;gher 
speed connections of the public Internet. 

As shown in Figure 1 1, the Save to My Xdrive system 1 100 first has the user 11 10 submit the URL at step 1112. 
In order to access the XrDrive system 100 of the present invention, the user submits the URL as well as his or her user 
name and password at step 1 1 14. Upon submitting the URL and the appropriate verification information, evaluation is 
made of the information for authentication purposes at step 1116. If the evaluation fails and authentication is not 
achieved, a login form is displayed in conjunction with the previously- indicated URL at step 1 1 18. If the request is 
authenticated, it is submitted to the STD/STMX (Skip the Download/Save to My Xdrive) queue 1132 at step 1130. 
A status process is then spawned at step 1 134. 

Save to My Xdrive status is then checked on an on-going basis by using the queue in the temporary*storage area 
at step 1 136. Query is made as to whether or not the transfer is complete at step 1 140. If the transfer is complete at step 
1 1 40, then the successful completion is indicated to the user at step 1 1 42. However, if the transfer is not complete, query 
is made as to the presence of any transfer errors at step 1 146. If an error has occurred, an error message is displayed to 
the user at step 1 148. However, if the transfer is incomplete but no errors have occurred, the same is then displayed to 
the user at step 1 150, and a short pause is taken at step 1 152 for re-invoking the check STD process at step 1 136. 

Once the STD queue 1 132 receives the request, a daemon process processes the request from the STD queue at 
step 1160. Query is made as to the business logic of the queued request at step 1162. If the request fails the business 
logic check 1 162, the status is updated at step 1 1 64. Control may transfer back to the STD queue 1 132. 

If the business logic check succeeds at step 1162, the URL site is contacted by the XrDrive system 100 at step 
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1 1 70 and the download process is activated. The data transmitted by the URL is then saved in temporary X:Drive space 
in step 1 172, with the data being transferred then to the user data space at step 1174. The URL site 1180 may exist 
anywhere on the Internet so long as it is available to the X:Drive system 100. In a similar manner, a temporary storage 
space 1 182 may also exist anywhere on the Internet so long as it is accessible and controllable by the X:Drive system 
100. 

Upon transferring data to the user's data space as shown in step 1174, query is made as to the success of the 
transfer at step 1188. For either success or failure of the successful file transfer at evaluation step 1 188, the status is 
updated at step 1 164 and is passed on to the STD queue 1 132 until either success or an error is finally achieved. The 
status process spawned at step 1 130 monitors the update status generated by step 1 1 64 and displays the status to the user 
during and after the download of the file from the Internet to the user's XrDrive system. 

Figure 12 shows a schematic and flowchart diagram for the client system generally used under Microsoft® 
Windows™ for achieving the present invention. The XrDrive system offers its clients two basic services: a file access 
service by which files can be uploaded and downloaded to and from XrDrive, as well as a file manipulation service from 
which file metadata can be obtained and manipulated. Both of these services rely upon the context of their usage. For 
example, the web client of the present invention uses native upload and download features as well as dialogs in the user's 
web browsers to facilitate the service. 

With the use of the web browsers on the local machine, Windows® X clients use the Windows™ TCP/IP stacks 
inherently present with the Windows® version X operating system. All the file transfers effected by the XrDrive system 
can take place as HTTP POST/GET or, preferably, Web-DAV transfers. Generally, two basic layers are present in the 
file manipulation servers of the XrDrive system 100 of the present invention. An XML parser operates in conjunction 
with an XML data displayer. By coordinating the two basic layers of the file manipulation service, the server is able to 
respond with generally the same XML code to all clients. The client is then responsible for converting the XML to a 
relevant data structure and displaying the XML in an appropriate context. In the present invention, the JavaScript web 
client receives the XML code and parses it into a JavaScript data structure. A display layer in association with the client 
and/or browser renders the data structure as an HTML document. The Windows® X client parses the same XML code, 
but the display layer renders the data structure into a device listing that is understood by the Windows® version X 
operating system. The importance of this layered architecture is that it generally makes trivial the creation of new 
clients. Instead of simply creating dynamic web pages (and thus limiting service to web browsers alone), the XrDrive 
system 100 can enable many platforms, such as operating systems, without altering the server structure. Most platforms 
come with some sort of XML parsing layers, and many platforms come with display layers ready made. Consequently, 
the time to market may generally be considered low and efficient establishment and implementation of the XrDrive 
system 100 of the present invention can be achieved fairly quickly. Additionally, expansion into new platforms 
generally becomes much quicker as no alteration of the server structure generally needs to occur as Java® and related 
program functionalities are highly portable from one system to another. 

In the client system 1200, as shown in Figure 1 2, the client 102 has a file access service 1202, including a request 
processing layer 1204 coupled to a network I/O layer 1 206. Commands and data are then transmitted to the server side 
of the XrDrive system 100 where the server side request processing layer 1210 transmits the data to a query evaluating 
whether or not the request is one for metadata at step 1212. If the evaluation fails and the request is not one for 
metadata, the network I/O layer 1216 and the resource access layer 1218 are invoked in order to provide access to and 
operation of the transaction database 152. 

If the request for metadata query at step 1212 succeeds, the request is passed on to the resource access layer 1218 
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and on to the XML generation layer 1220. The response to the request from the metadatabase 150 is transmitted to the 
file manipulation service system 1230 of the client 120. The XML transmitted by the XML generation layer 1220 is 
received by the file manipulation service 1230 as well as its XML handler 1232. The XML is then passed on to the 
XML parser layer at step 1234 to arrive at a data structure 1236 that is then ready for display and so is passed on to the 
data display layer 1238 for display to the user who may then reinitiate the process by implementing the file access 
service 1202. 

Figure 13 shows the X:Drive system 100 as implemented on a Windows™ X machine, in this case, a Windows 
'98 machine (an Intel-based personal computer running the Microsoft Windows '98 operating system). 

The second frontmost window 1310 of Figure 13 is headed by the inscription "My Computer" and shows the 
presence of a drive at logical letter X: 1312 with the XrDrive logo and the label www.xdrive.com (X:). This is an 
example of the user interface provided by the client application. The XrDrive system is transparent to the user and 
functions as any other drive present on the system. 

If the user were to click on or activate the X:\ drive on the My Computer window 1310, the second window 1320 
appears (partially obscuring the "My Computer" window 1310) and shows the listing under the X:\ Drive. The address 
of the window 1320 shows the location of the directory as being at X:\ 1322. 

Also shown in Figure 13 is the desktop icon 1330, the start menu icon 1336, and the system tray icon 1340. 
These icons accompany the client program 102 and provide greater functionality for the user. Each icon serves to 
activate the client program in accordance with user-settable preferences. 

Figure 1 3 also shows the web-based application 1350 in the background, behind the My Computer 13 1 0 and X:\ 
1320 windows. The web-based application window 1350 is shown in Figure 14. Note should be taken of the exact 
correspondence between the directory structures of web-based application window 1350 and the client-based application 
window 1320. This correspondence provides the user with a uniform, familiar, and dependable interface upon with the 
user can rely. 

As set forth above, the three accompanying Appendices are incorporated herein in their entirety, as is the 
previously filed provisional application. 

While the present invention has been described with regards to particular embodiments, it is recognized that 
additional variations of the present invention may be devised without departing from the inventive concept. 

INDUSTRIAL APPLICABILITY 



It is an object of the present invention to provide a Shared Internet Storage Resource on which users may store 
and retrieve files to make them available to themselves, or possibly others, throughout the Internet. 

It is an additional object of the present invention to provide all manner of file access and control generally 
available to files local to the users for such Internet-stored files. 

It is an additional object of the present invention to provide an easy-to-use and readily understood user interface 
through which files may be stored, retrieved, and manipulated on the Internet. 

It is an additional object of the present invention to gather metadata regarding such files and to store such 
metadata in a database. 

It is yet another object of the present invention to provide a plurality of means by which Internet-stored files may 
be manipulated and controlled. 

It is yet another object of the present invention to provide a browser-based access to Internet-stored files. 
It is yet another object of the present invention to provide stand-alone application access to Internet-stored files. 
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It is yet another object of the present invention to provide means by which Internet files may be stored on an 

Internet resource by a direct Internet-to-internet transfer subject to the control of a remote or limited-resource user. 
These and other objects, advantages, and the industrial utility of the present invention will be apparent from a 

review of the accompanying specification and drawings. 
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###addspacexgi 1 

###client_infoxgi 9 

###cookiexgi 12 

###download_ciientxgi 19 

###email_changexgi 21 

###errorxgi 23 

###explorerxgi 24 

###exp!orer_user_dataxgi 28 

###file_Ioadxgi 30 

###file_savexgi 34 

#! file_upload_statxgi , 36 

###folder_ ere ate. eg i 42 

###forgot_passwordxgi 44 

###forgot_usernamexgi 47 

ffflflframe generiexgi 50 

###get_a_shared_fi!exgi ; 52 

###get_a_shared_fi!e_down loadxgi 54 

###loginxgi 57 

###logoutxgi 65 

###navbarxgi 66 

###password_changexgi 68 

###promoxgi 7 1 

###removespacexgi 74 

###selected_deletexgi 79 

###selected_renamexgi 1 , 80 

###settings_savexgi 82 

###share_a_filexgi ...... 85 

###signup_accountxgi 91 

###signup_formxgi 105 

###signup_successxgi 1 1 1 

###signup_tocxgi 113 

###skip_the_down!oadxgi 1 1 5 

###skip_the_download_statusxgi 122 

###tell_ajriendxgi 131 

###web_unauthorizedxgi 135 
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###addspace.cgi 

# ! /usr/bin/perl 

####################################### ##############################3 
## addspace.cgi - processes additional space requests using Epoch's 
## do_approval library function 
## written by Karen Eppinger 

######################################### ############################3 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use XDrive :: Error ; 

use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Table :: Deal; 

use XDrive: : DatabaseO: : Table: :Item; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive: : DatabaseO: : Table : : DiskAccount ; 

use XDrive: : Client :: Actions; 

use XDrive: :Client: :Quota; 

use XDrive: : Sale: : Purchase; 

use Mail : :Sendmail; 

use CGI:: Carp qw ( f atalsToBrowser) ; 
use CGI; 

use XDrive: : Template; 
use XDrive: :CGI qw(:MAIN); 
use XDrive: :Client: : Security; 
use XDrive: : CGI: : Cookie; 
use EpochClient_ssl ; 

use strict; 

$ENV { f PATH * } = '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
&main ( } ; 



################################################# ########################### 

## main: main function calls all others 

## 

## 

############################################# ############################### 

sub main 
{ 

##the hash that will be filled in and send to the Epoch function 
my %hData; 

my $oCGI = CGI->new(); 

my $oErrors = new XDrive :: Error; 

my $oDBH = XDrive :: DatabaseO->new () ; 

my $oCookie XDrive : : CGI : : Cookie->new ( ' x_session_info ' , $oCGI); 
#### 

## Validate the user and if an error happens during 

## the validation process die redirect to the error cgi 

#### 

my $oToken = xd_jsecurity_check ($oDBH, $oCGI , $oErrors ) ; 
if ($oErrors->Occurud) 
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{ 

xd_f atal_error ( $oCGI , $oErrors ) ; 
) 

$hData { 1 ipaddr ' } = $oCGI->remote_addr ( ) ; 

if ($hData{ 'ipaddr' } =-/~192 . 1 68 . 2/ ) 
{ 

$hDat a { ' ipaddr ■ } = ' 0 . 0 . 0 , 0 • ; 

} 

my $sUserName = $oToken->data ( ' user * ) ; 
# my $sPartnerCode = $oToken->data { ' partner_code * ) ; 
my $sPartnerCode = $oCookie->getElement (' partner ') ; 
my $oTemplate = new XDrive :: Template 
({ 

'partner_code' => $sPartnerCode 
}); 

##used to figure whether to give user the form or process the form 
my $sAction = $oCGI->param ( "act ion" ) ; 

## if the action is a request type, we give the user the form 

if ($sAction eq 'process') 

{ 

##get the date from the form already pre-screened by javascript 
my $returnValue = Get FormData ( \%hData, $sUserName, $oCGI , $oDBH) ; 
if ($returnValue) 
{ 

##call the Epoch function that processes the transaction 
my $sReturnCode = do_approval ( %hData ) ; 

##if we've been approved $return will contain a number that 

is 

##7 characters and starts with a Y followed by 7 digits 
##only change user's quota if approved 

##else let them know there was a problem; all problems 

start with N 

##return code could be logged in our database to track 

tranact ions 

##truncate expressions longer than 32 characters 

if (length ($sReturnCode) >32) 

< 

$sReturnCode = substr ($sReturnCode, 0, 32 ) ; 
} 

if ($sReturnCode=-m/ /v Y/) 
{ 

##if transaction went through, give them more space 
##and show them the ok screen 
my $error - 

&WriteToPurchaseDatabase {$sReturnCode, \%hData, $sUserName, $oDBH) ; 

if ($error) 
{ 

&TransactionOK ($sReturnCode, 
\%hData, $sUserName, $oTernplate / $008}!, $oToken, $oCGI, $oErrors) ; 

$oDBH->commit ( ) ; 

} 

else 
{ 

fierror inserting into the database 
STransactionBad ( ' 141 • , $oTemplate, $oErrors) ; 
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$oDBH->rollback ( ) ; 

} 

} 

elsif ($sReturnCode=~-m/~N/) 
{ 

##tell them there was a problem 

##for some reason we get this returned with 

$sReturnCode=~s/~// ; 

my $error = 

&WriteToFailedDatabase ($sReturnCode / \%hData, $sUserName, $oDBH) ; 

&TransactionBad($sReturnCode / $oTemplate / $oErrors) ; 
$oDBH->commit ( ) ; 

} 

else 
{ 

##There was a problem connecting to server 
my $error = 

&WriteToFailedDatabase ( ' COULDNOTCONNECT\n 1 , \%hData, $sUserName, $oDBH) ; 

&TransactionBad( ' COULDNOTCONNECT\n ' , $oTemplate, $oErrors) ; 

$oDBH->commit ( ) ; 

} 

> 

else 
{ 

##this is someone trying to use the 
##bogus card numbers and isn't one of us 
##don't bother writing to database because 
##it is caught before going to Epoch 

&TransactionBad( 1 NMYBADCARD\n ' , SoTemplate, $oErrors ) ; 

> 

$oDBH->disconnect () ; 

} 

elsif ($sAction eq 'intro') 
{ 

&ShowIntroPage ($oTemplate, $sPartnerCode, $sUserName, $oToken, $oCGI f $oErro 
} 

else 
{ 

&ShowForm ($oTemplate, $sUserName / $oErrors) ; 

) 

exit; 

} 

######### ################################################ 

## GetFormData: Fills in the hash that is required by Epoch's function 

## Fill in one field at a time because not all fields on the page should go 

## into hash plus a few fields don't come from form 

############################################################# ############### 

sub GetFormData (\%, $,$, $) 
{ 

my $hData - shift; 
my $sUserName =shift; 
my $oCGI = shift; 
my $oDBH = shift; 

my $value = 1; 

##these are mandatory to process the tranaction 

##javascript checks insure users fill the fields with the proper data 
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$hData->{ ' transtype' }= 'approve' ; 
$hData->{ 1 co^code 1 )='xdr» ; 

$hData->| 'pi_code* }= $oCGI->param ( "pi_code " ) ; 
$hData->{ 'cardnum' }= $oCGI->param( "cardnum") ; 
$hData->{ ' cardexp' } =$oCGI->param { "cardexp" ) ; 

##someone is trying to access from a site other than ours and use the 
free credit card 

if ( <$hData->{ 'cardnum'} eq ■ 4 121371 122223333 ■ ) || ($hData-> {■ cardnum • 
eq ' 4111111111111114 ■) ) 
{ 

if ($hData->{ ' ipaddr ' ) ne '0.0. 0.0') 
{ 

$value=0; 

} 

} 

##not required but used to check for fraud 
$hData->{ ' cardname 1 }= $oCGI->param ( "cardname" ) ; 
$hData->{ 'street' } =$oCGI->param ( "address " ) ; 
$hData->{ 'city' ) =$oCGI->param < "city" ) ; 
$hData->{ 'state' }=$oCGI->param < "state" ) ; 
$hData->{ ' zip' } =$oCGI->param ( " zip" ) ; 
$hData->{ 'phone' } =$oCGI->param ( "phone" ) ; 

##get email out of the database 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( ' USERNAME * , $sUserName) ; 

my $sUserSeq - $oDis kAccount->f etchColumn ( ' USER_SEQ ' ) ; 

$oDiskAccount->f inish ( ) ; 

my $oUserInfo » XDrive :: DatabaseO :: Table :: UserData->new (undef, $oDBH) ; 
$oUserInf o->loadWhere ( ' SEQ' , $sUserSeq) ; 

$hData->{ ' email • ) =$oUserInfo->f etchColumn ( ' EMAIL_ADDRESS ' ) ; 
$oUserInfo->f inish ( ) ; 

return $value; 



####################################################### ##################### 

## ShowIntroPage: called to show the intro page 

## 

t***##*####***#####*###*#####*#t***####**#*«#t###*#####t'*t#f #**#«####«#*-#### 

sub ShowIntroPage ($,$, $) 
{ 

my $oTemplate = shift; 
my $sPartnerCode = shift; 
my $sUserName = shift; 
my $oToken = shift; 
my $oCGI « shift; 
my $oErr = shift; 

my (SnUserSeq, $oUserData); 

my $oAction = new XDrive :: Client :: Actions ( $oToken, $oCGI ) ; 
my SquotaAvailable = $oAction->QuotaFree { ) ; 
SquotaAvailable = sprintf ( "%2 . 2f " , $quotaAvailable/1024 ) ; 

my $oDiskAccount = XDrive :: DatabaseO; ; Table :: DiskAccount- 
>new(undef, undef ) ; 

$oDiskAccount->loadWhere ( 'USERNAME' , $sUserName) ; 
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my $nUserSeq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 



my $oSearch = XDrive :: DatabaseO: : Search->new ($oDiskAccount- 
>fetchDBO() ) ; 

my $items = $oSearch->XDGet ItemsForSale ( $nUserSeq) ; 

my $iterhString=' • ; 
my $i; 

for $i (0. . $#{$items} ) 
{ 

##now using the code, get the description for the item in the 
##proper language. This is kept in List.pm 
my $code = "EPOCH_$items-> [$i ] [ 1 ] " ; 

my $description = $oErr->ReturnMessageGivenCode ($code) ; 
$itemString .= M <LI>$description" ; 

} 

## Load the required template HTML files. 
$oTemplate->load ( 1 addspace — int ro . thtml ' ) ; 
$oTemplate->tags 
({ 

'products' => SitemString, 
•quota' => $quotaAvailable 
}); 

$oTemplate->clear; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get ( ) ; 

} 



############################################################################ 

## ShowForm: called to show the user the blank form 

## 

############################################################################ 

sub ShowForm {$, $) 
{ 

my $oTemplate - shift; 
my $sUserName = shift; 
my $oErr = shift; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , undef ) ; . ~ ■ ■ 

$oDiskAccount->loadWhere ( • USERNAME ' , $sUserName ) ; 
my $nUserSeq = $oDiskAccount->f etchColumn ( "USER_SEQ M ) ; 



my $oSearch = XDrive :: DatabaseO: : Search->new ($oDiskAccount- 
>fetchDBO( ) ) ; 

my $items = $oSearch->XDGet ItemsForSale { $nUserSeq) ; 

my $oDeal = XDrive :: DatabaseO: : Table :: Deal->new(undef, $oDiskAccount- 
>fetchDBO( ) ) ; 

my $itemString=* 1 ; 
my $i; 

for $i(0. .$#{$items}) 
{ 

$oDeal->loadWhere ("ITEM_SEQ ,, / $items->[$i] [0] ) ; 
my $pi_code = $oDeal->f etchColumn ( "PRODUCT_CODE") ; 
my $code = "EPOCH_$items-> [$i] [ 1 ] " ; 

my $description - $oErr->ReturnMessageGivenCode ($code) ; 
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if ($i == 0) 
{ 

$itemString .= '<input t ype="radio" name="pi_code" value="' . 
$pi_code . ' M CHECKED> ' . $descript ion . ' <BR> 1 ; 
} 

else 
{ 

$itemString .= 1 <input t ype="radio" name= r, pi_code" value=*" . 
$pi_code . '">' . $description . '<BR>'; 
} 

} 

$oDeal->disconnect ( ) ; 

## Load the required template HTML files. 
$oTemplate->load ( 1 addspace_request . thtml ' ) ; 
$oTemplate->tags 
( { 

'products' => $itemString 
) ) ; 

$oTeroplate->clear; 

print "Content-type : t ext /html\n\n " ; 
print $oTemplate->get < ) ; 

} 

######### ################################################## 

## WriteToFailedDatabase: if the transaction fails write it to the failed 
## transactions table 

#####«*###*#**##*##***#ft#*###**«tt####*#*#**#t»#«###fftft##**###-tl####tf**### 

sub WriteToFailedDatabase {$, \%, $, $) 
{ 

my $sTransCode = shift; 
my $hDash = shift; 
my $sUserName = shift; 
my $oDBH = shift; 

my %transInfo; 

##write transaction info into database 

my $oDiskAccount « XDrive :: DatabaseO: : Table :: DiskAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere { * USERNAME " , $sUserName) ; 

$transInfo{ 'use^seq' } = $oDiskAccount->f etchColumn { »USER_SEQ' ) ; 
$oDiskAccount->f inish < ) ; 

$transInfo{ 1 trans_code 1 } = $sTransCode; 
$transInfo{ 'product_code • } = $hDash->{ 'pi_code' }; 
$transInfo{ 'IP' } = $hDash-> { ' ipaddr • } ; 

my $intoDB = XDrive : : Sale : : Purchase->new ($oDBH) ; 

my terror = $intoDB->FailedTransaction { \%translnf o) ; 

return $error; 

) 

############################################################################ 
## WriteToPurchaseDatabase: write the user transaction info to th 
user_ purchase 
## table 

############################################################################ 
sub WriteToPurchaseDatabase ($, \%, $, $ ) 
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{ 

my $sTransCode = shift; 
my $hDash = shift; 
my $sUserName = shift; 
my $oDBH = shift; 

my %transInfo; 

##write transaction info into database 

my $oDiskAccount - XDrive :: DatabaseO: ; Table :: DiskAccount- 
>new(undef r $oDBH) ; 

$oDiskAccount->loadWhere ( • USERNAME 1 , $sUserName) ; 

$transInfo{ 'userseq' } = $oDiskAccount->f etchColumn { ' USER_SEQ' ) ; 
$transInfo( 'account^seq' } = $oDiskAccount->f etchColumn (' USER SEQ'); 
$oDiskAccount->f inish ( ) ; ~" 
$transInfo{ 1 trans_code' } = $sTransCode; 
$transInfo{ 'product_code ' } = $hDash->{ 'placode' } ; 

my $intoDB = XDrive :: Sale :: Purchase->new ($oDBH) ; 
my $error - $intoDB->Checkout ( \% translnf o) ; 
return $error; 

} 

*#*##***«**t#t*####«##<###4#**t*#«#****t##t###*##**«#tt*####***#f #**«**#**## 

## TransactionOK: if the tranaction was processed and ok'ed, we add the 
proper space to the 

## user's xdrive and let them know the space has been added 

######################################################################### ### 

sub TransactionOK ($, \%, $, $) 
{ 

my $sTransCode = shift; 
my $hDash - shift; 
my $sUserName = shift; 
my $oTemplate = shift; 
my $oDBH = shift; 
my $oToken = shift; 
my $oCGI « shift; 
my $oErr = shift; 

my $oDiskAccount « XDrive :: DatabaseO: : Table :: Dis kAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere { ' USERNAME • , $sUserName) ; 
my $userSeq= $oDiskAccount->f etchColumn (' USER_SEQ ') ; 

my @aCodes=split (/\ | /, SsTransCode) ; 
$aCodes(l]=~s/~//; 
my SsNewQuota; 
my $sAddedSpace; 

my $oDeal = XDrive : : DatabaseO: : Table :: Deal->new (undef, $oDBH) ; 
$oDeal->loadWhere ( 1 PRODUCT_C0DE ■ , $hDash->{ 'pi_code' } ) ; 
my $itemSeq = $oDeal->f etchColumn ( 1 ITEM_SEQ 1 ) ; 

my $oItem = XDrive :: DatabaseO: :Table :: Item->new (undef , $oDeal- 
>fetchDBO() ) ; 

$oItem->loadWhere ( 1 SEQ ' , $itemSeq) ; 

my $sCode = M EPOCH_" . $oItem->f etchColumn (' CODE * ) ; 
my $sDescription = $oErr->ReturnMessageGivenCode ($sCode ) ; 

my $sSpaceToAdd = $oItem->f etchColumn (' NAME ' ) ; 

my $oAction = new XDrive :: Client :: Actions ( $oToken, $oCGI ) ; 
$sNewQuota = $sSpaceToAdd + $oAction->QuotaLimit { ) ; 
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##now set the new quota 

##in the database and in the ncftpd database 
##used during testing to reset occasionally 
##$sNewQuota = 25600; 

XDQuotaLimit ( $sUserName, $sNewQuota) ; 

##insert into the spool to update ftp account 

## Load the required template HTML files. 
$oTemplate->load { 1 addspace_ok . thtml 1 ) ; 
$oTemplate->tags 
({ 

' transactionCode 1 => $aCodes[l] / 
1 addedSpace' => $sDescript ion 
}) ; 

$oTemplate->clear; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get ( ) ; 

) 

############################################################################ 
## TransactionBad: If we get an error code beginning with and N, it ' s a 
declined tranaction 

## get the error code and give user the bad tranaction page with error code 
############################################################################ 

sub TransactionBad ($, $) 
{ 

my $sTransCode = shift; 
my $oTemplate = shift; 
my $oErrors = shift; 

if ($sTransCode!~/"Ad+$/) 
{ 

lienor codes contains 
$sTransCode="EPOCH_" . $sTransCode; 
chop ($sTransCode) ; 

} 

##$oErrors->AddErrorByErrorCode ($sTransCode) ; 

$oErrors->AddErrorByCodeIncludes ($sTransCode ) ; 
my $sReturnError=$oErrors->Message ($sTransCode) ; 

if ( ! $sReturnError ) 
{ 

$sReturnError = "The was an problem processing your transaction. 
Please try again."; 
) 

## Load the required template HTML files. 
$oTemplate->load( 1 addspace_bad . thtml ' ) ; 
$oTemplate->tags 
({ 

•error 1 => $sReturnError 
)>; 

$oTemplate->clear; 

print "Content-type: text /html\n\n" ; 
print $oTemplate->get () ; 
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###client_info.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI ; 

exit &main; 

sub main () 
{ 

my $oCGI = CGI->new(); 

##get this info from Michael . Ryan ' s or Gavin's client 
my $sUsername = $oCGI ->param ( r username ' ) ; 

my $sClientType = $oCGI->param ( ' client_type ' ) ; 
my SsClientVersion = $oCGI->param ( ' client_version 1 ) ; 
my $bFirstTime = $oCGI->param ( ' f irst_time ' ) ; 

##hash of NT info for current version of client 
##version 1.0 is 0 in the array of upgrades 
my %infoNT; 
my @featuresNT; 

$infoNT{ ' current_version' } = '1.0'; 
$inf oNT{ 1 f orce_upgrade' } = 0; 

$infoNT{ 'client^url' } = 1 http : //www . xdrive . com/download/xdrivent . exe ' 
##holds the first array subscript in which upgrade info is kept 
$infoNT{ 1 1.0' } = 0; 

$featuresNT[0] [0] = 'beta release 1 ; 

## $featuresNT[0] [1] = 'First new feature'; 

## $featuresNT[0] [2] = 'Second new feature'; 



for current version of client 
0 in the array of upgrades 



##hash of 95 info 
inversion 2.03 is 
my %info95; 
my @features95; 
$info95{ ' current_version ' } = 
$info95{ ' f orce_upgrade ' } = 0; 
$info95{ 'client_url' } = 'http: //www 



'2.03' 



$info95{ '2. 00' } = 
$info95{ '2.01' } = 
$info95{ '2.02' } = 
$info95{ '2.03' } = 
$info95{ '2.04' } = 
$features95[3] [0] 



xdri ve . com/download/xdrive . exe ' 



'automatic proxy support. 



examples of other features 



## $features95[0] [1] 
## $features95 [0] [2] 
## $features95[l] [0] 
## $features95 [1] [1] 



'2.03 feature 1' 

'2.03 feature 2' 

'2.04 feature 1' 

2.04 feature 2' 



my $returnString=' '; 
my $ref_to_hash; 
my $ref_to_array; 



##point to hash and array for type of client 
#fcthis way no need to create separate functions 
if ($sClientType =~ /^xdwin9x/) 
{ 

$ref_to hash=\%info95; 



28 



9 of 137 



WO 01/33381 PCT/US00/30536 

$ref_to_array=\@ features 95; 

) 

elsif ($sClientType / A xdwinnt/) 
{ 

$ref__to_hash=A%inf oNT; 
$ref_to_array=\@f eaturesNT; 

} 

else { } 



if ( ($sClientType =- /~xdwin9x/) M ( $sClientType =»- /^xdwinnt / ) ) 
( 

##if the user's version of the client is older than the 
##current version, ask them to upgrade and tell them 
##about new features 
my $feature_text= l ' ; 

if ($ref_to_hash->{ * current_version ' } > $sClientVersion) 
{ 

##get all features from the version 1 above the user's 
##to the current version 

my $array_number_start - $ref_to_hash-> { $sClientVersion} + 

l; 

my $array_number_end = $ref_to_hash-> { $ref_to_hash- 
>{ 1 current_version 1 } } ; 

##Assemble a big string of new features for 
##newer versions than user has 
my ($i,$j); 

for $i ($array_number_start . . $array_number_end) 
{ 

for $j (0 . . $#{$ref_to_array->[$i] }) 
{ 

$feature_text " - M . $ref_to_array-> [$i] [ $ j ] 

- "i"; 

} 

) 

} 

$returnString = join ("\n", 

"client_version=$ref_to_hash->{ 'current^version' }", 
"force_upgrade= ; $ref_to_hash->{ ' f orce_upgrade 1 } M , 
"client_url=$ref_toJiash->{ , client_url' } *' , 
"client_text=$f eature_text 
) ; 



$returnString = join ("\n" , 
"client_version=0 . 0", 
" f or ce_upgr ade-~ 1 " , 

"client_url=No url . Please contact X: drive", 
M client_text=", 

); 



} 

else 
{ 



print $oCGI->header ( ) ; 
print $returnString; 



##if ($bFirstTime) 
## { 

## Record the version number 

## XDClient First TimeUse 
## ( 

## $sUsername, 
## SsClientType, 



WO 01/33381 PCT/US00/30536 

## SsClientVersion 
## ); 
## } 
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###cookie.cgi 

# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> to verify that the user is 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 



use strict ; 

use lib ($ENV{ PERL_XDRIVE__LIB } ) ; 

use XDrive: :DatabaseO: : Table: : DiskAccount ; 

use XDrive: : DatabaseO: :Table: : UserSettings ; 

use XDrive: : DatabaseO: : Table: :UserQuota; 

use XDrive : : DatabaseO: : Table : : Language; 

use XDrive :: DatabaseO: : Search; 

use CGI; 

use XDrive: : CGI: : Cookie; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

use XDrive: :CGI; 

use XDrive: :Client: :Security; 

use XDrive :: Error ; 

use XDrive :: Template; 

use XDrive :: Library; 

use XDrive: : DatabaseO; 

use Mail : :Sendmail; 

&main ; 
exit ; 



sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $oCookie = new XDrive : : CGI : : Cookie ( * x_session_info * , $oCGI); 

my SoToken; 
my $sToken; 
my $sUsername; 
my $sPartnerCode; 



my $bSecurity = $oCGI->param ( • bSecurity 9 ) ; 

my $sPartnerToken = $oCGI->param ( 'partner_token ' ) ; 

my $passed_lang « $oCGI->param (' language 1 ) ; 

##### 

## Attempt to authenticate the user by using one of the following two 
## authentication methods: username/password pair or partner token 
## authentication. 
##### 

if (! defined $s(Jsername && length ($sPartnerToken) > 20) 
{ 

authPartnerUser (SoCGI, $oErr, $oDBO, \$sUsemame, \$oToken, 

\$sPartnerCode, $sPartnerToken) ; 
$sToken = $oToken->name ( ) ; 
} 

else 

{ 

authWebSiteUser ($oCGI, $oErr, $oDBO, \$sUsername, \$oToken) ; 
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##### 

## If an error occurud while trying to create a token then redirect 

## the user to the error page. 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect ; 
xd_fatal_error ( $oCGI , $oErr ) ; 
exit; 
} 

##### 

## If we have gotten here then we have an authenticated user. 
##### 

##### 

## Build and print out cookies 
##### 

my SsLanguage = getLanguage($oDBO, $sUsername) ; 



##check if user's language is the same as passed language 

if ( (length ($passed__lang) > 0) && $sLanguage ne $passed_lang ) 

##update db here to new language 
setLanguage <$oDBO, $sUsername, $passed_lang ) ; 
##update session to new language 
$sLanguage « $passed__lang; 



##delete the promo cookie; this will not be set here and we 
##don't want an old one hanging out 
##promo cookies should be set in promo. cgi 

$oCookie->deleteElement ( 'promo* ) if $oCookie->getElement ( ' promo 1 ) ; 

$oCookie->setElement 
({ 

•language' => $sLanguage, 
•partner' => $sPartnerCode, 
} ) ; 

print "Set-Cookie: $oCookie->asString ( ) ; 

print "Set-Cookie: SST=$sToken; domain=. xdrive . com; path=/\n" 
if $sPartnerCode ne 'xdrv'; 

##### 

## write user login to the database 
##### 

SincrementLoginNumber ($oDBO # $sUsername / $sLanguage / $sPartnerCode ) ; 
##### 

## Send the user off into thier file explorer 
##### 

if ($ENV{ ' HTTP_USER_AGENT ' } / A xdwin/) 
{ 

print $oCGI->redirect ("?sst=" . $oToken->name { ) . "&sid=0") ; 

else 
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{ 

xd_web_open ($oCGI, "", \%ENV, $bSecurity) ; 

} 

$oDBO->disconnect ; 

return 0; 

} 

sub incrementLoginNumber ( ) 
{ 

my $oDBO = shift; 
my $sUsername = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new (undef, $oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
$oDiskAccount->f inish; 

my $timesLoggedIn = $oDiskAccount->f etchColumn ( "LOGIN_NUM" ) ; 
my $user_ seq = $oDis kAccount->f etchColumn ( "USER_SEQ" ) ; 

if ($timesLoggedIn) 
{ 

$ t imes Logged I n++ ; 
} 

else 

{ 

StimesLoggedln^l ; 
} 

$oDiskAccount->setColumn ( "L0GIN_NUM" , $t imesLoggedln) ; 
$oDiskAccount->setColumn{"LAST_LOGIN r, ,XDToday () ) ; 

my ^status = $oDiskAccount->update { ) ; 

if ($status > -1) 
{ 

$oDiskAccount->commit () ; 
$oDiskAccount->f inish ( ) ; 

##give user extra 10MB if 10th login 

if ($timesLoggedIn == 10) 

{ 

my $oUserQuota = XDrive :: DatabaseO :: Table :: UserQuota- 

>new {undef , $oDBO) ; 

$oUserQuota->loadWhere ( M USER_SEQ", $user_seq) ; 
my $additional_quota = $oUserQuota- 
>incrementQuota ($user_seq, 10240) ; 

if ($additional_quota > 0) 
{ 

&send_email ($user_seq, $oDBO, 
$additional_quota, $sLanguage, $sPartnerCode) ; 

} 

} 

) 

else 
{ 

# $oDiskAccount->rollback ( ) ; 
) 
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sub s e nd_ema i 1 
{ 

my $user_seq = shift ; 

my $oDBO = shift; 
my $additional_quota = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

##comes in as k, change to megabytes 
my $mbs = $addit ional_quota/1024 ; 

my $oUserData = XDrive :: DatabaseO: : Table: : UserData->new (undef, $oDBO) ; 
$oUserData->loadWhere ("SEQ", $user_seq) ; 

my $email_address = $oUserData->f etchColumn { °EMAIL_ADDRESS " ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME FIRST") ; 
my $name_last = $oUserData->f etchColumn ( "NAME LAST"); 

my $oTemplate = new XDrive :: Template 

({ 

'language 1 => $sLanguage, 

'partner_code' => $sPartnerCode / 
)) ; 



$oTemplate->load( 1 received_10MB_101ogins . thtml • ) ; 
$oTemplate->tags ( { 

'mbs' => $mbs , 
>) ; 

$oTemplate->clear { ) ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To ^> H $name__first $name_last <$email address>", 

Bcc => ' » , 

From => "support \@xdri ve.com", 
Message =>' $message, 
Subject "Congratulations!" 
) ; 



sendmail (%toXdrive) ; 



sub authPartnerUser 
{ 

my $oCGI = shift; 

my $oErr = shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my SrsPartnerCode « shift; 

my $sPartnerToken « shift; 

my $oCookie = new XDrive :: CGI :: Cookie ( 1 x_session_inf o • , $oCGI) ; 

my $oPartnerToken = new Token 
({ 

•err' => $oErr, 
•dbh* => $oDB0, 
)) ; 

$oPartnerToken->load (SsPartnerToken) ; 
return if $oErr->Occurud; 
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$$roToken - new Token 
({ 

'dbh' => $oDB0, 
•err 1 => $oErr, 

1 user_sequence ' => $oPartnerToken->data ( ' user_seq ' ) , 
}); 

$$roToken->create ( ) ; 
return if $oErr->Occurud; 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
$$rsPartnerCode = $oPartnerToken->data ( ' partner_code 1 ) ; 
##$$rsPartnerCode = $oCookie->getElement (• partner • ) ; 
$$rsCJsername = $oPartnerToken->data ( • user • ) ; 

$$roToken->data ( ' ip' , $ENV{ REMOTE_ADDR} ) ; 
$$roToken->data ( 'browser ■ , $ENV{ HTTP_USER__AGENT } ) ; 
$$roToken->data ( 'user 1 , $$rsUsername) ; 

$$roToken->data ( ' user_seq ' , $oPartnerToken->data ( • user_seq • ) ) ; 
$$roToken->data ( 'partner_code ■ , $$rsPartnerCode) ; 
$$roToken->data ( * disk_account_seq • , $oPartnerToken- 
>data { • disk_account_seq' ) ) ; 
$$roToken->save; 

$oPartnerToken->delete ( ) ; 



sub authWebSiteUser 
{ 

my $oCGI = shift ; 

my $oErr = shift; 

my $oDBO = shift ; 

my $rsUsername = shift; 

my $roToken = shift; 

my $sPassword » $oCGI->param ( ■ pass • ) ; 
$$rsUsername = $oCGI->param ( ' user 1 } ; 

$oCGI->param< 'user' ) ; 

if (xd_auth_password($$rsUsername, $sPassword / $oDBO) ) 
{ 

* 

## Login the user info Xrdrive and get the session token 
$$roToken = xd_login ($oCGI , $$rsUsername, $oErr, $oDBO) ; 
} 

else 

{ 

$oErr->AddErrorByErrorCode ( ' 501 • ) ; 
) 

) 

sub getLanguage 
{ 

my $oDB0 = shift; 

my $sUsername = shift; 

my $language; 

## get the user's language out of the database 
my SoDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new(undef , $oDBO) ; 

$oDiskAccount->loadWhere< "USERNAME", $sUsername) ; 
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SoDi skAccount-> finish; 

my SuserSeq = SoDis kAccount->f etchColumn < "USER_SEQ" ) ; 

my SoUserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 
>new(undef ; SoDBO) ; 

SoUserSettings->loadWhere ( "USER_SEQ", $userSeq) ; 
SoUserSettings->f inish ; 

my Slanguage = $oUserSet tings->f etchColumn ( "LANGUAGE" ) ; 

if (Slanguage eq 1 ') 
{ 

Slanguage = 'english'; 
} 

else 

{ 

## Get language from database given code 
my SoLanguage = XDrive :: DatabaseO :: Table :: Lanquaqe- 
>new(undef , SoDBO) ; 

$oLanguage->loadWhere { "SEQ", $language) ; 
SoLanguage->f inish; 

Slanguage = $oLanguage->f etchColumn ( "CODE" ) ; 

return Slanguage; 
} 

sub setLanguage 
{ 

##set the LANGUAGE column of the User Settings table to passed 
language ~ 



my $oDBO = shift; 

my SsUsername - shift; 

my Slanguage « shift; 

my ($rv, SerrorCode) ; 

## get the user's language out of the database 
my SoDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new (undef, SoDBO) ; 

##grab right table 
SoDiskAccount->loadWhere ("USERNAME", SsUsername) ; 
SoDis kAccpunt->f inish; 

my SuserSeq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

my SoUserSettings = XDrive :: DatabaseO :: Table :: UserSettinqs- 
>new(undef,$oDBO) ; 

SoUserSettings->loadWhere ( "USER_SEQ" , SuserSeq) ; 
SoUserSettings->f inish; 

##grab the seq number of the LANGUAGE being passed 

my SoLanguage - XDrive: : DatabaseO: : Table: : Language->new (undef, SoDBO) ; 
SoLanguage->loadWhere ( "CODE", Slanguage) ; 
SoLanguage->f inish { ) ; 

my $seq_lang = $oLanguage->f etchColumn ( "SEQ" ) ; 

eval 
{ 

## 

##set language here 
Srv = 0; 
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$oUserSettings->setColumn ( * LANGUAGE' , $seq_lang) ; 
$ rv = $oUserSettings->update ( ) ; 

}; 

if ($rv == 0) 
{ 

$oUserSettings->rollback ( ) ; 
$errorCode = 0; 

} 

else 
( 

$oUserSettings->commit { ) ; 
$errorCode = 1; 

} 

return $errorCode; 
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###download_client.cgi 



# ! /usr/bin/perl 
## Written by Karen Eppinger 

Script that shows the 'download the client' page 
it can no longer be static html because we need to 
do some checking on whether the user is from a partner or not 
## if so, make sure to let them know what their Xrdrive login name 
## is if it differs from their partner login 



## 
## 
## 



use strict; 

use lib ($ENJV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use XDrive :: Library; 

use XDrive: : Template; 

use XDrive: : Error; 

use XDrive: : DatabaseO; 

use XDrive: :Client: :Security; 

use XDrive : : DatabaseO : : Table : : ResellerUserMap; 
use XDrive: : DatabaseO: :Table: : Reseller; 

&main; 
exit ; 

sub main 
{ 

## Load the session token 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $oCGI = new CGI; 

my SoToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 

my $oCookie = new XDrive : : CGI : : Cookie ( 1 x_session_info 1 , $oCGI); 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

exit; 

} 

my $partner_code » $oToken->data ( 'partner_code 1 ) ; 

my Slanguage = $oCookie->getElement ( • language • ) || 'english'; 

my $oForm = new XDrive: : Template 
({ 

•partner_code' => $partner__code, 
•language' => $language, 
> > '' 

$oForm->load( 'download_client . thtml 1 ) ; 

##if we are coming from a partner, make sure partner login 
##and X: drive login match 

my $reseller_username; 
my $reseller_name; 
my $partner_warning; 
my $username; 
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if ($partner_code ne ' xdrv ' ) 
{ 

my $user_seq = $oToken->data ( ' user_seq ' ) ; 
$username = $oToken->data ( ' user 1 ) ; 

my $oResellerUserMap = XDrive :: DatabaseO :: Table :: ResellerUserMap- 
>new(undef, $oDBO) ; 

my $oReseller = XDrive :: DatabaseO: : Table :: Reseller->new ( undef, 

$oDBO) ; 

$oReseller->loadWhere ("CODE", $partner_code) ; 
$reseller_name = $oReseller->f etchColumn ( "NAME" ) ; 
$oResellerUserMap->loadWhere ( "USER_SEQ", $user_seq) ; 
$reseller_username - $oResellerUserMap->f etchColumn ( "ALIAS" ) ; 

if {$reseller_username ne $username) 
{ 

##load the text for the warning message 
my $oWarning = new XDrive :: Template 
({ 

•partner_code 1 => $partner_code / 
•language' => $language, 
}) ; 

$oWarning->load ( * download_client_warning. thtml • ) ; 
$oWarning->tags 
({ 

1 reseller_name 1 ~> $reseller__name, 
'reseller_username' => $reseller_username / 
'username' => $username / 
}); 

$oWarning->clear ( ) ; 

$partner_warning = $oWarning->get ( ) ; 



$oForm->tags 
({ 

'partner^warning' => $partner_warning, 

1 reseller_name * => $ res el le rename, 

' reseller_username ' => $reseller_username, 

•username' => Susername, 

}) ; 

$oForm->clear ( ) ; 

print $oCGI->header ( ) , $oForm->get ; 
$oDBO->disconnect { ) ; 
return 0; 
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###email_change.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use XDrive : : Client : : Security; 
use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Table : :UserData; 
use XDrive: : DatabaseO: : Table : : Dis kAccount ; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use CGI; 

use XDrive :: Library; 
use XDrive: : Template; 
use XDrive :: Security; 
use XDrive: :CGI; 
use XDrive: : Error; 

use strict; 

&main; 
exit; 

sub main 



## Check the token is valid and is an error occured then 

## redirect with a fatal error 

#### 

my $oToken = xd_security_check ($oDBO, SoCGI, $oErr) ;. 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI / $oErr) ; 
exit ; 

} 

my $sUserName « $oToken->data ( * user • ) ; 
my $s01dEmail « $oCGI->param ( 9 oldEinail ' ) ; 
my $sNewEmail = $oCGI->param ( ■ newErnail 1 ) ; 

if {($s01dEmail eq ' 1 ) || ($sNewEmail eq fl )) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1350) ; 
XDErrorToBrowser ( " « , $sMessage, undef , $oToken) ; 



##first, get user_seq from the disk_account table 
##since we only have the user name, need to do this first 
my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount - 
>new (undef , undef) ; 

$oDiskAccount->loadWhere ( r USERNAME ' , $sUserName) ; 

my $nUserID = $oDiskAccount->f etchColumn ( ' USER_SEQ • ) ; 

##now that we have that, get the email address from 



my $oCGI 
my $oErr 
my $oDBO 



CGI->new{ ) ; 

new XDrive: : Error; 

new XDrive: .-DatabaseO; 
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##user table using the user_seq number to pull the seq number 
my $oUserInfo = XDrive :: DatabaseO: : Table :: UserData->new (undef , 
$oDiskAccount->f etchDBO( ) ) ; 

$oUserInfo->loadWhere ( • EMAIL_ADDRESS ' , $sNewEmail) ; 

##if a sequence number is returned, there is already a record 
##in the database with that email address, don't allow to change 

my $nSeqNumber = $oUserInf o->f etchColumn ( • SEQ » ) ; 

if ($nSeqNumber) 
{ 

$oUserInf o->disconnect () ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1351 ) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) / 

} 

else 
{ 

$oUserInfo->loadWhere ( • SEQ 1 , $nUserID) ; 

my $sEmailinDB = $oUserInfo->f etchColumn ( 1 EMAIL_ADDRESS f ) ; 

if ($s01dEmail eq $sEmailinDB) 
{ 

##set email in class 

$oUserInfo->setColumn{ ' EMAIL_ADDRESS 1 , $sNewEmail) ; 
##now update database 
$oUserInf o->update ( ) ; 

my $oTemplate = new XDrive :: Template 

( { 'partner_code' => $oToken- 

>data ( 1 partner__code ' ) } ) ; 

$oTemplate->load ( f pr_changeemail_ok . thtml ' ) ; 
print "Content-type: text/html\n\n"; 
print $oTemplate->get ( ) ; 

} 

else 
{ 

$oUserInf o->disconnect { ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1352) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

} 

} 

SoUserlnf o->commit { ) ; 
$oUserInf o->f inish ( ) ; 
$oUserInf o->disconnect ( ) ; 



41 



22 of 137 



WO 01/33381 



PCT/US00/30536 



###error.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use XDrive :: Error; 
use XDrive :: Template; 
use CGI; 

&main; 
exit ; 

sub main 
{ 

my $oCGI = new CGI; 

my (SsErrorCode) =. $ENV {QUERY_STRING } /error=( [ A \&\=]+) /; 

my $oError = new XDrive :: Error ; 

my $sError = $oError->ReturnMessageGivenCode ($sErrorCode ) ; 
my $oTemplate = new XDrive :: Template ( { *partner_code ' => 'xdrv' } ); 
$oTemplate->load ( 1 generic_error . thtml 1 ) ; 
$oTemplate->tags 
({ 

•message' => $sError 
}) ; 

$oTemplate->clear ( ) ; 

print $oCGI->header ( ) , $oTemplate->get ; 

} 
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###explorer.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Tue May 25 15:23:31 PDT 1999. 
## Program to build the file explorer which is itself a popup window. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}> ; 
#use vars qw(@ISA); 

#@ISA = qw (XDrive :: CGI) ; 

use CGI qw(param header); 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Date :: Format ; 

use HTTP: : Icons; 

# use XDrive::CGI qw(:MAIN); 
use XDrive: : Client :: Security; 
use XDrive: : Client :: Quota; 
use XDrive: : Library; 

use XDrive: : Template; 
use XDrive: : DatabaseO; 

use XDrive: : DatabaseO: : Table :: UserSettings; 
use XDrive :: DatabaseO: : Table :: DiskAccount; 
use XDrive: : DatabaseO: :Table: : UserData; 
use XDrive: : Error; 



&main; 



exit (0) ; 



sub main 



#### 

## Global variables 
#### 

my $oToken; 
my $sUsername; 
my $sPath; 
my $sSST; 
my $bEditExt; 
my $bFirstTime; 
my $bExtraHelp; 
my $bMarketing; 



## XDrive Token 
## username 
## path for index 
## Token name 

## Allow extensions to be edited? 
## First time the've logged in... 
## Print extra help 

## does user want to receive offers from other 



companies 



my $bNewsletter; ## does user want to receive our newsletter 

my $sPartner; ## partners name 

my $g_sFrameSize; ## breakdown of the centerview frame 

my $g_sFrameBanner; ## banner view frame information 



my $oDBO 
my $oCGI 
my $oErr 



XDrive : : DatabaseO->new (undef , undef ) ; 
new CGI; 

new XDrive :: Error; 

new XDrive: :CGI: :Cookie( 'x_session_inf o ' , $oCGI ) ; 



my SoCookie 



#### 



## If the user has bookmarked the X: drive service then redirect 
## them back to the homepage 



#### 
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if {! length ($oCGI->param ( ' sst ' ) ) && ! length ( $ oCG I -> cookie { 1 SST 1 )) ) 
{ 

print $oCGI->redirect ( ' /cgi-bin/web_unauthori zed . cgi ?error=804 * ) ; 
$oDBO->disconnect ( ) ; 
return 0; 
) 

#### 

## Check the security and if an error occurs 
#### 

$oToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 



if ($oErr->Occurud) { 

$oDBO->disconnect () ; 

xd_f atal_error ($oCGI, $oErr) ; 

exit; 

} 

#### 

## Now we know we have a valid session so pull the partner name 

## from a cookie if available or clear the variable 

#### 

# SsPartner = $oToken->data ( 'partner_code ' ) ; 
$sPartner = $oCookie->getElement ( 'partner ' ) ; 
$sPartner = "xdrv" if ($sPartner eq ""); 

## Load the required template HTML files. 

# my $oFrame = new XDrive :: Template 

# ({ 

# 1 partner_code ' => $oToken->data ( 1 partner code*) 

# } ) ; 

### Edited by Justin to check the cookie instead of 
### the token table for the partner_code . 
my $oFrame = new XDrive :: Template 
{{ 

■ partner_code • => $oCookie->getElement ( 'partner' ) 
}) ; 

## If the request comes from the windows app the give back a simplified 
template 

$oFrame->load < "acct_explorer_f rame . thtml " ) ; 

## Assign globally used variables 
$sPath = $oCGI->param( ■ sFolderCurrent ' ) ; 
$sSST = $oToken->name; 
$sUsername = $oToken->data ( ' user ' ) ; 



## User settings 

my $oDiskAccount - XDrive :: DatabaseO: : Table :: DiskAccount->new ( undef, 
$oDBO) ; 



my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSett ings->new (undef, 
$oDBO) ; 

my $oUserData = XDrive :: DatabaseO: : Table :: UserData->new (undef , $oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME", $sUsername) ; 
$oUserSettings->loadWhere ("USER_SEQ" # $oDiskAccount- 
>f etchColumn ( "USER_SEQ" ) ) ; 
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$oUserData->loadWhere ( "SEQ", $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) ; 



$bEditExt = $oUserSettings->fetchColumn(''FILE_EXT_EDITABLE") == 1 
'true' : 'false'; 

SbExtraHelp = { SoUserSett ings->f etchColumn ( "EXTRA_HELP" ) ==1) ? 
•true' : 'false*; 

$bMarketing = $oUserSettings->f etchColumn ( "OPT MARKETING") == 1 ? 
'true' : ' false' ; 

$bNewsletter = $oUserSettings->f etchColumn { "OPT NEWSLETTER") == 1 ? 
•true' : 'false'; ~ 

my $firstName = $oUser Data ->f etchColumn ( "NAME_FIRST" ) ; 
my $lastName = $oUserData->f etchColumn ( "NAME_LAST" ) ; 

my $first = $oCGI->param (' first f ) ; 

$bFirstTime = $ first eq 'yes' ? 'true' : 'false'; 
## Frame settings 

if ($sPartner eq 'cc' |j $sPartner eq ' qupa ' ) 
{ 

$g_sFrameSize - • 100%'; 
$g_sFrameBanner = ' '; 
} 



else 



{ 

$g_sFrameSize = '103,*'; 

$g_sFrameBanner = ' <FRAME NAME="banner " • . 

' SRC="/cgi-bin/ads. cgi" SCROLLING=NO BORDER=0 ' 
' FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 
' TOPMARGIN=0 LEFTMARGIN=0> * ; 

} 



##get the language information from the cookie 
##if no cookie or not set, set to english 
my %session_info = $oCGI->cookie ( ' x__session_inf o 1 ) ; 
my $language; 

if <$session_info{ 'language ' } ne ' ') { 

$language = $session_inf o{ ' language '} ; 

} 

else { 

Slanguage = 'english'; 

} 

my $client Download = $oCGI->param (' client ') ; 
my $sCenterPage = ' centerview. thtml ' ; 
if ($clientDownload eq 'getclient') { 

SsCenterPage = ' download_client . thtml ' ; 

} 



## Set the token name and session ID in the navigation form so that 

popup 

## windows have access to them and the do not need to be passed around 
$oFrame->tags 
({ 

•sSST' => $sSST, 

•bSettingEditExtensions • => $bEditExt, 
'sPartner' => $sPartner, 
•bExtraHelp' => $bExtraHelp, 
•bFirstTime' => SbFirstTinte, 
•bMarketing' => SbMarketing, 
•bNewsletter • => $bNewsletter, 
'centerPage' => $sCenterPage, 
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'userName' => $sUsername, 
■firstNarae' => $firstName, 
■lastName' => $lastName, 
• f rameBanner ' — > $g_sFrameBanner , 
• frameSize 1 => $g_sFrameSize, 
'language* => Slanguage 
>> ; 

## Print out the HTML and exit 
$oFrame->clear ( ) ; 

print $oCGI->header ( ) , $oFrame->get ; 

$oDiskAccount->f inish ( ) ; 
$oUserSettings->f inish ( ) ; 
$oUserData->f inish ( ) ; 

$oDBO->disconnect ( ) ; 
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###explorer_user_data.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Tue May 25 15:23:31 PDT 1999. 
## Program to build the file explorer which is itself a popup window. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use vars qw(@ISA); 

@ISA « qw ( XDrive :: CGI) ; 

use Data :: Dumper ; 

use CGI; 

use CGI::Carp qw { f atalsToBrowser ) ; 

use Token; 

use XDrive::CGI qw{:MAIN); 

use XDrive: : Client :: Actions ; 

use XDrive :: Client :: Security; 

use XDrive :: DatabaseO; 

use XDrive :: Library; 

use XDrive :: Template; 

use XDrive :: Error; 

6. ma in; 
exit ; 

sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive: : Error; 

my $oDBO = new XDrive :: DatabaseO; 

my $oToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 

if ($oErr->Occurud) 
{ 

xd_f atal_error ( $oCGI , $oEr r ) ; 

exit; 

} 

my $s Folder; 

my $oAction = new XDrive :: Client :: Actions ($oToken, $oCGI) ; 

$sFolder = $oCGI->param ( ' f older_current f ) ; 

## Load the required template HTML files, 
my $oFrame = new XDrive: : Template 
({ 

•partner_code ' => $oToken->data ( ' partner_code • ) 
) ) ; 

if ($ENV{ 1 HTTP_USER_AGENT ' } /^xdwin/) 
{ 

$oFrame->load ( "acct_user_da ta_xd_win . thtml " ) ; 
} 

else 

{ 

$oFrame->load{"acct_user_data. thtml" ) ; 
} 
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Dooun ## Set the token name and sesi °" ID in the navigation form so that 

## windows have access to them and the do not need to be passed around. 

({ 

'sst' => $oAction->SST ( ) , 
•sid* => $oAction->SID( ) , 

•usagejotal' $oAction->QuotaLimit { ) , 
'usage_used' => $oAction->QuotaUsed ( ) , 
•stuff -> $oAction->DiskAccountXML($sFolder) 
} ) * 

$oFrame->clear; 
$oAction->DisconnectDB ( ) ; 

## Print out the HTML and exit 

print "Cache-Control : no-cache\n" ; 

print "pragma: no-cache\n" ; 

print "Content-type; text /html\n\n" ; 

print $oFrame->get ; 

} 



JSDOCtD: <WO _0133381A1J_> 
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###fileJoad.cgi 

# ! /usr/bin/perl 

# Program written by Martin Hald <mhald@uci . edu> to fetch files from a 

# storage area or database and return them via a HTTP socket to the user. 

use strict; 

use CGI qw (header param) ; 

use CGI:: Carp * fatalsToBrowser ' ; 

## The HTTP: :MimeTypes module was a quick module that I wrote that reads the 
## standard apache mime. types file, parses it and given any known extension 
## translates it to the correct mimetype. 

use lib ($ENV{PERL_XDRIVEJLIB} ) ; 

use HTTP: :MimeTypes; 

use XDrive : .-Client :: Actions; 

use XDrive :: Client :: Security; 

use XDrive: :DatabaseO: : Table: : DiskI temShare; 

use XDrive :: DatabaseO; 

use XDrive :: Library; 

use XDrive :: Error; 

## We have two security methods when downloading files: 

## 1) tokens 

## 2) claim checks 

## to deal with this we simply security method we are using and process the 
## request. 

&main; 
exit ; 

sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error; 

my $oDB0 = new XDrive :: DatabaseO; 

my $sFileCurrent; ## Current File 
my $oAction; ## Action object 

#### 

## Process the request as a share a file pickup if the claim_check 

## param is available 

#### 

if (param (• claim_check r ) ) 
{ 

my $oShare; 

$oShare = XDrive :: DatabaseO: : Table :: DiskItemShare->new () ; 
$oShare->loadWhere("random_key" / param ( • claim_check • ) ) ; 

SoAction = new XDrive : :Client :: Actions ($oShare, SoCGI ) ; 
$sFileCurrent » join 
( 

V, 

$oShare->f etchColumn ( "ITEM_PATH" ) , 
$oShare->f etchColumn ( " ITEM_NAME" ) 
) ; 

} 

#### 
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## Otherwise it is an request from the browser or PC client 

## side program so let the actions object handle the request 
#### 



else 



{ 

#### 

## Attempt to authenticate the user and if that fails 

## then redirect to the error CGI 

#### 

my $oToken = xd security_check ( $oDBO, $oCGI, $oErr) ; 



if { $ oErr- >Occurud ) 
{ 

xd_fatal_error ($oCGI / $oErr ) ; 

exit; 

} 

#### 

## Now we know that we have a valid token so go ahead 
## and let the actions object handle the request 
#### 

$oAction = new XDrive :: Client :: Actions 
( 

$oToken, 
$oCGI 
) ; 

$sFileCurrent = $oAction->FileCurrent ( ) ; 
} 

## Check that the current file is OK. If this check fails then 
## the code does an XDErrorToBrowser and exists 
$oAction->FileCheck ($sFileCurrent ) ; 

print _header ($sFileCurrent) ; 

#■# Commented out by Justin because it was 

## including a 1 at the end of the file by printing it out. 
#print $oAction->FileLoad ($sFileCurrent ) ; 
$oAction->FileLoad ($sFileCurrent ) ; 

$oDBO->disconnect / 
} 

sub _header 
{ 

my $sFile = shift; 

my $mlt = new HTTP: :MimeTypes; 

## Grab the extension and lookup the correct mimetype using the mlt or 

mime 

## lookup table object. 

my $sHeader; ## MIME header 

my $sExtension; ## file extension 

## Clean up the filename by getting rid of any path that comes before 
## the filename. 
$sFile s=.+/~g; 

if (param ( 'mime 1 ) eq 'download') 
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{ 

if ($ENV{HTTP_USER_AGENT) /MSIE/) 
{ 

$sHeader .= "Content-Disposition: attachment; 
f ilename=$sFile\n"; 

$sHeader .= "Content-type: application/download; 
name^VSsFileV'NnW; 

} 

else 

{ 

$sHeader .= "Content-type: application/octet-st ream\n\n" ; 

} 



else 



{ 

my $dotPos=-l; 
my $returnPos=-l; 

while (($dotPos = index ($sFile, $dotPos) ) > -1) 

$returnPos = $dotPos; 
$dotPos++; 

} 

##if no extension set extension to nothing 

if ($returnPos < 0) 

{ 

$sExtension= 1 1 / 

} 

else 
{ 

$sExtension = substr ($sFile, $returnPos+l ) ; 

} 

$mlt->extension ($sExtension) ; 
$sHeader = $mlt->header { ) ; 
} 



} 



return $sHeader; 



sub IEHack () 
{ 

my $sFileCurrent = param ( ' sFileCurrent ' ) ; 

my (SsFileOnly) =» SsFileCurrent =- /\/ ( [ +) $/; 

my $s Javascript ; 

if (param ( 'source' ) eq 'www. fileExplorer . view' || param (' source * ) eq 
•www. fileExplorer . download' ) 
{ 

$sJavascript = «EOM; 
<SCRIPT LANGUAGE^ JAVASCRI PT> 
if (parent . parent . parent . name ) 
{ 

parent . parent . parent . parent . XDReset () ; 

parent . parent . parent . parent . XDRef reshExplorer ( ) ; 

} 

</SCRIPT> 
EOM 

} 

print <<EOM; 
Content-type: text /html 
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$sJavascript 

<0BJECT classid=CLSID:4CCF6192-4552-llD3-80A8-0050048D4BF8 
codebase="http: //209. 101 .43. 96/dll/xdf iles . cab" 
id=XDFiles> 

</OBJECT> 

<SCRIPT LANGUAGE="VBSCRIPT"> 



' Don't raise errors 
On Error Resume Next 

Dim oXDFiles • The ActiveX control 

1 Late bind to the control 

Set oXDFiles = CreateObject ( "XDFiles . XDFiles . 1 " ) 

1 If we got an error, they didn't install the ActiveX control 
If Err. Number <> 0 Then 

MsgBox "You must install the X: drive ActiveX control in order to 
download " & _ 

"the file. Please click Download again and when prompted to 
install the " & _ 

"ActiveX control, click Yes." 

End If 

' Set some test values for the properties 
oXDFiles . Prompt = True 

oXDFiles . Destination = "c : W$sFileOnly" 
oXDFiles. File = "$sFileCurrent " 

' Call each method 
oXDFiles. Get 

• Print out each property 

' document . write ( "oXDFiles . Destination = " & oXDFiles . Destination & "<br>") 
1 document .write ("oXDFiles . Prompt = " & CBool (oXDFiles . Prompt ) & "<br>") 
1 document .write ("oXDFiles -File = " & oXDFiles . File & "<br>") 

* document . write ( "oXDFiles . ServerSideToken = " & oXDFiles . ServerSideToken & 
"<br>") 

' document .write ("oXDFiles. Sessionld = " & oXDFiles . Sessionld & "<br>") 

1 Free the ActiveX control 
Set oXDFiles = Nothing 

</SCRIPT> 

</BODY> 
</HTML> 
EOM 

} 
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###file_save.cgi 

# ! /usr/bin/perl 
###### 

### f ile__save . cgi 
###### 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI :: Carp qw ( f atalsToBrowser ) ; 
use Token; 

use XDrive : : CGI2; ## file upload functions 

use XDrive: : CGI qw{:MAIN); ## xd_web_but ton index function 

use XDrive :: Client :: Actions ; 

use XDrive :: Client :: Security; 

use XDrive :: Error ; 

use XDrive ;: Library; ## xd_fatal_error function 

use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Search; 

use XDrive :: Template; 

use XDrive: ."DatabaseO: transaction; 

&main; 

exit; 

sub main { 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $oSearch = new XDrive :: DatabaseO :: Search; 

my $oTransaction . - XDrive :: DatabaseO: : Transaction->new ($oDBO) ; 
#### 

## Parse the SST cookie manually and retrieve the user sequence 

## by passing it to the getUserSeq sub. 

#### 

my ($cookie) = $ENV { • HTTP_COOKIE ' > AbSST= < \w+) \b/ ; 

my $user_seq = &getUserSeq ($oSearch, $cookie); 

my $bytes = $ENV{ »CONTENT_LENGTH 1 } ; ## number of bytes being uploaded. 

my %upload_hash = ( , USER_SEQ' => $user_seq, 

• BYTES 1 => $bytes) ; 
my $oCGI = new XDrive: : CGI2 { \%upload_hash, $oTransaction) ; 

#### 

## Attempt to authenticate the user and if the authentication 

## fails then redirect to the error CGI 

#### 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 

if ($oErr->Occurud) { 

xd_f atal_error ($oCGI, $oErr) ; 

exit ; 
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##S######################################### ########################### 

#### 

###### 

### Check to see if they've exceeded 
### their quota limit, and error if so. 
###### 

# my SoUserQuota - XDrive :: DatabaseO: : Table :: UserQuota->new (undef, 
$oDBO) ; 

# $oUserQuota->loadWhere ( "USER_SEQ", $user_seq) ; 

# my $nQuota = $oUserQuota->f etchColumn ( "QUOTA" ) ; 

# my $nDiskUsed = $oUserQuota->f etchColumn ( "DISK_USED") ; 

# if ( ($nQuota * 1024) < ($nDiskUsed + $bytes) ) { 

# $oUserQuota->f inish ( ) ; 

# $oDBO->disconnect ( ) ; 

# ## let user know he or she has exceeded his quota 

# $oErr->AddErrorByErrorCode (124 0) ; 

# XDErrorToBrowser ( 1 action_upload error . thtml * , $oErr, 1, 

$oToken) ; 

# exit(0); 

# } 

############################################# ########################## 



#### 



#### 

## Authentication succeeded so we have a valid session, let 
## the actions object handle the request 



my $oAction = new XDrive :: Client :: Actions ($oToken , $oCGI); 

$oAction->SaveUploadedFiles ( ) ; 

#### 

## File has been uploaded at this point, so set 

## the upload inactive in the database. 

#### 

$oTransaction->setUploadInactive ( ) ; 

xd_web_buttonindex($oCGI) ; 
$oAction->DisconnectDB ( ) ; 

$oSearch->disconnect ( ) ; 
return 0; 



) 



###### 

### Subroutine: getUserSeq 

### Parameters: one object, one scalar 

### Returns: one scalar 

### Description: Receives a database search object and an SST token. 

Queries the token table for the user sequence and returns 

it . 

###### 

sub getUserSeq ($$) { 
my $oSearch = shift; 
my $sst_code = shift; 

my $st = "SELECT user_seq FROM token WHERE code = ' $sst_code * " ; 
my $data = $oSearch->XDSQLSearch ($st ) ; 
return $$data [ 0] [0] ; 

} 
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#! file_upload_stat.cgi 

# ! /usr/bin/perl 
use strict ; 

use lib ($ENV{P£RL_XDRIVE LIB}); 



use CGI; 

use XDrive::CGI; 

use CGI:: Carp qw { f atalsToBrowser ) ; 

use XDrive :: DatabaseO; 

use XDrive :: DatabaseO :: Search; 

use XDrive :: Error ; 

use XDrive: : Client :: Security; 

use XDrive :: Template; 

use XDrive: : Library; 

use Token; 

&main ( ) ; 

exit (0) ; 



sub main { 
my $oCGI 
my $oDBO 
my $oErr 



new CGI; 

new XDrive: : DatabaseO; 
new XDrive: : Error; 



###### 

### Security Check 
###### 

my $oToken = xd__security_check ($oDBO, $oCGI, $oErr) ; 
if ($oErr->Occurud It (! $oToken) ) { 

XDErrorToBrowser ( ,,M , "Security Violation: No token", undef, $oToken) ; 

} 

my ($tmp_file, @stat_array, $stat_bytes, $meta_ref resh, $percent, 
$width_green, $width_red) ; 

my ($url, $tmp__f ile_string, @tmp_f ile_array, $error_code) ; 

my $tmp_path = XDFileUploadTempDir ; 

my $oTemplate - new XDrive :: Template ( { ' partner_code ' => 'xdrv', 

•file' => 

* f ile_upload status . thtml ' } ) ; 

= $oCGI->param( ' id* ) ; 



- $oCGI->param ( 1 nof • ) ; 

= $oCGI->param( ' nof_queried ' ) ; 

= $oCGI->param( 1 tmp__f ile 1 ) ; 



## unique 

## number of 

## nof 

## initial file 



my $id 
upload id 

my $nof 
files 

my $nof_ queried 
retrieved from db 
my $file_param 
string 

my $total_file_string = $oCGI->param ( ■ total_f ile_string • ) ; ## string of 
all files 

my $param_uploaded « $oCGI->param { ' uploaded' ) ; ## bytes 

uploaded 

my $bytes = $oCGI->param (' bytes • > ; ## total number 

of bytes 

print $oCGI->header ( ) ; 
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###### 



stat) , 



f## First, if we're passed an upload id and no temp file params (files to 

- ) / 

### then we either haven't queried the database yet and need to or need to 

### query the database again because the number of files (nof) being 
uploaded ^ 

### is greater than the number of files that our first database querv 
returned. ^ * 

###### 

if ($id && (! $file_param) ) { 

. ### If this is the first pass, then percent will be a space and width 
will be 0. 

$percent = $bytes ? int(100 * { $param_uploaded / $bytes)) : 'finbsp-'- 
$width_green = ($percent eq •   • ) ? 0 : ^percent; ' 
$percent .= unless $percent eq '  '; 

my ^seconds; 

$width_red = &width_red ($width__green) ; 

$oTemplate->tags ( { ' width_green ' => $width_green, 
•width^red 1 => $width_red, 

•percent • => $percent } ) ; 

my $oSearch - new XDrive :: DatabaseO: : Search ( $oDBO) ; 

my ($cnt, $data) « $oSearch->uploadStatusSearch ($id) ; 

### If no rows were returned from the database, then redirect 
### and re-query the database, 
if ($cnt == 0) { 

$oSearch->disconnect ( ) ; 

$seconds = 0; 

$url = M /cgi-bin/file_upload_stat . cgi?" . 

"id=$id&nof=$nof&bytes=$bytes&uploaded=$param__uploaded"; 

$meta_refresh = fibuildMetaRef resh (Sseconds, $url); 
&connectingToServer($meta_refresh, $oTemplate) ; 
exit(0); 

} 

else { 

my $i = 0/ 

$bytes = $$data{$i] [0] ; 

$error_code = $$data [2] ; 

foreach (@$data) { 

$tmp_file = $$dataf$i] [1] ; 

push @tmp_file_array, $tmp_file; 
$i++; 

} 

$tmp_file_string = join 1 @tmp_f ile_array; 



if ($cnt == $nof) { 

$oSearch->disconnect ( ) / 
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Sstat FilesTotal ($bytes # $tmp_f ile_string, $oTemplate) ; 
exit (0) ; 

} 

$seconds = 0; 

$url = "/cgi-bin/f ile_upload_stat . cgi?" . 

"id=$id&nof =$nof &uploaded=$param__uploaded& " . 
"nof_queried=$cnt&bytes=$bytes&tmp_f ile=$tmp_f ile_string" ; 

$meta_ref resh = &buildMetaRef resh ( $seconds , $url); 

my $bytes_juploaded = < $param__uploaded > 0) ? $param_uploaded : 

&redirect ( $meta_ref resh, $bytes_uploaded, $bytes, $oTemplate) ; 

$oSearch->disconnect ( ) ; 

exit (0) ; 

> 

} 

elsif ($file__parara) { 
$oDBO->disconnect ( ) ; 

my @file_array = split $file_param; 
my $ary_cnt = @file_array; 

my ($uploaded_bytes, $seconds); 

if (scalar @file__array > 0) { 
foreach ( @f ile_array) { 

@stat_array = stat ( "$tmp_path/$_" ) ; 
$stat_bytes ~ $stat__array [ 7] ; 

$uploaded_bytes += $stat_bytes; 
push @tmp_f ile_array, 

} 

if { ($uploaded_bytes == $param_uploaded) && ($nof > $nof_queried) ) 

{ 

$seconds =0; 

$url = "/cgi-bin/file_upload_stat . cgi?" . 

"id=$id&nof=$nof &bytes=$bytes&uploaded=$paraTn_uploaded ,, ; 

$meta_refresh = SbuildMetaRef resh ( $seconds, $url); 

$percent = ($bytes ==0) ? 0 : int(100 * ( $param_uploaded / 

$bytes) ) ; 

$width_green = $percent; 
$percent .= ' % f ; 

&redirect ( $meta_ref resh, $uploaded_bytes, 

$bytes, $oTemplate, $percent / $width green) ; 

exit (0) ; 

} 

else { 

$tmp_f ile_string = join @tmp_f ile_array ; 

} 
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$percent = ($bytes ~ 0) ? 0 : int{100 * ( $uploaded_bytes / $bytes)); 
$width__green = ^percent; 
^percent . = ' % * ; 

$percent = 1  ' if $width_green 0; 
^seconds = 2; 

$url - "/cgi-bin/f ile_upload_stat . cgi?" . 

"id=$id&bytes=$bytes&nof=$nof &nof_queried=$nof_queried&" 
"uploaded=$uploaded_bytes&tmp_f ile==$tmp_f ile_string"; 

$meta_ref resh = SbuildMetaRef resh ( $seconds , $url) ; 

firedirect ($meta_refresh, $uploaded_bytes, $bytes, $oTemplate, $percent, 
$width_green) ; 

exit (0) ; 

} 

elsif ($total_f ile_string) { 
$oDBO->disconnect () ; 

&statFilesTotal ($bytes, $total_f ile_string, $oTemplate) ; 

else { 

$oDBO->disconnect ( ) ; 



&closeWindow ($oTemplate) ; 



exit (0) ; 



sub statFilesTotal ($$$) { 

my ($bytes, $tmp_f ile_string, $oTemplate) - @_; 

my $tmp_path = XDFileUploadTempDir ; 

my @file_array = split $tmp_f ile_string; 

my (@tmp_file_array, $uploaded__bytes, @stat_array, $stat_bytes) ; 
my $file_cnt = 0; 

foreach (@f ile_array) { 

if (-e "$tmp_path/$_") { 

estat array = stat ( "$tmp_path/$_") ; 
$stat_bytes = $s tat_array [ 7 ] ; 

$uploaded Jsytes += $stat_bytes; 

push @tmp__f ile_array, 

$f ile_cnt++; 

} 

} 

if ($file_cnt == 0) { 

&closeWindow ($oTemplate) ; 

exit (0) ; 

} 

else { 

my $percent = int (100 * ( $uploaded_bytes / $bytes)); 
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my $width__green = $percent; 

$percent .='%*; 

$percent = '  * if $width_green 0; 
my $seconds =2; 

my $url = "/cgi-bin/f ile_upload_stat . cgi?" . 

"bytes=$bytes\&total_file_string=$tmp_file_string"; 

my $meta_refresh = sbuildMetaRef resh ( $seconds , $url); 

&redirect ( $meta_ref resh, $uploaded_bytes , $bytes, SoTemplate, $percent, 
$width_green) ; 

exit (0) ; 

} 

} 

sub redirect ($$$$;$$) { 

my ($meta_refresh, $bytes_uploaded, $bytes, SoTemplate, $percent # 
$width_green) = @_; 

if {$bytes > 1024) { 

$bytes - sprintf "%.f", ($bytes / 1024); 
$bytes .= ' k*; 

} 

if ($bytes__uploaded > 1024) { 

$bytes_uploaded = sprintf "%.f", ( $bytes_uploaded / 1024); 
$bytes_uploaded .= 1 k'; 

} 

my $width_red « &width_red ( $width_green) ; 

$oTemplate->tags ( { • meta_ref resh ' => $meta_ref resh, 

•bytes^ploaded' => $bytes_uploaded, 
' bytes_total' => Sbytes, 
'percent* => $percent, 

f width_green' => $width_green, 
•width^red* => $width_red) ); 

$oTemplate->clear {) ; 
print $oTemplate->get ; 

} 

sub closeWindow (.$) { 

my $oTemplate = $_[0]/ 

$oTemplate->load( ■ f ileupload_stat window_close . thtml • ) ; 

print $oTemplate->get; 

} 

sub connectingToServer ($$) { 

my {$meta_refresh, $oTemplate) = 

$oTemplate->load( ' file_upload connecting . thtml 1 ) ; 

$oTemplate->tags ( { , meta_ref resh 1 => $meta_ref resh } ); 
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print $oTemplate->get ; 

} 

sub buildMetaRef resh ($$) { 
my ($seconds, $url) - @_; 

my $meta_refresh = "<meta http-equiv=ref resh content=\"$seconds; 
url=$url\ H >"; 

return $meta_ref resh; 

} 



sub width_red { 

my $width_green = shift; 

my $width_red = ((100 - $width_green ) > 0) ? 100 - $width_green : 0; 
return $width_jred; 

} 
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###folder_create.cgi 

# ! /usr/bin/perl 

# Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. 

use strict; 
use vars qw(@iSA); 

use lib <$ENV{PERL__XDRIVE_LIB) ) ; 
fuse lib qw(/export/home/xdrive/lib) ; 

$ENV{ , PATH , j = '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 

@ISA - qw(XDrive: :CGI) ; 

use CGI::Carp 1 f atalsToBrowser • ; 
use Date: : Format ; 
use Token; 

use XDrive::CGI qw(:MAIN); 
use XDrive: : Client :: Security; 
use XDrive: :Client : :Actions; 

use CGI; 

use XDrive: : DatabaseO; 
use XDrive :: Error; 

&main; 
exit ; 

sub main 
< 

my $oCGI 
my $oDBO 
my $oErr 

#### 

## Attempt to authenticate the user 
#### 

my $oToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 
#### 

## If the authentication failed then redirect to the 

## error cgi and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error <$oCGI, $oErr) ; 

exit ; 

} 

#### 

## Otherwise we know that we have a valid session and 

## can continue normally 

#### 

my $oAction = new XDrive :: Client :: Actions 
{ 

$oToken, 
$oCGI 
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); 

$oAction->FolderCreate ( ) ; 
xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB { ) ; 
return 0; 
} 
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use strict; 

use lib ($ENV{ PERL_XDRIVE_LIB } ) ; 

use CGI qw(param header); 

use CGI: :Carp qw ( f atalsToBrowser ) ; 

use Token; 

use XDrive::CGI (); 

use XDrive: : Template; 

use XDrive : : Client : : Registration; 

use XDrive: :DatabaseO: transaction; 

use XDrive: : DatabaseO: : Table : : DiskAccount; 

use XDrive: : DatabaseO: : Table : : UserData; 

use XDrive: : DatabaseO: : Search; 

use XDrive :: Library; 

use XDrive: :Utils: : RandomString; 

use Mail : : Sendmail; 

use constant TRUE => (1==1) ; 
use constant FALSE => ! TRUE; 

###################### 

my $request_template = "forgot_password request . thtml" ; 

my $thank_you_template = "f orgot_password t_y. thtml"; 

my $alert_template = "f orgot_password alert . thtml"; 

my $email_template = "password_admin email . thtml " ; 

###################### 

exit &main ( ) ; 

sub main { 

my $oCGI = CGI->new(); 

my $sEmailAddress = $oCGI->param ( 1 txtEmailAddress 1 ) ; 
my $sUsername = $oCGI->param( 'txtUsername* ) ; 

my $oContent = new XDrive :: Template ( { 1 partner_code f => •xdrv'} ); 
my $oNavigation = new XDrive :: Template { { f partner_code ' => 'xdrv' } ); 
my $oLayout = new XDrive :: Template ( {* partner code ' => 'xdrv'} ); 

## Load the required template HTML files. 
$oNavigation->load ( "f ront_nav . thtml M ) ; 
$oContent->load("front_signup. thtml") ; 
$oLayout->load ( "layout . thtml " ) ; 

if ( ($sEmailAddress) && ($sUsername) ) { 
## Change user's password 

my ©characters = ('a*. . 1 z ' , 'A' .. 'Z', '0'.. 1 9 ' ) ; 
my $sRandomKey = XDRandomString ( 8 , \@characters ) ; 

if (&PasswordSet ($oContent, $sUsername, $sEmailAddress , $sRandomKey) ) { 
sendMail ($oContent, $sUsername, $sRandomKey, $email_template) ; 

} 

&display_f orm (SoContent , $thank_you_template) ; 
) else { 

&display_form (SoContent , $request_template) ; 
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## Print out the HTML and exit 
$oLayout->tags 
({ 

1 header_graphic ' => • header_f ill . gif • , 
'title* => 'What is my password? 1 , 
•content* => $oConfent->get , 
'navigation* => $oNavigation->get , 
}) ; 

$oLayout->clear; 

print header, $oLayout->get ; 
return 0; 

} ' 

sub PasswordSet 
{ 

my ($oContent , $sUsername, $sEmail Address, $sPassword) = @ ; 
my $bReturnValue = 0; ~" 
my $status; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount->new () ; 
my $oUser = XDrive :: DatabaseO: : Table :: UserData->new (undef, $oDiskAccount- 
>fetchDBO( ) ) ; 

$oDiskAccount->loadWhere ("USERNAME", $sUsername) ; 

$oUser->loadWhere ( "SEQ" , $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) ; 

if ( (defined $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) 

&& ($oUser->f etchColumn ( "EMAIL_ADDRESS" ) eq $sEmailAddress ) 
) 

{ 

my SsPassEncrypted = XDEncrypt ($sPassword) ; 
$oDiskAccount->setColumn ( "PASSWORD", $sPassEncrypted) ; 
$oDiskAccount->update ( ) ; 
$oDiskAccount->commit { ) ; 
$bReturnValue = 1; 

} elsif( (defined $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) 

$&($oUser->fetchColumn("EMAIL_ADDRESS") ne $s Email Address ) 

) 

{ 

&sendMail ($oContent, $sUsername, "", $alert_template, " NOT"); 

} 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect () ; 

return $bReturnValue; 

} 

sub display_f orm { 

my ($oContent, $ template) - 
$oContent->load ($template) ; 

} 

sub sendMail { 

my ($oContent, $username / ^password, $template f $not) = @ ; 



my ($name_f irst , $name_last, $email_address, $data) ; 
my $oSearch = XDrive :: DatabaseO: : Search->new (undef ) ; 
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$data = $oSearch->XDUserInf oByUsername ( $username ) ; 
$name_first = $data-> [0] -> [0] ; 
$name_last = $data-> [ 0] -> [ 1 ] ; 
$email_address = $data-> [0] -> [2 ] ; 
$username = $data-> [0] -> [3] ; 



my ^message - &get_message ( $oContent , $name_f irst , $name_last, $username, 
$password, $template) ; 



my %toXdrive = 
( 

To => "$name_ first $name_last <$email_address>" , 

Bcc => 1 1 , 

From => " support \@xdrive . com" , 
Message => $message, 

Subject => "X: drive Password$not Updated!" 
) ; 



sendmail ( %toXdrive) ; 

) 

sub get_message { 

my ($oContent , $name_f irst, $name_last, $usemame, $password, $template) = 

@_; 

$name_first = ($name_f irst ) ? $name_ first : ""; 
$name_last = ($name_last ) ? $name_last : ""; 

$oContent->load ($template) ; 
$oContent->tags 
({ 

•name_f irst 1 => $name_first, 
'name^last' => $name_last, 
'password' => $password, 
'username' => $username, 

}); 

return $oContent->get ; 

} 
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###forgot_username.cgi 

# ! /usr/bin/perl 
use strict; 

use lib ($ENV{PERL_XDRIVE__LIB) ) ; 

use CGI qw (header param) ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Mail: :Sendmail; 

use Token; 

# use XDrive::CGI qw(;MAIN); 

use XDrive: .-Template; 

use XDrive: : DatabaseO: :Search; 

use XDrive: : Library; 

use XDrive: : Utils: : Randoms t ring; 

use constant TRUE => ( l-=i ) ; 
use constant FALSE => ! TRUE; 

###################### 

my $invalid_template = "invalid_email . thtml " ; 

my $request_template = "f orgot__username_request . thtml" • 

my $thank_you_template = w forgot_username t y. thtml"- ' 

my $email_template = "forgot username emailTthtml " ■ 
###################### " — ZnZm± 1 

exit &main () ; 

sub main { 

my $oCGI = CGI->new(); 

my $sEmailAddress = $oCGI->param ( ' txtEmailAddress ' ) ; 
my ($ar_usernames, $length) ; 

my $oSearch = XDrive :: DatabaseO: : Search->new (undef) ; 

my $oContent = new XDrive: .-Template; 
my $oNavigation = new XDrive :: Template; 
my $oLayout = new XDrive :: Template; 

$oContent->partner ( 'xdrv' ) ; 
$oNavigat ion->partner ( » xdrv ■ ) ; 
$oLayout ->partner ( ■ xdrv • ) ; 

## Load the required template HTML files. 
SoNavigat ion->load ( "f ront_nav . thtml " ) ; 
$oLayout->load ("layout, thtml") ; 

## IF a parameter of email adress has been processed 
## and in the correct format, then retreive usernames 
## associated with the email and send them. 

if (SsEmailAddress) 
{ 

##********************** + 

## added by kanlaya to check for correct email format 
##*/****.***************** I *\ * * 

if ($sEmailAddress =- /.*\@.*\./) 
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## Takes the email_address and returns an array_ref 
## of all the disk_account . usernames accociated 
## with that users user . email_address 

$ar usernames = $oSearch->XDUsernameFromEmail($sEraailAddress) ; 
$length = @$ar_usernames; 

## IF there are usernames found for this address, 
## then email the address the list of usernames. 
if($length > 0) 
{ 

&sendMail ( $ar_user names , $sEmailAddress, $length) ; 
} 

$oContent->load ( $thank_you_template ) ; 

$oContent->tags { { ' emailAddress 1 => $sEmailAddress, }) ; 



) 

else 

{$oContent->load($invalid_template) ; } 

************★*** + *** + *-****** 

## end add 

* * ★ ************★ + ** * ******* * 

} 

else 

{ $oContent->load ($request__template) ; } 

## Print out the HTML and exit 
$oLayout->tags 
({ 

• header_graphic 9 ■> 1 header_f ill . gif * / 
'title' => 'What is my username?', 
'content 1 => $oContent->get , 
•navigation' — > $oNavigation->get , 
>>; 

$oLayout->clear ; 



print header, $oLayout->get ; 
return 0; 

} 

sub sendMail { 

my <$usernames, $email, $length) = Q_; 



my $message = &get_message { $usernames, $ email-, $length) ; 

my %toXdrive - 

. ( 

To => "$email", 

Bcc => • • , 

From => "support \@xdrive .corn" , 

Message => $raessage, 

Subject => "X: drive Username Reminder" 
) ; 



sendmail (%toXdrive) ; 

} 

sub get_message { 

my ($usernames, $email, $length) = @_; 
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my (SsUsername, SsPluralS, SsPluralVerb) ; 
$sUsername = join("\n", @$usernames) ; 
$sPluralS = ($length > 1)? " s " : 
SsPluralVerb = ($length > 1)? "are"': "is"; 

my SoForm = new XDrive :: Template; 
$oForm->partner ( 1 xdrv ' ) ; 

$oForm->load ($email_template) ; 
$oForm->tags 
({ 

'sEmail Address f => $email, 
'sUsername' => $sUsername, 
•sPluralS* => SsPluralS, 
'sPluralVerb* => $sPluralVerb 
}); 

$oForm->clear ; 
return $oForm->get; 
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###frame_genericxgi 

# ! /usr/bin/perl 

## Written by Matt Clapp on 6/28/99 

## This CGI allows us to pass the sst and sid on to the inner frame 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use Token; 

use XDrive :: Library; 

use XDrive: : Template; 

use XDrive: : DatabaseO; 

use XDrive :: Error ; 

use XDrive: :Client :: Security; 

use XDrive:: CGI qw (XDErrorToBrowser ) ; 

use XDrive: : CGI :: Cookie; 

&main; 
exit; 

sub main 
{ 

my $oCGI = CGI->new(); 

my $oCookie » XDrive :: CGI :: Cookie->new {' x_session_inf o ' , $oCGI) ; 
my $language - $oCookie->getElement {' language ' ) ; 
$language = ' english' unless $language; 

my $sThtmlFile = $oCGI->param ( • thtml • ) ; 

my $sFrameHeight = $oCGI->param { ' sFrameHeight ■ ) ; 

if ($sFrameHeight = "") 
{ 

$sFrameHeight^" 40"; 
} 

if ($sThtmlFile eq 'downloadclient . thtml ' ) 
{ 

my $oTemplate = new XDrive : :Template ( { ' partner^code ' => 'xdrv'} 
$oTemplate->load (SsThtmlFile) ; 

$oTemplate->tags ( {'sFrameHeight' $sFrameHeight , 

'language* => $language} ); 

print "Content-type: text/html\n\n"; 
print $oTemplate»>get ( ) ; 
> 

elsif ($sThtmlFile eq ' centerview. thtml ' ) 
{ 

my $ s FrameSet ; 
if ($sFrameHeight > 1) 
{ 

$sFrameSet = "$sFrameHeight , *" ; 
} 

else 

{ 

SsFrameSet = "100%,*"; 
} 
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print <<EOM; 
Content-type : text/html 
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< FRAMESET R0WS= " SsPrameSet " BORDER=0 FRAMEBORDER=0 MARGINWIDTH=0 
MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN-0 f rameBorder=0 f rameSpacing=0> 
EOM 

if (SsFrameHeight > 1) 
{ 

print «EOM; 

< FRAME NAME=* controls 1 SRC=' /explorer/$language/buttons . html • 
SCR0LLING=N0 MARGINWIDTH=0 MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN=0> 
EOM 

} 

print <<EOM; 

< FRAME NAME= • userData • SRC= ' /cgi-bin/explorer_user_dat a . cgi ' 
SCROLLING=AUTO MARGINWIDTH=0 MARGINHEIGHT^O TOPMARGIN=0 LEFTMARGIN=0> 
</FRAMESET> 
EOM 

} 

else 

{ 

## Security check. Since the thtml file is passed in via the URL 

the server 

## can be hacked by passing in ../ offsets to get the directory 

the hacker 

## wants. A cleaner way would be to pass in a number and use 

that number 

## to access a hash, and die with a security violation if no such 

has key 

## exists. 

my $oDBO = XDri ve : : DatabaseO->new ( undef , undef ) ; 
my $oErr « new XDrive :: Error ; 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 
#### 

## If the user failed to autenticate or an error occured then 

## redirect them to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

} 

warn ,r # ALERT hacking attempt by " . $oToken->data ( ' user ' ) . 

" from " . $ ENV { REMOTE_I P } ; 
my $sMessage = $oErr->ReturnMessageGivenCode ( 34 1 ) ; 
XDErrorToBrowser ( $sMessage, undef, $oToken) ; 
$oDBO->disconnect ( ) ; 
exit; 
> 
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# ! /usr/bin/perl 

use lib {$ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI::Carp qw(fatalsToBrowser) ; 

use XDrive : : CGI; 

use XDrive :: Template; 

use XDrive: : DatabaseO: : Table: : DiskltemShare; 
use XDrive: : DatabaseO: : Table: : DiskAccount ; 
use XDrive: : DatabaseO: : Table: :UserData; 
use XDrive: : DatabaseO: : Table :: Reseller; 
use XDrive :: CGI :: Cookie; 

use strict ; 

exit &main { ) ; 

sub main { 

my $cgi = CGI->new() ; 

my ($ClaimTicket, $oPage, $xdDBH) ; 

if ($ENV{ , QUERY_STRING' } !- /=/) 
{ 

$ClaimTicket = $ENV{ • QUERY_STRING " } ; 
} 

else 

{ 

$ClaimTicket = $cgi->param ( "claim_ticket " ) ; 
> 

if ( length ($ClaimTicket) < 5) 
{ 

$ClaimTicket = $ENV{ 1 PATH_INFO ' } ; 

$ClaimTicket s/^\///; 

} 

##make sure that if claim ticket ends in -SP we set language to Spanish 

and 

##truncate claim ticket 

if ($ClaimTicket — /-SP$/) 

{ 

$ClaimTicket = substr ($ClaimTicket , 0, length ( $ClaimTicket ) -3) ; 
my SoCookie = new XDrive :: CGI :: Cookie (' x__session_inf o • , $cgi); 
$oCookie->set Element 
({ 

'language' => • Spanish* , 
}) ; 

print "Set-Cookie: $oCookie->asString ( ) ; 

} 

my $oDiskItemShare = XDrive :: DatabaseO: : Table :: DiskI temShare->new () ; 
$oDiskItemShare->loadWhere { "RANDOM_KEY" # $ClaimTicket ) ; 

my $diskAccount = $oDiskItemShare- 
>f etchColumn ( "DISK_ACCOUNT_USER_SEQ ,, ) ; 

$xdDBH = $oDiskItemShare->fetchDBO() ; 
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SxdDBH?? $ ° UserAcCOunt = driver :DatabaseO: : Table: : UserData->new (undef , 

$oUserAccount->loadWhere ( "SEQ", $diskAccount ) ; 
c my SoReseller = XDrive: :DatabaseO:: Table : : Reseller->new (undef, 

$oReseller->loadWhere ( "SEQ", $oUserAccount- 
>f etchColumn ( "RESELLER_SEQ" ) ) ; 

my $partner = $oReseller->f etchColumn ( "CODE" ) ; 

xcirive ## If diSk ±tem Share WaS not in the database then just use an 

## look n' feel. NOTE! ! ! ! ! This should be changed to a plain looking 
## error screen. ^ 
$partner = 'xdrv' if ! defined $partner; 

$oPage = new XDrive :: Template 
({ 

'partner^code' => $partner 
)); 

$oPage->load ( • get_a_shared_f ile frameset . thtml • ) ; 
$oPage->tags 
<< 

'ClaimTicket ' => $ClaimTicket , 
'referee' => $diskAccount , 
}); 

$oPage->clear <) ; 

print $cgi->header, $oPage->get; 

$oDiskItemShare->disconnect () ; 

return 0; 

> 



72 



53 of 137 



WO 01/33381 



PCT/US00/30536 



###get_a_shared_file_downloadxgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use Data : : Dumper; 

use XDrive::CGI qw(:MAIN); 

use XDrive : rClient :: Actions ; 

use XDrive :: DatabaseO: : Search ; 

use XDrive: :DatabaseO: :Table: rUserData; 

use XDrive: : DatabaseO: : Table: : DiskltemShare; 

use XDrive :: Template; 

use XDrive :: Error ; 

use strict; 

&main ; 
exit ; 

sub main 
< 

my ($sFileDescription, $sFileSize, $sRandomKey , $sSeq) ; 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error ; 

my $g_oShared; ## Shared object 

my $g_oSearch; ## Shared object 

my $g_oAction; ## Action object 

my $g_oFileStat ; ## File stats 

$sRandomKey = $ENV { ' QUERY_STRING • } ; 

if ( ! $sRandomKey) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1360) ; 
&display_ error ($sMessage, $oErr) ; 

} 

else 

{ 

## Instantiate and load the shared object . 

$g_oShared = XDrive: : DatabaseO: : Table: : DiskItemShare->new (undef , 

undef ) ; 

$g_oSearch = XDrive :: DatabaseO: : Search->new ($g_oShared- 
>fetchDBO() ) ; ~ 

$g_oShared->loadWhere ( "RANDOM_KEY" , $sRandomKey) ; 
$ sSe q = $g_oShared->fetchColumn( "SEQ") ; 

if(!$sSeq) 
{ 

my $sMessage - $oErr->ReturnMessageGivenCode ( 1361 ) ; 

&display_error ($sMessage, $oErr) ; 

} 

## Call the client action constructor with the shared object 
## which it will use to load all the needed client information. 
$g_oAction = new XDrive :: Client :: Actions ( $g_oShared / $cgi ) ; 

my $sFile = join 
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$g_oShared->fetchColumn("ITEM_PATH") , 

$g_oShared->fetchColumn("ITEM NAME") ' 
) ; - 

$g_oFileStat = $g__oAction->FileStat ($s File) ; 
if ( ! $g_oFileStat) { 

?^^ eSSage = / ? oE "-> R eturnMessageGivenCode(1362); 
&display__error($sMessage / $oErr) ; 
} else { 

$S K^? e ^ CriPt1 ?^ = $ 9- oShar ed->f etchColuntn( "DESCRIPTION" ) • 
<~we „ $sFileSize = <$g oFileStat->size ( ) > 1024)-> >> 

xnt ($g_oFileStat->size() /1024) . »k" : 1U ^ } - 

$g_oFileStat->size() . " bytes"; 



&display_form($g oShared- 
iX ? S olumn(MITEM _NAME») ,$ S RandomKey, SsFileSize, 

SsFxleDescnption, 5g_oSearch->XDResellerCodeFromUserSea <$a nsh.rpH 
>fetchColumn("DISK_ACCOUNT_USER SEQ") ) ) • ron >userseq ( Sg_oShared- 

} 

} 

$g_oShared->f inish ( ) ; 
$g_oShared->disconnect ( ) ; 
^ 5g_oAction->DisconnectDB ( ) ; 

sub display_form 
{ 

_ e _. ^ ($sFilen ^e,$ S RandomKe y , SsFileSize, SsFileDescription, SsPartner ) 

my $oForm = new XDrive :: Template; 
$oForm->partner($sPartner) / 

loFo^^gs ( ,get - a - Shared - file _ d °wnload_ S creen. thtn,l • , ; 
({ 

' sFilename* => $sFilename, 
•sExtraPathlnfo' => $sFilename, 
' sRandomKey* => SsRandomKey, 
' sFileSize' => $sFileSize, 
•sFileDescription' => $sFileDescription, 

} ) / 

$oForm->clear ( ) ; 

print "content-type: text /html\n\n", $oFonn->qef 
exit (0) ; y ' 

} 

sub display_error 
{ 

my {^message, $oErr) = @ ; 
if (!$message) 



} 



$message = $oErr->ReturnMessageGivenCode ( 1363) ; 



my $oForm = new XDrive :: Template; 
$oForm->partner ( 'xdrv' ) ; 

$oForm->load( •get_a_shared_file_error.thtml • ) ; 
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$oForm->tags 
({ 

•message' => $10653396, 

}) ; 

print "content-type : text /html\n\n M , $oForm->get; 
exit (0) ; 
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###login.cgi 

# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> to verify that the user i 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use XDrive: : DatabaseO: : Table : : DiskAccount ; 

use XDrive: : DatabaseO: :Table: : UserSett ings ; 

use XDrive; :DatabaseO: : Table: :UserQuota; 

use XDrive: :DatabaseO: : Table: : Language; 

use XDrive :: DatabaseO: : Search; 

use CGI qw(param redirect header cookie) ; 

use CGI; 

use XDrive :: CGI: : Cookie; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use XDrive:: CGI; 

use XDrive: :Client: '.Security; 

use XDrive :: Error ; 

use XDrive :: Template; 

use XDrive :: Library; 

use XDrive: : DatabaseO; 

use Mail : : Sendmail; 

&main; 
exit; 



sub main 
{ 

my $oCGI « new CGI; 

my $oErr = new XDrive :: Error ; 

##my $oDBO = new XDrive :: DatabaseO; 

my $oCookie = new XDrive ;: CGI :: Cookie ( ' x_session_inf o • , $oCGI); 

my $oToken; 
my $sToken; 
my $sUsername; 
my $sPartnerCode; 

## johngaa add for dbexist check 

my $oDBO; 

if (XDDBConnectionCheck () && XDNFSCheck ( ) ) 
{ 

$oDBO = new XDrive :: DatabaseO; 

} 

else 
{ 

$oDBO = undef; 

print redirect (" /upgrading_index . html") ; 
exit ; 

} 

## end of j ohngaa change 
my $bSecurity = $oCGI->param { • bSecurity • ) ; 
my $sPartnerToken = $oCGI->param ( 'partner^token • ) ; 

my $passed_lang == $oCGI->param (• language ') ; 
##### 
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## Attempt to authenticate the user by using one of the following two 
## authentication methods: username/password pair or partner token 
## authentication. 
##### 

if (! defined $sUsername && length ( $sPartnerToken) > 20) 
{ 

authPartnerUser ($oCGI , $oErr, $oDBO, \$sUsername, \$oToken, 

\$sPartnerCode, $sPartnerToken) ; 
SsToken = $oToken->name ( ) ; 
} 

else 

{ 

authWebSiteUser ($oCGI, $oErr, $oDBO, \$sUsername / \$oToken) ; 

$sPartnerCode = ' xdrv ' ; 

} 

##### 

## If an error occurud while trying to create a token then redirect 

## the user to the error page . 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect ; 
xd_fatal_error($oCGI / $oErr) ; 
exit ; 
} 

##### 

## If we have gotten here then we have an authenticated user. 
##### 

##### 

## BuiTd and print out cookies 
##### 

my $sLanguage = getLanguage ($oDBO, $sUsername) ; 



##check if user's language is the same as passed language 

if ( (length ($passed_lang) > 0) && $sLanguage ne $passed_lang) 

{ 

##update db here to new language 
set Language ($0030, $sUsernarne, $passed_lang) ; 
##update session to new language 
$sLanguage - $passed_lang ; 

} 



##delete the promo cookie; this will not be set here and we 
##don't want an old one hanging out 
##promo cookies should be set in promo. cgi 

$oCookie->deleteElement ( 'promo' ) if $oCookie->get Element ( 'promo' ) ; 

$oCookie->set Element 
({ 

'language' => $sLanguage, 
•partner* => $sPartnerCode, 
}); 

print "Set-Cookie: $oCookie->asString ( ) ; 

print "Set-Cookie: SST=$sToken; domain= . xdri ve . com; path=/\n" 
if $sPartnerCode ne 'xdrv'; 
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##### 

## write user login to the database 
##### 

SincrementLoginNumber ($oDBO, $sUsemame, $sLanguage, $sPartnerCode) ; 
##### 

## Send the user off into thier file explorer 
##### 

if ($ENV{ ' HTTP_USER_AGENT 1 } /^xdwin/) 
{ 

print $oCGI->redirect ( " ?sst=" . SoToken->name ( ) . " &sid=0 " ) ; 

else 

{ 

xd_web_open($oCGI / "", \%ENV, $bSecuritv) ; 

} 

$oDBO->disconnect ; 

return 0; 

} 

sub isYesterday ( ) 
{ 

## 

## Date: 01/25/99 

## used to check of a date if its today or not 
## 

my $last_login shift; 

my $nSec; # # Seconds 

my $nMin; # # Minutes 

my $nHour; ## Hours 

my $sDay; ## Weekday 

my $nDay; ## Numeric date (01-31) 

my $nMonth; ## Numeric month (01-12) 

my $nYear; ## Numeric year (00-99) 

my $todaysDate - ($nSec, $nMin, $nHour, $nDa y/ $nMonth, $nYear ( 
$sDay) = (localtime(time)) [0,l,2,3,4,5,6]; 
$last_login — / ( [ \d] +) - ( [ \d] + ) - ( [ \d] +) /i ; 
my $last_login_year = int($l) 
my $last_login_month = int($2) 
my $last_login_day = int($3), 

if ($last_login_year < $nYear) 
i 

return 1; 

) 

if ($last_login_month < $nMonth) 
{ 

return 1; 

) 

if ($last_login_day < $nDay) 
{ 

return 1; 

) 

return 0; 
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sub incrementLoginNumber ( ) 
{ 

my $oDBO = shift ; 
my $sUsername = shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef , $oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
$oDiskAccount->f inish; 

my $timesLoggedIn = $oDiskAccount->f etchColumn ( "L0GIN_NUM" ) ; 
my $user_seq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 



## johngaa add 

## insert a warn in the error log if this is the 
if ($ENV{ 1 HTTP_USER__AGENT 1 } / A xdwin/) 
{ 

ray $todaysDate = XDTodayO; 

warn "#client_login user_seq=$user_seq username=$sUsername 
date=$t odaysDatei n ; 
} 

## end of johngaa warn of first entry 



if ($timesLoggedIn) 
( 

$timesLoggedIn++; 
} 

else 

{ 

$timesLoggedIn=l; 
} 

$oDiskAccount->setColumn ( " LOG I N_NUM " , $timesLoggedln ) ; 
$oDiskAccount->setColumn { "LAST_LOGIN" , XDToday ( ) ) ; 

my $status = $oDiskAccount->update ( ) ; 

if ($status > -1) 
{ 

$oDiskAccount->commit ( ) ; 
$oDiskAccount->f inish ( ) ; 

## johngaa modify to exclude college club 
## and quepasa users out of the extra space 
## promo 

my $oUserData - XDrive :: DatabaseO: : Table :: UserData- 

>new(undef , $oDBO) ; 

$oUserData->loadWhere ( "SEQ", $user_seq) ; 
my $reseller_seq = $oUserData- 
>f etchColumn ( "RESELLER^ SEQ" ) ; 

if ( ! (isResellerSeqCC_QUPA($oDBO f $reseller_seq) ) ) 
{ 

##give user extra 10MB if 10th login 

if ($timesLoggedIn == 10) 

{ 

my $oUserQuota = XDrive :: DatabaseO: : Table :: UserQuota- 

>new (undef , $oDBO) ; 
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$oUserQuota->loadWhere ( "USER_SEQ", $user_seq) ; 
my $additional_quota = $oUserQuota- 
>incrementQuota {$user_seq, 10240) ; 

if ($additional_quota > 0) 
{ 

&send_email ($user_seq, $oDBO, 
$additional_quota, $sLanguage / SsPartnerCode) ; 

} 

) 

} 

) 

else 
{ 

# $oDiskAccount->rollback ( ) ; 
) 

} 

sub isResellerSeqCC_QUPA 
{ 

my $oDBO = shift; 

ray $reseller_seq ~ shift; 

my $dbh = $oDB0->f etchDBH ( ) ; 

my $sql_stmt = "SELECT code FROM reseller WHERE seq=?"; 
my $cmd; 
my @data; 

$cmd = $dbh->prepare ($sql__stmt ) ; 

$cmd->execute ( ($reseller_seq) ) ; 

@data = $cmd->f etchrow_array; 

if ($data[0] eq 'cc' f| $data[0] eq 'qupa') 

{ 

return 1; 

##print "should return a true\n" 

} 

return 0; 



sub send_email 
{ 

my $user_seq = shift; 

my $oDBO = shift; 
my $additional_quota = shift; 
my $sLanguage — shift; 
my $sPartnerCode = shift; 

if ($sPartnerCode eq f cc') 
{ 

return; 

} 



##comes in as k, change to megabytes 
my $mbs = $addit ional_quota/1024 ; 

my $oUserData = XDrive :: DatabaseO: : Table :: UserData->new (undef, $oDBO) ; 
$oUserData->loadWhere( M SEQ", $user_seq) ; 

my $email_address » $oUserData->f etchColumn ( "EMAIL_ADDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_FIRST" ) ; 
my $name_last = $oUserData->f etchColumn ( M NAME__LAST" ) ; 
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my $oTemplate = new XDrive :: Template 

({ 

'language' => $sLanguage, 

' partner__code 1 => $sPartnerCode / 

}) ; 

$oTemplate->load ( 1 received_10MB_101ogins . thtml * ) ; 
$oTemplate->tags ( { 

'mbs' => $mbs, 
)); 

$oTemplate->clear ( ) ; 

my ^message = $oTemplate->get ; 

my %toXdrive = 
( 

To => "$name__first $name_last <$email_address>" , 

Bcc => 

From => "support \@xdrive . com" , 
Message -> $message, 
Subject => "Congratulations!" 
); 

sendmail (%toXdrive) ; 



sub authPartnerUser 
{ 

my $oCGI = shift; 

my $oErr - shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $rsPartnerCode = shift; 

my $sPartnerToken = shift; 

my $oCookie = new XDrive :: CGI :: Cookie ( 1 x_session_info 1 , $oCGI); 

my $oPartnerToken = new Token 
({ 

'err' => $oErr, 
'dbh' => $oDB0, 
}); 

$oPartnerToken->load ($sPartnerToken) ; 

return if $oErr->Occurud; 

$$roToken = new Token 
U 

'dbh' => $oDBO, 
•err' => $o£rr, 

' user__sequence ' => $oPartnerToken->data ( ' user_seq • ) , 
> > ; 

$$roToken->create ( ) ; 
return if $oErr->Occurud; 

### Edited by Justin so that the partner_code is looked for 

### in the cookie instead of the token table. ' 

### And then again because I shouldn't have done that. The 

### partner code hasn't been set in the cookie by this point, 

### so we shouldn't be looking in there for it. 

$$rsPartnerCode = $oPartnerToken->data ( ' partner_code ' ) ; 

# $$rsPartnerCode = $oCookie->get Element (' partner ') ; 
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$$rsUsername = $oPartnerToken->data ( 'user* ) ; 

$$roToken->data ( ' ip' , $ENV { REMOTE_ADDR} ) ; 
$$roToken->data ( 'browser', $ENV{ HTTP_USER_AGENT } ) ; 
$$roToken->data ( 1 user ' , $$rsUsername ) ; 

$$roToken->data ( » user_seq 1 , $oPartnerToken->data ( • user seq ' ) ) • 
$$roToken->data ( ' partner_code • , $$rsPartnerCode ) ; 
$$roToken->data ( ' disk_account_seq ' , $oPartnerToken- 
>data { 'disk_account_seq' ) ) ; 
$$roToken->save; 

$oPartnerToken->delete ( ) ; 

} 

sub authWebSiteUser 
{ 

my $oCGI = shift, 
my $oErr = shift, 
my $oDBO = shift, 
my $rsUsername = shift; 
my $roToken = shift; 

my $sPassword = $oCGI->param ( ' pass • ) ; 
$$rsUsername = $oCGI->param ( ' user ' ) ; 

if (xd_auth_password($$rsUsername, $sPassword / $oDBO) ) 

## Login the user info X:drive and get the session token 
$$roToken = xd_login ( $oCGI, $$rsUsername, $oErr / $oDBO) ; 



else 



} 



{ 

$oErr->AddErrorByErrorCode ( 1 501 * ) ; 
} 



sub getLanguage 
{ 

my $oDBO = shift; 

my $sUsername = shift; 

my $language; 

## get the user's language out of the database - 
my $oDiskAccount = XDrive :: DatabaseO: ; Table :: DiskAccount- 
>new(undef, $oDBO) ; 

$oDiskAccount->loadWhere < "USERNAME", $sUsername) ; 
$oDiskAccount->f inish; 

my $userSeq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

N 

my $oUserSettings » XDrive :: DatabaseO: : Table :: UserSettings- 
>new(undef , $oDBO) ; 

$oUserSettings->loadWhere ("USER_SEQ", $userSeq) ; 
$oUserSettings->f inish; 

my $language = $oUserSet tings->f etchColumn ( "LANGUAGE" ) ; 

if ($language eq 
{ 

$language = 'english'; 
} 

else 

{ 

## Get language from database given code 
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my $oLanguage - XDrive :: DatabaseO: : Table :: Language- 
>new (undef , $oDBO) ; 

$oLanguage->loadWhere ( "SEQ" , $language) ; 
$oLanguage-> finish; 

$language = $oLanguage->f etchColumn { "CODE" ) ; 
) 

return $language; 
} 



sub setLanguage 
{ 

##set the LANGUAGE column of the User_Set tings table to passed 

language 



my $oDBO = shift; 

my $sUsername = shift; 

my $language = shift; 

my {$rv, $errorCode) ; 

## get the user's language out of the database 
my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef, $oDBO) ; 

##grab right table 
$oDiskAccount->loadWhere ( "USERNAME" , $sUsername) ; 
$oDis kAccount-> finish; 

my $userSeq = $oDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 
>new(undef , $oDBO) ; 

$oUserSettings->loadWhere ( "USER_SEQ" , $userSeq) ; 
$oUser Set t ings-> finish; 

##grab the seq number of the LANGUAGE being passed 

my $oLanguage = XDrive :: DatabaseO: : Table :: Language->new (undef, $oDBO) ; 
$oLanguage->loadWhere ( "CODE", Slanguage) ; 
$oLanguage->f inish ( ) ; 

my $seq_lang = $oLanguage->f etchColumn { "SEQ" ) ; 

eval 
{ 

## 

##set language here 
$rv = 0; 

$oUserSettings->setColumn ( • LANGUAGE 1 , $seq_lang) ; 
$rv = $oUserSettings->update { ) ; 

) ; 

if ($rv == 0) 

$oUserSettings->rollback () ; 
$errorCode =0; 

else 

$oUserSettings->commit ( ) ; 
$errorCode = 1; 

return $errorCode; 
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###logout.cgi 

# ! /usr/bin/perl 

## Program to log the user out, currentlv hark-pH i-^ • ^ ^ 

ft Modified by austin on 10/15>99 to be SecuSy.^ fltnTy & ^ mepage . 

## and get rid of the XDrive: :CGI stuff. ndiy 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use XDrive: : Client :: Security; 
use XDrive: : DatabaseO; 
use XDrive: : Error; 

&main; 
exit ; 



sub main 
{ 

my $oCGI = CGI->new(); 

my $oDBO - new XDrive :: DatabaseO; 

my $oError » new XDrive :: Error ; 

##removes token from the database 
xd_logout ($oDBO, $oCGI, $oError) ; 

$oDBO->disconnect ; 



print $oCGI->redirect ( ' /' ) ; 

return 0; 

} 
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###navbar.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <martin@xdrive.com> on Sun Sep 5 1999 
## Script to dynamically show the correct tempate based on which 
## partner is looking at the web site. 

use strict; 

use lib ($ENV{ PERL_XDRI VE_LIB } ) ; 
use CGI; 

use XDrive :: Library; 

use XDrive :: Template; 

use XDrive :: Error ; 

use XDrive :: DatabaseO; 

use XDrive : rClient :: Security; 

&main; 
exit ; 

sub main 
f 

## Load the session token 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $oCGI = new CGI; 

my SoCookie = new XDrive :: CGI :: Cookie (' x_session__info ' , $oCGI); 
#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 
#### 

## If the user does not validate or an error occurud 

## then redirect to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error (30CGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

exit; 
> 

#### 

## Otherwise we have validated and should load the navbar 

## associated with the partner 

#### 

### Edited by Justin so that partner_code is looked for in 
### the cookie instead of the token table. 

# my $oForm - new XDrive :: Template 

# ({ 

# 'partner_code' =>. $oToken->data { 'partner_code • ) 

# }) ; 

my $oForm = new XDrive :: Template 
(( 
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} f; rtner - COde => 9oCookie->getElement( 'partner") 

$oForm->load ( • navbar . thVml • ) ; 
#### 

## Print the navbar and stop 
#### H 



print "Content-type: text/html\n\n" ; 
print $oForm->get; 

$oDBO->disconnect ( ) ; 



return 0; 
} 
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# ! /usr/bin/perl 

## Written by Lucas McGregor on ??? 
use strict; 

use lib ($ENV{PERL_XDRIVE_JLIB) ) ; 

use CGI qw (header param) ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Token; 

use XDrive :: DatabaseO; 

use XDrive :: Error ; 

use XDrive:: CGI qw(:MAIN); 

use XDrive : : Client : : Security; 

use XDrive: : Client: :Registration; 

use XDrive :: DatabaseO: transaction; 

use XDrive: : DatabaseO: : Table: : DiskAccount ; 

use XDrive :: Library; 

use XDrive :: Template; , 

use constant TRUE => ( 1—1 ) ; 
use constant FALSE => ! TRUE; 

&main; 
exit; 

sub main 
{ 

my $oCGI - CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check (SoDBO, $oCGI, $oErr) ; 
#### 

## If an error occurs or the user fails to autenticate then redirect 

## to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit ; 

} 

#### 

## Otherwise have have autenticated the user and can proceed 
#### 

my $sUsername = $oToken->data ( r user ' ) ; 

my $sPasswordNew =* $oCGI->param ( 1 txtPasswordNewl • ) ; 

my $sPasswordNewConfirm = $oCGI->param ( 1 txtPasswordNew2 ' ) ; 
my $sPasswordO!d = $oCGI->param ( 1 txtPasswordOldl * ) ; 
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if (($sPasswordNew eq ••) || ($sPasswordNewConf irm ea II 
($sPassword01d eq • ' ) ) 4 ' 11 

{ 

##if any of the fields is blank, give em error message 
my $sMessage = $oErr->ReturnMessageGivenCode ( 1 34 0 ) ; • 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 
} 

## Change user's password 
PasswordSet ($sUsername, SsPasswordNew, 
$sPasswordO!d, SoToken, $oErr , $oCGI ) ; 

return 0; 
} 

f assworabet : Change user's password 

sub PasswordSet ($$) 
{ 

my $sUsername = shift; ## (i) user in question 

my SsPassword = shift; ## (I) New password 

my SsPasswordOld = shift; ## (i) old password 

my $oToken = shift; ## (I) Token object 

my $oErr - shift; 
my $oCGI =» shift; 

my $sPassEncrypted = XDEncrypt ($sPassword) ; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount->new () - 
5oDiskAccount->loadWhere( w USERNAME", $sUsername); 

if ( ! PasswordsMatch ( $oDiskAccount- 
>fetchColumn ("PASSWORD") , $sPasswordO!d) ) 
{ 

my SsMessage = $oErr->ReturnMessageGivenCode ( 134 1 ) • 
XDErrorToBrowser ( ""^sMessage, undef, $oToken) ; 

if (! defined $oDiskAccount->f etchColumn ( "USER_SEQ" ) ) 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1342 ) • 
XDErrorToBrowser <" $sMessage, undef, $oToken) ; 

$oDiskAccount->setColumn ( "PASSWORD", $sPassEncrypted) ; 
my $status = $oDiskAccount->update { ) ; 

## If no error, then commit 

## Else rollback and show an error 

if ($status > -1) { 

$oDiskAccount->commit () ; 

} 

else 
{ 

$oDiskAccount->rollback ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 134 3) ; 
^ XDErrorToBrowser ( $sMessage, undef, $oToken) ; 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect () ; 
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my SoTemplate = new XDrive :: Template ( { ' partner_code ■ 'xdrvM )• 
$oTemplate->load ( 1 password__changed. thtml • ) ; 
print $oCGI->header ( ) , $oTemplate->get ; 

#################^^ 

## PasswordsMatch: Check an encrypted password against an unencrypted 
## password and return true or false. 

sub PasswordsMatch 
{ 

my $sEncrypted = shift; ## current password 
my SsToCheck = shift; ## string to check 

## Encrypt the passed password with the salt from the password taken 
## from the database. 

my ($sSalt) = $sEncrypted =~ / A (\w{2})/; 

## Do the passwords match? If so then return true, otherwise false 
xf (SsEncrypted eq crypt ( $sToCheck, $sSalt ) ) 
{ 

return TRUE; 
} 

return FALSE; 

} 
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###promo.cgi 

# ! /usr/bin/perl 
## 

## File: promo. cgi 
## 

## Written by Justin White on 10/25/99. 

## Sets a promo cookie and redirects to the home page, 
use strict; 

use lib ($ENV{PERL_XDRIVEJLIB) ) ; 

use XDrive : tTemplate; 

use XDrive :: DatabaseO; 

use XDrive: : CGI :: Cookie; 

use XDrive :: DatabaseO: : Search; 

use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

&main ( ) ; 

exit; 

sub main { 

my ($cookie, $promo, %new_info, $oSearch, $oTemplate) ; 
my $oCGI = CGI->new(); 

my $oCookie = XDrive : : CGI : : Cookie->new ( 1 x_session_info 1 , $oCGI); 

my $path_info = $ENV{ ■ PATHINFO* } ; 

my SsClaimTicket = $oCGI->param ( ' ct 1 ) ; 

if ($sClaimTicket ) { 
## 

# Via cookie, set the promo so that signup__account . cgi treats 

# it as a promo and set the claim ticket code so that we can 

# remove that data from the batch_user_data table. 
## 

$oCookie->setElement ( ('ct' => $sClaimTicket } ); 

} 

if ($path_info) { 

$path_info -~ s/ A \///; 

$oCookie->setElement ( {'promo' => $path_info} ); 
$oCookie->set Path {'/•); 

##if user is coming from the befree promo, set a cookie with the 
##source id, be Free requires this for tracking purposes 
if ($path_info /befree/) 

my $sourceid = $oCGI->param ( ■ sourceid' ) ; 

print "Set-Cookie: sourceid=$sourceid; domain=. xdrive . com; 

path=/\n" 
} 

my $oDBO = XDrive :: DatabaseO->new () ; 

my $oSearch = XDrive :: DatabaseO: : Search->new ( $oDBO) ; 
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my @bind_array = ($path_info) ; 

# my $st = "SELECT p. template, p . redirect_url , dl . code 

# FROM xdrive .promo p, xdrive. v_language dl 

# WHERE p.uri = ^path^info* 

# AND p. du_language = dl.seq(+)"; 

my $st = "SELECT p. template, p. redirect_url , dl . code 
FROM xdrive. promo p, xdrive . v_language dl 
WHERE p.uri = ? 
AND p . du_language = dl.seq(+)"; 

# my $data - $oSearch->XDSQLSearch ( $st ) ; 

my $data = $oSearch->XDSQLSearch ( $st , \@bind_array ) ; 
my $rows = @{$data); 

if ($rows > 0) { 

my $template = $$data [0] [ 0] ; 

my $redirect_url = $$data [0] [ 1 ] ; 
my $language = $$data [0] [ 3] ; 

$oCookie->setElement ( {'language' => $language} ); 

print "Set-Cookie: $oCookie->asString ( ) ; 

if ($template) { 
eval { 

$oTemplate = new XDrive :: Template ( {'cookie' => 



$oCookie, 
) ; 



'partner_code' => 'xdrv'} 

$oTemplate->partner { ■ xdrv * ) ; 
$oTemplate->load ( "promo/$template") ; 



}; 



if ($@) { 

print $oCGI->redirect ('/'); 
warn "$@\n"; 

} 

else { 

print $oCGI->header () , $oTemplate->get ; 

} 

$oSearch->disconnect ; 

} 

elsif { $redirect_url ) { 

print $oCGI->redirect ( $redirect_url ) ; 



$oSearch->disconnect ; 

} 

else { 

print $oCGI->redirect ( V ) ; 
$oSearch->disconnect ; 

» 

} 

else { 

print $oCG3»redirect { '/' ) ; 

} 

} 

else { 
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print $oCGI->redirect ( ' / ' ) ; 

$oSearch->disconnect ; 

} 

return; 
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###removespace.cgi 

# ! /usr/bin/perl 

######################################################### ############3 
## Written by Karen Eppinger 

## removespace . cgi - cancels additional space requests 

####### ######################################################### ### # #3 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use XDrive :: Error; 
use XDrive: : Library; 
use XDrive: : DatabaseO; 

use XDrive: : DatabaseO: : Table: : Reseller; 

use XDrive : : DatabaseO : : Table : : Deal ; 

use XDrive: : DatabaseO: : Table: : Item; 

use XDrive: : DatabaseO: : Table: : DiskAccount ; 

use XDrive: :DatabaseO: :Table: :UserData; 

use XDrive: -.DatabaseO: : Table: : UserPurchase; 

use XDrive: : Client :: Actions; 

use XDrive: : DatabaseO: :Search; 

use XDrive: : Sale: : Purchase; 

use Mail : : Sendmail; 

use CGI::Carp qw ( f atalsToBrowser ) ; 
use CGI; 

use XDrive: : Template; 
use XDrive : : CGI qw(:MAIN); 
use XDrive :: Client :: Security; 
use EpochClient_ssl; 

use strict; 

$ENV{ * PATH ' } - '/bin' ; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
exit &main; 

################################################ ## #### ##########t########### 

## main: main function calls all others 

## 

## 

######***#*#***t#*t*#f*#*tt#*##*#*####*#**.*-#ftt*»##««tt**#-f*# v ft#*##*###t#***# 



sub main 
{ 

my $oCGI - CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error; 

#### 

## Attempt to authenticate the user 
#### 

my $oToken = xd_security_check ($oDB0, SoCGI, $oErr) ; 
#### 

## If an error occurs during autentication or authentication fails 

## then redirect to the error CGI and exit 

#### 
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if ( $oErr->Occurud) 
{ 

xd_fatal_error ($oCGI , $oErr ) ; 

exit ; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $sUserName = $oToken->data ( 'user' ) ; 
my $oTemplate = new XDrive :: Template 
({ 

■partner_code • => $oToken->data ( *partner_code ' ) 

}); 

## used to figure whether to give user the form or process the form 
my $sAction = $oCGI->param { "act ion" ) ; 

## Create a DBH 

my $oDBH = XDrive :: DatabaseO->new () ; 

## if the action is a request type 
if ($sAction eq 'process') 

##else we process the form input 

&CheckSpaceUsed <$oCGI, $sUserName, SoTemplate, $oToken, $oDBH , $oErr ) ; 
elsif ($sAction eq 'intro') 

&ShowIntroPage <$oTemplate, $sUserName, $oToken, $6CGI) ; 

else 

## we give the user the form 

&ShowSpace ($sUserName, $oTemplate, $oToken, $oDBH , $oErr) ; 
$oDBH->disconnect ( ) ; 



############################################################################ 
## CheckSpaceUsed: make sure the user has enough free space for his files 
## if not, do not let him cancel 1 

############################################################################ 

sub CheckSpaceUsed 
{ 

my $oCGI = :>;hift; 

my $sUserName = shift; 

my $oTempiate = shift; 

my $oToken = shift; 

my $oDBH = shift; 

my $oErr = shift; 

##we need to get the number of fields so we know what to process 
my @ fields = $oCGI->param; 
my $checked = 0; 

my $returnValue = '•; 

##for each checked item # either cancel or tell user they may not cancel 
jflbecause space used is larger than space available after cancelation 
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for (my $i=0; $i<$#f ields; $i + +) 
{ 

if ($£ields[$i]=~/ A tc_/) 
{ 

$fields[$i]=-s/ A tc_//; 

my $oPurchase = new XDrive :: Sale :: Purchase ($oDBH) ; 
my @message_dbmessage = $oPurchase->CancelItem ($f ields [$i] , 



$sUserName) 



$returnValue .=$message_dbmessage [0] ; 
$checked++; 

if ( $message_dbmessage [ 1 ] != 0) 
{ 

$oDBH->commit ( ) ; 

} 

else 
{ 



} 



$oDBH->rollback() ; 



} 



if ($checked>0) 
{ 

##show the page that tells user if space was cancelled or not 
&ShowCanceled($returnValue, $oTeroplate) ; 



) 

else 
{ 



##user hasn't checked anything, give em error page 
my $sError = $oErr->ReturnMessageGivenCode ( 1 301 ) ; 
XDErrorToBrowser ("", SsError, undef, SoToken) ; 



i****#*###«**«##f###**#ltt**|-*-##**#####«#ffft###f##*#ttft####**#«########|### 

## ShowCanceled: tell user space was cancelled 

#############t###########f##################### ####i####f#ii#t###########f## 

sub ShowCanceled 
{ 

my SsItemsCanceled = shift; 
my $oTemplate = shift; 

## Load the required template HTML files. 
$oTemplate->load ( * removespace ok . thtml 1 ) ; 
$oTemplate->tags 
(i 

•items' => $sItemsCanceled 
)); 

print "Content-type: text /html\n\n"; 

print $oTemplate->get ( ) ; 

} 

## ShowSpace: shows the user the initial page with their current space 
## allocation 

####################### ##################################################### 

sub ShowSpace 
{ 
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my $sUserName = shift; 
my $oTemplate = shift; 
my $oToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1 302 ) ; 
$sMessage = &GetItems (SsUserName^oToken, $oDBH, $oErr ) ; 

## Load the required template HTML files. 
$oTemplate->load ( 1 removespace__request . thtml ■ ) ; 
$oTemplate->tags 
({ 

•items' *=> $sMessage 
}) ; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get ( ) ; 

} 

sub ShowIntroPage 
{ 

my $oTemplate = shift; 
my $sUserName = shift; 
my $oToken = shift; 
my $oCGI = shift; 

my $oAction = new XDrive :: Client :: Act ions 
( 

$oToken, 
$oCGI 

) ; 

my $quotaUsed = $oAct ion->QuotaUsed ( ) ; 
$quotaUsed = sprintf ( "%2 . 2f ", $quotaUsed/1024 ) ; 
my $quotaLimit = $oAction->QuotaLimit ( ) ; 
SquotaLimit = sprintf ( "%2 . 2f", $quotaLimit /1024 ) ; 

$oTemplate->load ( ' removespace^intro. thtml 1 ) ; 
$oTemplate->tags 
( { 

' quotaUsed' — > $quotaUsed, 
' quotaLimit* => $quotaLimit 

}) ; 

$oTemplate->clear ( ) ; 

print "Content-type : text/html\n\n"; 
print $oTemplate->get ( ) ; 

} 

sub Get Items 
{ 

my $sUserName = shift; 
my $oToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere ( * USERNAME * , $sUserName) ; 

##now load all items in the userjpurchase database that are 
. ##owned by this user 
my $userSeq « $oDiskAccount->f etchColumn ( f USER_SEQ ' ) ; 
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##passing a 0 as the last parameter returns all non-canceled items 
my $oSearch = XDrive : : DatabaseO: : Search->new ( undef ) ; 
my $array = $oSearch->XDUserPurchases ( $userSeq, 0 ) ; 

iisee if the array returned any items 

if ($array->[0) [0] eq ' ' ) 
{ 

my $sError = $oErr->ReturnMessa§eGivenCode ( 1302 ) ; 
XDErrorToBrowser ( ' removespace_noitems . thtml • , $sError / 1, 

$oToken) ; 
} 

my $i; 

my $items = ' ' ; 

for $i<0. .$#{$array}) 
{ 

##storing the complete string returned by Epoch 
##must take only stuff after the I to cancel transaction 
##and chop off last character which seems to be a line return 
##may have to alter this if we see problems 
chop($array->[$i] [4] ) ; 

my @aCodes=split ( /\ | /, $array->[$i] [4]); 
my $itemName = ' tc_' . $aCodes[l]; 
$itemName=~s/-/ / ; 

##Get the name associated with this item 

my SoDeal = XDrive : : DatabaseO : : Table : : Deal->new (undef, $oDBH ) ; 

$oDeal->loadWhere ( ' SEQ* , $array-> [$i] [2] ) ; 

my $itemSeq =^ $oDeal->f etchColumn ( 1 ITEM_SEQ ' ) ; 

my $oItem = XDrive : : DatabaseO: : Table : : Item->new (undef, $oDBH) ; 
$oItem->loadWhere ( ' SEQ 1 , $itemSeq) ; 

my $description = $oItem->f etchColumn ( 1 DESCRIPTION 9 ) ; 

$items .= '<input type= n checkbox" name=" ' . $itemName . '">• . 
$description . 1 <BR> • ; 
} 

if ($items eq * 9 ) 
{ 

my $sError = $oErr->ReturnMessageGivenCode ( 1302 ) ; 
XDErrorToBrowser ( ' removespace_noitems . thtml 1 , $sError, 1, 

$oToken) ; 
I 

return $items; 
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###selected_delete.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> for renaming files from the 

# web. 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI::Carp qw ( f atalsToBrowser ) ; 
use XDrive::CGI qw(:MAIN); 
use XDrive :: Client :: Actions ; 
use XDrive :: Client :: Security; 

use XDrive :: Error ; 
use XDrive :: DatabaseO; 



exit &main; 



sub main 
{ 

my $oCGI = new CGI; 

my $oErr — new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 



#### 

## Attempt to autenticate the user 
#### 



my SoToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 
#### 

## If an error occured or the user could not be validated then 

## redirect to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit ; 

> 

#### 

## Otherwise we know that we have a valid session 
#### 

my $oAction = new XDrive :: Client :: Actions 
< 

SoToken, 
$oCGI 
) ; 



$oAction->FileCheck ($oAction->ItemCurrent ( ) ) ; 
$oAction->ItemDelete ($oAction->ItemCurrent ( ) ) ; 
xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB ( ) ; 



return 0; 
} 
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###selected_rename.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> for renaming files from the 

# web. 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp ' fatalsToBrowser ' ; 
use XDrive::CGI qw(:MAIN); 
use XDrive :: Client :: Actions ; 
use XDrive :: Client :: Security ; 

use XDrive :: Library; 
use XDrive :: DatabaseO; 
use XDrive :: Error; 

## Clean up the path 
$ENV{ , PATH 1 } = '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 



exit &main; 



sub main { 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

#### 

## Attempt to autenticate the user 
#### 



my $oToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 



if ($oErr->Occurud) 
{ 

xd_fatal_error {$oCGI / $oErr) ; 

exit ; 

} 

#### 

## Otherwise we have a valid session 
#### 



my $oAction = new XDrive : -.Client :: Actions 
( 

$oToken, 
$oCGI 

) ; 

my $sltem01d = $oAction->ItemCurrent ( ) ; 

## Get the relative path to the item to be renamed from the 
## old item name itself. 
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my (SsFolder) = SsItemOld / { . +\/ ) [ +/ ; 
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## Set the new item to be in that folder, 
my $sItemNew = SsFolder . $oAction->ItemNew ( ) . $oAction- 
>ItemExtension { ) ; 

$oAction->FileCheck <$sltem01d) ; 

$oAction->ItemRename ($sltem01d, $sItemNew) ; 

xd_web_buttonindex ($oCGI ) ; 
$oAction->DisconnectDB ( ) ; 
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###settings_save.cgi 

# ! /usr/bin/perl 

use strict; 

use vars qw(@ISA); 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use CGI; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Data : : Dumper; 

use XDrive :: Library; 

use XDrive: :CGI; 

use XDrive: :Client: :Quota; 

use XDrive: :Client :: Security; 

use XDrive: : CGI: : Cookie; 

use XDrive: :DatabaseO: : Table :: UserSettings ; 
use XDrive: :DatabaseO: : Table: : Language; 
use XDrive: : DatabaseO; 
use XDrive: : Error; 
use XDrive: : Template; 

@ISA = qw (XDrive :: CGI) ; 

exit &main; 

sub main { 

my $oCGI = CGI->new(); 

my $oDBO = new XDrive ;: DatabaseO; 

my $oErr = new XDrive :: Error ; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security__check ( $oDBO, $oCGI , $oErr ) ; 
**#.* 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) 
< 

xd_f atal_error ($oCGI, $oErr) ; 

exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $oCookie = XDrive : : CGI : : Cookie->new { 1 x_session_info ' , $oCGI) ; 
my SsUser = $oToken->data ( 1 user • ) ; 
my $nUser = UserldGet ( $sUser ) ; 

my $oUserSettings = XDrive :: DatabaseO: :Table :: UserSettings->new (undef, 
undef ) ; 

## Initialize global variables 

my $g_bFileExtEdit = $oCGI->param ( ' bFileExtEdit f ) eq 'on' ? 1 : 0; 
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my 




$oCGI 


my 


$g_bMarketing = 


$oCGI 


my 




$oCGI 


my 


$g__bLanguage = 


$oCGI 


my 


$ sCur rent Language; 




my 


$languageCode; 




if 


(defined $g bLanguage) 



the 
it 



area , 
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• ? 1 : 0; . 

• ? 1 : 0; 
n' ? 1 : 0; 



{ 

my $oLanguage = XDrive :: DatabaseO :: Table :: Language->new 

(undef, $oUserSettings~>f etchDBO( ) ) ; 
$oLanguage->loadWhere ( "CODE", $g_bLanguage ) ; 
$languageCode = $oLanguage->f etchColumn ( "SEQ" ) ; 
} 

## We are doing this in a backwards way first we will try and load 
## current users profile. If that works then we change it and update 
## by calling save. If that does not work then we just call save. 
$oUserSettings->loadWhere ("USER_SEQ", $nUser) ; 

$oUserSettings~>setColuran ( "FILE_EXTJEDITABLE", $g_bFile Ext Edit ) ; 
$oUserSettings->setColumn ( " EXTRA_HELP" , $g_bExtraHelp) ; 
$oUserSettings->setColumn ( "OPT_MARKETING" , $g_bMarketing) ; 
$oUserSettings->setColumn ( "OPT_NEWSLETTER " , $g_bNewslet ter ) ; 

## The language element is an OPTIONAL setting in the "My Profile" 

## If it is passed then set it, otherwise leave the current value. 

if (defined $g_bLanguage ) 

{ 

$sCurrentLanguage = $g_bLanguage; 

$oUserSettings->setColumn ( "LANGUAGE", $languageCode) ; 

> 

else 

{ 

$sCurrentLanguage - "english"; 

} 

my $status = $oUserSettings->update ( ) ; 

if ($status < 0) 
{ 

$oUserSettings->rollback ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1330 ) ; 
XDErrorToBrowser (undef , $sMessage, undef, SoToken) 

} 

else 
{ 

$oUserSettings->commit ( ) ; 



if (defined $g__bLanguage) 
{ 

##set the cookie for language 
$oCookie->setElement 
({ 

'language* => $g_bLanguage 
}); 

print "Set-Cookie: ", $oCookie->asString ( ) ; 
} 

} 
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## Redirect the browser to the succesfull save page. 

### Edited by Justin so that we get the partner_code out 
### of cookie instead of the token table. 

# print xd_web_redirect 

# ( 

# "/account /prof ile/$sCurrent Language/saved. html", 

# $oToken->data ( 'partner code 1 ) 

# ); 

print xd_web_redirect 
( 

"/account /prof ile/$sCurrentLanguage/saved. html", 
$oCookie->getElement ( 'partner 1 ) 
) ; 

$oUserSettings->f inish { ) ; 
$oUserSettings->disconnect ( ) ; 
$oDBO->disconnect ( ) ; 
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###share_a_file.cgi 

# ! /usr/bin/perl 

use lib ($ENV{ PERL_XDRIVE_LIB) ) ; 

use XDrive: : Client :: Quota; 

use Math: : TrulyRandom; 

use XDrive :: DatabaseO; 

use XDrive :: DatabaseO: : Search; 

use XDrive: : DatabaseO: : Transaction; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive : : Utils : : RandomString; 

use XDrive : :CGI ; 

use Mail: :Sendmail; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use CGI; 

use XDrive :: Template ; 

use XDrive :: Client :: Security; 

use XDrive :: Error ; 

use XDrive :: Library; 

use XDrive : :CGI :: Cookie; 

use strict; 

&main { ) ; 

sub main { 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error ; 

my $xdDBH = XDrive :: DatabaseO->new () ; 

my SoCookie = new XDrive :: CGI :: Cookie (' x_session_inf o ' , $cgi) ; 
#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd__security_check ($xdDBH, $cgi, $oErr) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) { 

xd_f atal_error ($cgi, $oErr) ; 
$xdDBH->disconnect { ) ; 
exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
# my $sPartner = $oToken->data ( 1 partner_code ' ) ; 
my $sPartner = $oCookie->getElement ( 'partner ') ; 
my $nl)ser — ID = UserldGet ($oToken->data { 9 user ' ) ) ; 
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## Grab the user info from the Database 

my $oUserInfo = XDrive :: DatabaseO :: Table :: User Data->new ({) , $xdDBH); 

my $sFileName = $cgi->param ( "sFileName" ) ; 
my $bHelp = $cgi->param { "help" ) ; 

my $sFriendsEmail = &get_f riends_emails ($cgi ) ; 

my $sEmailSubject = $cgi->param ( ' sEmailSub ject 1 ) ; 

my SsEmailMessage = $cgi->param ( "sEmailMessage" ) ; 

my $sFileDescription = $cgi->param ( "sFileDescript ion" ) ; 

my ($sRandomKey / $sFilePath) ; 

## Load user info where the SEQ = $nUser_ID 
$oUserInf o->loadWhere ( "SEQ" , $nUserJD) ; 

my $sUser_name = $oUserInfo->f etchColumn ( "NAME_FIRST" ) . " " . 
$oUserInfo->f etchColumn ( "NAME_LAST" ) ; 

my $sUser_email - $oUserInfo->f etchColumn ( "EMAIL_ADDRESS") ; 

if ($sFriendsEmail) 
{ 

$sFilePath="/"; 

$sFileName m% (.*)/{•*)% ; 

tinserted this code to catch documents that are not in a folder 

my $tempFilePath « "/" . $1; 
my $tempFileName = $2; 

if (StempFileName ne "") 
{ 

$ s Fi 1 eName=$ t empFi 1 eName ; 
$sFilePath=$tempFilePath; 
} 

&verif y_database_values ($nUser_ID, $sFileName, $sFilePath, 

SsFilePath, $sFileName, 
$sFileDescription, $oT6ken, $oErr) ; 

## Insert the info into the disk_item_share table, and get the 

random key 

$sRandomKey = &insert_f ile_into_database ($nUser_ID, $sFileName, 
$sFilePath, $sFileDescription, $xdDBH, $oToken, $oErr) ; 

&send__mail ($sFriendsEmail, $sEmailSub ject , $sEmailMessage, $sFileDescription, 
$sUser_narae, $sUser_email, $nUser_ID, 
$sRandomKey, $sPartner f $oToken, $oErr , $cgi) ; 

&display_thank_you ($s Partner ) ; 

} 

else { 

$oUserInfo->f inish{ ) ; 
$xdDBH->disconnect () ; 

&display_form ($sFileName, $bHelp, $sPartner) ; 

} 

V 

$oUserInfo->finish< ) ; 
$oUserInfo->disconnect () ; 

) 
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sub send__mail { 

my (SsFriendsEmail, SsEmailSubj ect , SsEmailMessage, $sFileDescription 
SsUser_name, $sUser_email ; $nUser_ID, SsRandomKey, 
$sPartner,$oToken,$oErr,$oCGI) = <a_; 

to url ##9et langUagS fr ° m the cookie - If not english, append language code 

my SoCookie = new XDrive :: CGI :: Cookie ( ' x_ses sion_info \ SoCGI); 
my $language = SoCookie->getElement (' language ') ; 
if ($language ne 'english') 
{ 

if (Slanguage eq 'Spanish 1 ) 
I 

SsRandomKey .= "-SP" ; 

} 

} 



SsEmailMessage = & get_mes sage ($sEmailMes sage, 
SsRandomKey, SsPartner, $nUser__ID) ; 

my %toXdrive = 
( 

To => "SsFriendsEmail", 

From => "SsUser_name -<SsUser_email>" , 

Message => SsEmailMessage, 

Subject => "SsEmailSubject ", 

) ; 



unless (sendmail %toXdrive) 
{ 

warn "## Mail error SMail :: Sendmail :: error; 
if (SMail: : Sendmail :: error /451/) 
{ 

my SsMessage = SoErr->ReturnMessageGivenCode ( 1310) ; 
XDErrorToBrowser ( " ", SsMessage, undef , SoToken) ; 

else 

{ 

my SsMessage » $oErr->ReturnMessageGivenCode ( 1311 ) ; 
XDErrorToBrowser ( "", SsMessage, undef, SoToken) ; 

exit (1) ; 
) 

} 

sub get__message { 

my (SsEmailMessage, SsRandomKey, SsPartner, $n_UserID) = @ ; 

my SoMessage = new XDrive :: Template ; 
SoMessage->partner (SsPartner) ; 

SoMessage->load( ' share_a_f ile message . thtml ' ) ; 

SoMessage->tags 
({ 

•Message' => SsEmailMessage, 
' RandomKey ' =>SsRandomKey, 

'nUser_ID' =>Sn_UserID, 
' sender ' =>$ENV { • HTTP_HOST ' } , 

}) ; 

return SoMessage->get ; 
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sub display_f orm { 

my ($sFileName, SbHelp, $sPartner ) = @_; 
my $oForm = new XDrive :: Template ; 
$oForm->partner ($sPartner) ; 
$oForm->load ( ' share_a_f ile . thtml 1 ) ; 

my $sHelp=' * ; 

if <$bHelp eq 'true' ) 
{ 

my $oHelp = new XDrive :: Template; 
$oHelp->partner (SsPartner) ; 
$oHelp->ioad ( 1 share_a_f ile_help . thtml * ) 
$sHelp = $oHelp->get; 
} 

$oForm->tags 
({ 

'sFileName' => $sFileName, 
'helptexf => $sHelp 
}) ; 



print header, $oForm->get; 
exit (0) ; 



sub display_thank_you { 

my $sPartner = shift; 

my $oForm = new XDrive :: Template; 

$oForm->partner($sPartner) ; 

$oForm->load( ' share_a_f ile t_y. thtml ' ) ; ^ 

print header, $oForm->get; 



exit (0) ; 



} 



sub verif y_database_values { 

my ($nUser_ID, $sFileName, $sFilePath, $sFilePath # SsFileName, 
$sDescription, $oToken, $oErr) « <§__; 

if (length ($sDescription) > 255) { 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1 320) ; 
XDErrorToBrowser ( $sMessage, undef, $oToken) ; 

) 

if (length <$sFilePath) > 255) { 

my $sMessage - $oErr->ReturnMessageGivenCode ( 1321) ; 
XDErrorToBrowser ( "", $sMessage, undef , $oToken) ; 

} 

if (length ($sFileNaroe) > 255) { 

my $sMessage = $oErr->ReturnMessageGivenCode (1322 ) ; 
XDErrorToBrowser ("", $sMessage / undef , $oToken) ; 

} 



sub insert^ f ile_into_database { 

my ($nl)ser_ID, $sFileName, $sFilePath, $sFileDescription, 
$xdDBH, $oToken, $oErr) = @_; 
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my @characters = ( • a ' . . • z 1 , ' A' . . ' z • , • 0 • . . 1 9 » ) ; 

##seed random number generator 

srand (truly_random__ value ( ) ) ; 

my SgmTime = time; 

##grab length of time 

my $randLen = 32 - length ($gmTime ) ; 

my SsRandomKey = XDRandomString ( $randLen, \8characters) * 

##now we have a Random key 

$sRandomKey = $gmTime . SsRandomKey; 

## at this point we have a random number 

## of length gmTime with the current gmt time appended to it 

2 5^^ SaCt± ^ = XDrive::Database0::T "nsaction.>ne W ($xdDBH); 

if ($status < 0) 
{ 

$transaction->rollback ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1323) * 
XDErrorToBrowser < $sMessag e/ undef , SoToken) ; 
exit(l); 

} 

else 
{ 

$transaction->commit ( ) ; 

} 



} 



return $sRandomKey; 



sub get_friends_emails { 
my $cgi = shift; 

my ($email_list, @email_array) ; 

if ^ (length $cgi->param ( ' sFriendsEmailO • ) > 0) 

push{@email_arra y/ $cgi->param (' sFriendsEmailO •>) ; 

if ^(length $cgi->param (• sFriendsEmailO • ) > 0) 

push(0email_array # $cgi->param ( • sFriendsEmaill ' ) ) ; 

if ^ (length $cgi->param (' sFriendsEmailO » ) > 0) 

push (@email_array, $cgi->param ( ■ sFriendsEraail2 ' ) ) ; 

if ^ (length $cgi->param (' sFriendsEmailO ■ ) > 0) 

push (Gemail^array, $cgi->param ( • sFriendsEmail3 » ) ) ; 

if ^ (length $cgi->param (' sFriendsEmailO • ) > 0) 

push(@email_array, $cgi->param ( • sFriendsEmaiH ' ) ) ; 
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$email_list = join(", M , @email_array) ; 
return $ernail list; 
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###signup_account.cgi 



# ! /usr/bin/perl 

## -drDProf 

## -d:SmallProf 

## Written by Martin Hald <mhald@uci . edu> on Wed Apr 7 1999. This program 
## adds new users to the database. 

## Modified by Justin White for cookie referee and promo stuff and to make 
## mod_perl friendly and to work with changes to the Security module and 
## to get rid of the XDrive::CGI module and to create a CGI object. 

use strict; 

use lib ($ENV{ PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use XDrive :: Client :: Registration; 
use XDrive :: Error ; 
use XDrive: ."Client: : Security; 
use XDrive :: Template; 

use XDrive :: DatabaseO: : Table :: UserData ; 

use XDrive: : DatabaseO: transaction; 

use XDrive: : DatabaseO: : Table: :UserQuota; 

use XDrive : : DatabaseO: : Table : : Promo; 

use XDrive :: DatabaseO: : Table :: DiskAccount ; 

use XDrive : : DatabaseO: : Table : : Reseller; 

use XDrive :: Template; 

use XDrive :: DatabaseO: : Search; 

use XDrive :: CGI :: Cookie; 

use XDrive :: Library; 

use Mail : : Sendmail ; 

use CGI qw{param redirect header cookie); 



BEGIN 



push(<aiNC, "/export /home/www/thirdparty/mint2/perl") ; 



use Mint2; 



&main; 



exit; 



sub main { 



my $oCGI = new CGI; 

my $oCookie = XDrive :: CGI :: Cookie->new ( • x_session_inf o ' , $oCGI); 
my $oSTDCcokie = XDrive :: CGI :: Cookie->new (' xd_std_info * , $oCGI); 



my $f ile__f ound; 



### Use the new XDrive :: CGI :: Cookie now. 

my $promo__uri - $oCookie->getElement (* promo 1 ) ; 

my $ref_seq_cookie = $oCookie->getElement {' referee ') ; 

my $ref erred_f rom - $oCookie->get Element (* ref ered__f rom 1 ) ; 

my $claim_ticket = $oCookie->get Element {' ct *) ; 



my $ref_seq_param 
my ^password 
my $password_conf irm 
my $birth_year 



» $oCGI->param ( ' ref eree • ) ; 

= $oCGI->param( 'password' ) ; 

= $oCGI->param < ' pas sword_con firm • ) ; 

= $oCGI->param ( *birth_year 1 ) ; 
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my $username 

my $name_first 

my $name_last 

my $email_address 

my $country_seq 

my $gender_seq 

my $postal_code 

my $occupation_seq 

my $referee 

my $marketing 

my $newsletter 

my $media_type_seq 



$oCGI->param ( 1 username ' ) ; 
$oCGI->param ( ' name__f irst 1 ) ; 
$oCGI->param ( » name_last • ) ; 
$oCGI->param ( ' email_address ' 
$oCGI->param ( 1 country ■ ) ; 
$oCGI->param { • gender ' ) ; 
$oCGI->param ( ' zip2 ' ) ; 
$oCGI->param ( 1 occupation 1 ) ; 
$oCGI->param ( ' referee ' ) ; 
$oCGI->param { 'marketing • ) ; 
$oCGI->param ( » newsletter 1 ) ; 
$oCGI->param ( 1 media_t ype 1 ); 
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## PARAMS TO GATHER IF THIS 
## THE DOWNLOAD 
my SsSTDPartner = $oSTDCooki 
my $sLanguage = $oSTDCooki 
my $sFileURL - $oSTDCooki 
my $sFileName = $oSTDCooki 
my $sAltURL = $oSTDCooki 

my $sCatId = $oSTDCooki 

my $sGid = $oSTDCooki 

my $sSid = $oSTDCooki 



IS CALLED FROM SKIP 

e->getElement ( ' STDPARTNER ' ) ; 
e->getElement ( • LANG 1 ) ; 
e->getElement ( 1 FILEURL 1 ) ; 
e->getElement ( • FILENAME* ) ; 
e->getElement ( * ALTURL 1 ) ; 
e->getElement { * CAT I D 1 ) ; 
e->getElement ( • GID • ) / 
e->getElement ('SID'); 



## check if database is up 
my $oDBO; 4 
my $oSearch; 

if (XDDBConnectionCheck{ ) && XDNFSCheck ( ) ) 
{ 

## connection good proceed normally 
$oDBO = new XDrive :: DatabaseO ( undef ) ; 
^ $oSearch = XDrive :: DatabaseO: : Search->new ($oDBO) ; 

else 
{ 

## connection bad write data to a temp file and load 
## upgrading page telling them that they will be 
## informed once X: drive is up 
$oDBO = undef; 
$oSearch = undef; 
my $tempVar; 

my $tempErhail = $oCGI->param ( • f riends_emaill ' ) ; 
my $numFriends = $oCGI->param ( ■ numFriehds • ) ; 

my SaddrArray = $tempEmail; 

my $nameArray « $oCGI->param ( ■ f riends_namel * ) ; 

## generate list for the javascript array 
for (my $i = 2;$i <= $numFriends; $i++ ) 
{ 

$tempVar = $oCGI->param ( ' f riends_email ■ . $i) ; 

if (StempVar) 
{ 

SaddrArray .= . StempVar; 

$nameArray .= . $oCGI->param ( • f riends_name • . $i) ; 

) 
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reg_while_down ( 

$promo_uri , 
$ref_seq_cookie, 
$referred_from, 
$clairn_ticket , 
$ref_seq_param, 
$password, 
$birth_year , 
Susername, 
$name_f irst , 
$name_last , 
$ ema i l_add r e s s , 
$ count ry_seq, 
$gender_seq, 
$postal_code, 
$occupation__seq, 
$referee, 
$marketing, 
$newsletter, 
$media_t ype__seq, 
$naraeArray, 
$addr Array 
); 
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## leave and show upgrading page test me 

print redirect ( "/upgrading_signup_success . html " ) ; 

exit; 

} 

##my $oDB0 - new XDrive : : DatabaseO (undef ) ; 

limy $oSearch - XDrive :: DatabaseO: : Search->new ($oDBO) ; 

###### 

### If mediant ype_seq equals 'notset ' , then set it to NULL. 
###### 

$media_type_seq = ' • if $media_type_seq eq * notset'; 

my $partner_code = ' xdrv ' ; 
my $partner_seq =1; 

my $promo_seq; 

###### 

### Check to see how the referee sequence, if any, was passed in. 
### If it was passed in via cookie, then use that. Else, assume 
### that it is a form parameter. 
###### 

my $ref_seq = $ref_seq_cookie ? $ref_seq_cookie : $ref_seq_param; 
###### 

### If we were passed a promo uri, then let's get the promo seq 
### from promo table using Promo. pm to pass to xd_client_register . 
###### 

if ($promo_uri) { 

my $oPromoInfo = XDrive :: DatabaseO: : Table :: Promo- 
>new( undef , $oDBO) ; 

$oPromoInf o->loadWhere ( • URI ' , $promo_uri) ; 
$promo_seq = $oPromoInf o->f etchColumn ( ' SEQ' ) ; 

$oPromoInf o->f inish ( ) ; 

} 

###### 
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### Load the required template HTML files. The content that we load 
depends 

### on if the new registration went through or if we need to have them 
re-fill 

### the form. 
###### 

my SoContent = new XDrive :: Template { { f partner_code ' => 'xdrv'} ); 

my SoLayout = new XDrive :: Template ( { ' partner__code ' => 'xdrv') ); 

my SoNavigation - new XDrive :: Template ( { 1 partner_code 1 => 'xdrv' } ); 

my $oErr = new XDrive :: Error ; 

$oContent->load ( ' f ront_signup. thtml ' ) ; 
$oNavigation->load ( ' f ront__nav. thtml ' ) ; 
$oLayout->load ( • layout . thtml ' ) ; 

###### 

### Perform data validation 
###### 

if ($password ne $password_confirm) { 
$oErr->AddErrorByErrorCode (709) ; 

} 



###### 

### Attempt to register the user if no errors have been logged 
###### 

if ( ! $oErr->Occurud ) { 



{ 'birth_year • 




=> $birth__year, 


'partner seq 1 


=> 


$partner_seq, 


' username ' 


=> 


$username, 


'password* 


=> 


XDEncrypt ($password) , 


1 name_f irst ' 


=> 


$name_first, 


'name last' 


=> 


$name__last. 


'email address' 


=> 


$email_address, 


' count ry_seq' 


-> 


$ count ry__seq, 


' gender ' 


=> 


$gender_seq, 


' postal_code ' 


=> 


$postal_code, 


• occupation__seq' 


=> 


$occupation_seq, 


' referee ' 


=> 


$ref_seq, 


'marketing ' 


=> 


$marketing, 


' newsletter' 


=> 


$newsletter/ 


' partner_code • 


=> 


$partner_code, 



$oCGI, $oErr f $oDBO ) 
} 



•promo^seq' => $promo_seq, 

' mediant ype_seq' => $media_type_seq} , 



if ($oErr->MaxIndex{) < 0) { 

## No errors occured, the user has already been added to the 
## database through the xd_client_register subroutine so now 
## send the user an email and then 
## log the user and go to the user's homepage. 

client_email_send ($username, 

$name_f irst, 
$name_last , 
$email_address, 

'X\:drive Team <team@xdrive.com>', 
'Welcome to^X: drive! - Important Account 

$partner_code, 
$promo_seq) ; 
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###### 

### If we have a claim ticket, then remove that ticket 
### from the batch_user_data table because the user has 
### been added and we don't need that data anymore. 

###### 
if ($claim__ticket ) { 

my $oTransaction = XDrive : : DatabaseO : : Transaction- 

>new($oDBO) ; 

my $rv = $oTransaction->removeClaimTicket ( $claim_ticket ) ; 

if ($rv == 1) { 

$oTransaction->commit ( ) ; 

} 

else { 

$oTransaction->rollback ( ) ; 

} 

} 

##if we have a referee seq, give the referee additional space 
if <$ref_seq >= 1 ) { 

## johngaa add to exclude college club and quepasa users 
my $oUserData = XDrive :: DatabaseO: : Table :: UserData- 



out 

>new (undef , $oDBO) ; 



$oUserData->loadWhere ( "SEQ" , $ref_seq) ; 
my $reseller_seq = $oUserData- 
>f etchColumn ( "RESELLERjSEQ" ) ; 

if ( ! (isResellerSeqCC_QUPA($oDBO, $reseller seq) ) ) 
{ 

## end of johngaa 

my $oUserQuota = XDrive :: DatabaseO :: Table :: UserQuota- 
>new (undef, $oDBO) ; 

$oUserQuota->loadWhere( "USER_SEQ", $ref_seq) ; 

my $additional_quota = SoUserQuota- 
>incrementQuota ($ref_ seq, 5120) ; 

if ($additional_quota > 0) { 

&send_email_ref eree ($ref_seq, $oDBO, $oCookie, $additional_quota, $ref erred_f rom) 

} 

$6UserQuota->f inish { ) ; 
} 

) 

##if the user is from Cybergold, process through Cybergold 
if {$promo_uri=-/cybergold/) { 
my ($code, %res) = 
&contact_cybergold ($oCGI, $username, $email_address ) ; 
} 

##if user is coming from the befree promo 
##write to file that they've signed up 
if ($promo_uri /befree/) { 

&write_bef ree^log ($oCGI) ; 
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if ($sFileORL eq ' ' ) { 

client_login ($username, $oCGI) ; 

} else { 

std_login ($username, 
$oCGI, 

$sSTDPartner, 

$sLanguage, 

$sFileURL, 

$sFileName, 

SsAltURL, 

SsCatld, 

$sGid, 

$sSid) ; 

) 

$oSearch->disconnect () ; 
exit ; 

> 

else { 

## Reload the signup form, show the errors and pre-fill all 
## the form elements except the password. 

##if we are overriding standard registration form 
##load it here 

i f { $promo_ur i ) 
{ 

$file_found = $oContent->load ($promo_uri . 

'^registration . thtml ' ) ; 

if ( !$file_found) 
{ 

$file_found - $oContent- 
>load ( ' promo_regist rat ion . thtml * ) ; 

} 

> 

if { ( !$promo_uri) || { ! $f ile_f ound) ) 
{ 

$oLayout->load ( "layout . thtml " ) ; 
$oNayigation->load { "f ront_ nav. thtml" ) ; 
$oContent->load ("front_signup. thtml" ) ; 

) 

ray ($select^marketing, $select_newsletter ) ; 

my $checked = "CHECKED"; 

if ($marketing eq 'on 1 ) { 

$select_marketing = $checked; 

} 

if ($newsletter eq 'on') { 

$select_newsletter = $checked; 

} 

## IMPORTANT ## 

## make sure to put all non text fields at the top of 
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## the tags function or it will gag 

## Search and replace the following tags 
$oContent->tags( {•country* => 
xd_f orm_countries ($country_seq, $oSearch) , 

•occupation 1 => 
xd_form_occupation{$occupation_seq, $oSearch) , 

' media_type' => 
xd_f orm_jnedia_type ($media_type_seq, $oSearch) , 

'gender' => 
xd_form_gender ($gender_seq ; SoSearch) , 

•select^marketing' => $select_marketing, 
'select_newsletter ' => $select_newsletter ; 
•errors' => format_errors ($oErr) , 

•username' $usemame, 
•name_first ' => $name_first, 

•namejast' => $name_last, , 

•email_address 1 => $email_address, 

•birth_year' => $birth_year, 

•postal^code* => $postal_code } ); 

## 

## Added to have tell a friend support in registration 
## 

my (QaddrArray, GnameArray, Stemplndex, $tempName / 
StempEmail, $tempNum) ; 

## tell a friend data will be coming in to signup form 
## seperated by commas ~~ 

GaddrArray = split /, /, $oCGI->param ( ' f riends_email_array ' ) ; 
QnameArray = split /, /, $oCGI->param ( ' f riends_name_array ' ) ; 

$tempNum - $oCGI ->param ( 1 numFriends ' ) ; 

for (my $templndex=l; $templndex <= $tempNum; $templndex++) { 
$tempName « ' f riendsname ' . Stemplndex; 
$tempEmail = ' f riends_email • . $templndex; 

$oContent->tags ( {$tempName => $oCGI->param ( $tempName) , 

StempEmail $oCGI->param ( $tempEmail ) } 



} 



} 



## Clear the content of any unused tags. 
$oContent->clear; 



##if we are loading a non-standard registration, it's only one page 

if ( ($promo__uri) && ($file found)) 
{ 

^ print $oCGI->header() , $oContent->get ; 

else 
{ 

## Print out the HTML and exit 

$oLayout->tags( { » header_graphic • => 'header_registration.gif, 
'title' => 'Register Now! • , 

•content' => $oContent->get , 

•navigation' => $oNavigation->get } ); 
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^ print $oCGI->header() / $oLayout->get ; 

$oSearch->disconnect () ; 
return 0; 



sub isResellerSeqCC_QUPA 
{ 

my $oDBO = shift; 

my $reseller__seq = shift; 

my $dbh = $oDBO->f etchDBH ( ) ; 

my $sql_stmt « "SELECT code FROM reseller WHERE seq-^"- 
my $cmd; * ' 

my @data; 

$cmd = $dbh->prepare ($sql_stmt) ; 

$cmd->execute { ( $reseller_seq) ) ; 

©data = $cmd->fetchrow_array; 

if ($data[0] eq • cc • || $data[0] eq 'qupa') 

return 1; 

##print "should return a true\n" 

} 

return 0; 



j#«#**#jt#tt###################################t############# ####t###i##tt## 

## reg_whxle_down: Grabs all data that is needed to register a user 

?! routine add the data to a file in the tmp directory of the name 

## reg_while_down.datetime 

sujd reg_wnile down 

< 

my ($promo_uri, $ref_seq_coo)cie, $ref erred_f rom, $claim_ticket, 

$ref_seq_param, $password, $birth_year, $username, $name_f irst, 
$name_last, $email_address, $country_seq, $gender_seq, Spostal code, 
$occupation_seq, Sreferee, $marketing, ^newsletter, $media type" seq, 
*tell_a_friend_name, $tell_a_friend_addr) = @_; ~~ ~ 

my $ filename = XDGetRegDatFile ( ) ; 
open OUT FILE, "»$f ilename" ; 

print OUTF1LE "$promo_uri, $ref_seq_cookie, $ref erred from,"; 
print OUTFILE "$claim_ticket, $ref_seq_param, $password, "/ 
print OUTFILE "$birth_year, $username, $name_f irst, " ; 
print OUTFILE "$name_last , $email_address, $country seq,"- 
print OUTFILE "$gender_seq, $postal_code, $occupation_seq, " ; 
print OUTFILE "$ref eree, $marketing, Snewsletter, $media type seq,"; 
print OUTFILE "$tell_a_f riend_name, $tell a friend addr\n»;~ 
close OUTFILE; ~ 

) 

######################### ########## ^ 

## format_errors: Accept an error object and return an ordered list of 
## errors in HTML format. 

*i***«*i**#i*«i#t*#**##*t**t####»tft###tt#ff ##t # ififl<#fff##ti#<ff###ffff#f#f#ff# 
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sub f ormat_errors { 

my $oErr = shift; ## (I) errors 
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my $txt; ## formated HTML 

my $bPassword; ## has a password error been found? 
$txt .= "<ol>\n M ; 

my $nNumErrors = $oErr->MaxIndex ( ) ; 

for (my $i = 0;$i <= $nNumErrors;$i++) { 
my $error = $oErr->Message ( ) ; 

if ($error /assword/) { 
$bPassword = 1; 

} 

$txt "<lixfont color=RED>$error</font>\n";, 

} 

if (! $bPassword) { 

$txt .= "<lixfont color=RED>Please re-enter your 
password</f ont>\n" ; /* 
} 

$txt .= "</ol>\n"; 
return $txt; 

} 

############################################################################# 
## client_login : Create the needed token to identify the client and redirect 
## them to thier new homepage. 

############################################################################# 

sub client_login ($$) { 

## No errors oocured, add the user to the parter/user->real 
## user mapping and return a success code. 

my $username = shift; 
my $oCGI = shift; 

my $oDBO = new XDrive : : DatabaseO (undef ) ; 

my $oCookie = XDrive : : CGI : : Cookie->new ( ■ x_session__inf o ' , $oCGI); 

###### 

### Check the x_session_info cookie for promo or referee and 

### if they exist, delete those hash elements and reset the cookie. 

###### 

my $promo_cookie = $oCookie->getElement ( 'promo ') ; 
my $ref_cookie = $oCookie->getElement ( ' referee • ) ; 

if ($ref_cookie I I $promo_cookie) { 

$oCookie->deleteElement (' referee 1 ) if $ref_cookie; 
$oCookie->deleteElement ( 'promo* ) if $promo__ cookie ; 

print "Set-Cookie: " f $oCookie->asString ( ) ; 

} 

my $oError = new XDrive: : Error; 

my $oToken = xd__login ( $oCGI, $username, $oError, $oDBO) ; 
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correcrpage"^ ^ ^ ^ ° f th " t0 9et the code to show the 

SoDBO)? y $ ° DiSkAcCOUnt = XDrive: rDatabaseO: :Table: : DiskAccount->new(undef , 

$oDiskAccount->loadWhere("USERNAME", $username) ; 

« rt rv ^ ^ $ ° Us ^ r x °rive;:DatabaseO:: Table : : UserData->new (undef , 
$oDiskAccount->fetchDBO) ; ' 

$oUser->loadWherePK{$oDiskAccount->fetchColumn("USER__SEQ") ) ; 

« n- ^ $oRe f eller ~ XDr±ve::DatabaseO::Table::Reseller->new(undef, 
$oDiskAccount»>fetchDBO) ; 1 ' 

$oReseller->loadWherePK ( $oUser->f etchColumn ( "RESELLER_SEQ" ) ) ; 
my $oTemplate = new XDrive :: Template; 

$oTemplate->partner($oReseller->f etchColumn ("CODE") ) ; 

## originally this is where the signup form.cgi goes 
##$oTemplate->load ( 1 splash . thtml 1 ) ; 
$oTemplate->load ( * tell_a_f riend_f rame . thtml • ) ; 

##my $addrArray - $oCGI->param( 'friends_email array' ) • 
##my $nameArray = $oCGI->param ( • f riends_name array');' 
##my $numFriends - $oCGI->param ( • numFriends • ) J 

## generate list for the javascript array 
##my GaddrList - split /,/, $addrArray; 
##my @nameList = split /,/, $nameArray; 

##$addr Array = ""; 
##$nameArray « 

##my $count = GaddrList - 1; 

##for (my $i = 0;$i < $count;$i++) { 

##$addrArray "\»" . $addrList [$i] . »\ n , ,r ; 
##$nameArray . = "\»« . $nameList [$i] . «\« »- 

##) 

## this will add the quote without the comma 

##$addrArray .= "\'»" . $addrList [$count ] . »\»» ; 

##$nameArray .= "\"" . SnameList [ $count ] . »\»«- 
## gets the array started 
my $tempVar; 

my $tempEmail = $oCGI ->param ( » f riends_emaill 1 ) ; 
my SnumFriends = $oCGI->param ( » numFriends ') ; 

my $addrArray = »\*» . $tempEniail . «\»» ; 

my $nameArray « »\"» . $oCGI->param ( • f riends_namel 1 ) . »\"» ; 

## generate list for the javascript array 
for (my $i = 2;$i <= $numFriends; $i++) 
{ 

$tempVar = $oCGI->param <• friends email* . $i) ; 



if ($tempVar) 
{ 
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$addrArray .= M ,\"" . $tempVar . »\ MM ; 

$nameArray .= ",\"" . $oCGI->param ( • f riends_name • . $i) . »\"» ; 

} 

} 



$oTemplate->tags { { 'numFriends' => $numFriends, 

' f riends_name_array ' => $nameArray, 
• f riends_email_array 1 -> $addrArray } ); 

print $oCGI->header { ) ; 

print $oTemplate->get ( ) ; 

$oDiskAccount->f inish ( ) ; 
$oUser->f inish ( ) ; 
$oReseller->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 



############################################################################# 
## Login in user who is comming from a Skip The Download 
## Registration 

############################################.################################# 

sub std_login () { 

my $username = shift; 
my $oCGI = shift; 

my $sSTDPartner = shift; 

my $sLanguage = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift ; 

my $sCatId = shift; 

my $sGid = shift; 

my $sSid = shift; 

my $oDBO = new XDrive : : DatabaseO (undef ) ; 

my $oError = new XDrive :: Error ; 

my $oToken = xd__login ($oCGI , $username, $oError, $oDBO) ; 
xd set session cookie ($oCGI, $sSTDPartner , $sLanguage) ; 



my $oTemplate = new XDrive :: Template 
({ 

■partner^code* => $sSTDPartner, 
'language* => SsLanguage, 

•file' => 1 skip_the_download_f rom_reg . thtml ' , 
•tags' => 
{ 

' FILE_URL' => $sFileURL, 
• FILENAME 1 => $sFileName, 
' ALTRUL ' => SsAltURL, 

•LANG' => SsLanguage, 

' STDPARTNER ' => $sSTDPartner, 
1 CATID' => $sCatId, 
1 GID f => $sGid, 
■SID' => $sSid, 

} 
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$oTemplate->clear ( ) ; 

print "Content-type: text /html\n\n" ; 
print $oTemplate->get ( ) ; 
$oDBO->disconnect () ; 

} 

sub contact_cybergold { 
my $oCGI = shift; 
my $msgid = shift; 
my $email = shift; 

my %args = ( 

^mint^home' => $ENV{ 1 MINT_HOME ' } , 
•msg^ode* => • background_mode 9 , 

'usr^email' => $email, 
,m sg_id' => $msgid, 

■payjype' => 'reward', 

'pay^alue' => 1 1 . 00 ' , 

•pay^readme' => 'Thanks for registering with X:drive.', 

'co^ame* => 'x Drive 1 , 

, co_key f => - registration ' , 

1 co__account 1 => • 100500900000396 1 , 

■mint_secret ' => • 184FEB9DB8194 4502A1C91B2879484B6 • , 

'mint_url_pay' => ■ http : //wwwl . cybergold. com/payserver?pay server', 
'msg_version ' => f 2 . 2 ' — 
) ; 

my{$code, %res) = mint_invoke ( \%args ) ; 

##this is temp code to print out stuff for cybergold 

##my ©keys = keys %res; 

##my ©values = values %res; 

##while (©keys) 

##{ 

## die pop (Q keys), '=■, pop ( ©values ) , "\n"; 
# # > 

return $code; 



sub write_befree_log { 

my $oCGI = shift; 

my $source_id = $oCGI->cookie ( ' sourceid » ) ; 
##get the time 

##needed to figure out name of file to write to 
my ($nSec, $nMin, $nHour, $nDay, $nMonth, $nYear, $sDav) = 
(localtime (time) ) [0, 1, 2, 3, 4 , 5, 6} ; 

if ($nYear > 99) { 

SnYear = substr ($nYear , 1, 2 ) ; 

## Numeric month is 0-11, so add one 
$nMonth++; 

## Handle Y2K issue 
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if { $nYear >= 80 ) { 

$nYear += 1900; 

} 

else { 

$nYear += 2000; 

} 

my $dToday = sprint f < "%s%02d%02d" , $nYear, SnMonth, $nDay) ; 
my $dTodayFull = sprint f ( "%02d%02d%s 
%02d:%02d: %02d", $nMonth, $nDay, $nYear, $nHour, $nMin, $nSec) ; 

my $ text = 

"14 524 098\tS\t$dTodayFull\t$source_id\tl\tl\tl\tO. 00\tUSD\tregistration\n" ; 

warn "#BF" , $text, "\n"; 

##open (FILE, "»xdrive_orders_$dToday . txt " ) ; 
##print FILE $text; 
##close(FILE) ; 



sub send_email_referee { 

my $user_seq = shift; 

my $oDBO = shift; 
my $oCookie = shift; 

my $additional_quota = shift; 
my $ref erred_f rom — shift; 

my $language = $oCookie->getElement ( 1 language ') ; 
my $partner = $oCookie->getElement (* partner * ) ; 

if ($language eq 'Spanish') { 

my $text = ' un amigo que usted refirio'; 
if ($ref erred_f rom eq ' 2 1 ) { 

$text — 'un usted compartio un fishero con'; 

} 

} 

else { 

my $text = 'referred'; 

if ($referred_f rom eq ' 2 ' ) { 

$text — 'shared a file with'; 

} 

} 

my $text = 'referred'; 

if ($ref erred_f rom eq '2') { 

$text = 'shared a file with'; 

} 

ficornes in as k, change to megabytes 
my $mbs = $additional_quota/1024 ; 

my $oUserData = XDrive: : DatabaseO: :Table: : UserDat a->new ( undef , 

$oDBO) ; 

$oUserData->loadWhere ( "SEQ H , $user_seq) ; 

my $email_address - $oUserData->f etchColumn ( "EMAIL_ADDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_FIRST" ) ; 
my $name_last = $oUser Data- >f etchColumn ( "NAME_LAST") ; 

my $oTemplate = new XDrive :: Template ( {'language' => $language, 

•partner_code ' => $partner} ); 

$oTemplate->load ( ' received_5MB_tellaf riend . thtml ' ) ; 
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$oTemplate->tags ( {'mbs* => $mbs, 
'text' => $text) ) ; 
$oTemplate->clear { ) ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To => "$name_first $name_last <$email address>", 

Bcc => ,f , 

From => "support X@xdrive.com", 
Message -> $message, 
Subject => "Congratulations!" 
) ; 

sendmail (%toXdrive) ; 
$oUserData->f inish ( ) ; 
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###signup_form.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 
## Fri Apr 5, 1996 to use new templates. Updated Wed Apr 21 1999 to use 
## new library code. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp 1 f atalsToBrowser ' ; 

use XDrive::CGI qw(:MAIN); 

use XDrive: :Client: : Registration; 

use XDrive :: Template ; 

use XDrive :: DatabaseO: : Search; 

use XDrive :: Library; 

use constant XD_REGISTRATION_DEFAULT_COUNTRY => 223; 
exit &main; 
sub main { 

my $oContent = new XDrive :: Tempi ate; 
my $oNavigation = new XDrive :: Template; 
my $oLayout = new XDrive :: Template; 

my $oCGI = new CGI; 

my $oCookie = XDrive :: CGI :: Cookie->new (' x_session_info ' , $oCGI); 
my $oSearch; 



my $sReferee = $oCGI->param (' referee ') ; 

my $sClaimTicket = $oCookie->getElement ( 1 ct ' ) ; 



## Defaults 

my $sUsernarae = undef; 

my $sNameFirst = undef; 

my $sNameLast = undef; 

my $nY0B = undef; 

my $nPromoSeq = undef; 

my $nGender = 3; 
my $sEmailAddress = undef; 

my ($country_seq, $occupation_seq, $postal_code, $ct_promo__seq) ; 

my %pullDownHash; 

if (XDDBConnectionCheck() && XDNFSCheck ( ) ) 
{ 

$oSearch = XDrive: : DatabaseO: : Search->new (undef ) ; 

} 

else 
{ 

$sClaimTicket = undef; 
$oSearch = undef; 

%pullDownHash = generate_db_array ( ) ; 

} 

if ($sClaimTicket ) { 

my $rhData = getUserData ($oSearch, SsClaimTicket ) ; 
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if (SrhData) { 

my $oNewCgi = CGI->new ( $rhData ) ; 



$sUsername 

$sNameFirst 

$sNameLast 

$ s Ema i 1 Add r e s s 

$nYOB 
$nGender 
$occupation_seq 
$country_seq 
$postal_code 



$oNewCgi->param ( ' username ' ) ; 
$oNewCgi->param ( ' name_f irst * ) ; 
$oNewCgi->param ( ' name__last ' ) ; 
$oNewCgi->param { • email_address ' ) ; 

= $oNewCgi->param ( 1 birth_year 1 ) 
$oNewCgi->param ( 1 gender • ) ; 
$oNewCgi->param ( 1 occupation^seq ' ) ; 
$oNewCgi->param ( ? country_seq 1 ) ; 
$oNewCgi->param ( ' postal_code ' ) ; 



if ($sReferee ne "") { 

# my $oCookie = XDrive : : CGI : : Cookie->new ( • x_session_inf o ' , 

$oCGI) ; 

my $sRefered_from - $oCGI->param ( ' type ' ) ; 
$oCookie->setElement ( { ' partner_code * => * xdrv * } ) ; 
$oCookie->setElement ( { ' language ' => ' english ' } ) ; 
$oCookie->setElement ({ 'referee ' => $sReferee}); 
$oCookie->setElement ( { ' ref ered_f rom ' => $sRef ered_f rom( } ; 
print "Set-Cookie: " . $oCookie->asString ( ) ; 



$oContent->partner { 'xdrv* ) ; 
$oNavigation->partner ( 1 xdrv 1 ) ; 
$oLayout->partner ( * xdrv * ) ; 

## I'm assuming there will be one page and not a series of frames. 
## this can be changed if need be 

# my $oCookie = XDrive :: CGI :: Cookie->new (• x_session_info ' , $oCGI); 

# my $promo — $oCookie->get Element (' promo ') ; 

my $promo - $oCookie->getElement (• promo 1 ) ; 



my $file_found; 



##if we have a promo/ try to get a special registration page 
if ($promo) { 

##attempt to open a special registration page 

$file_found = $oLayout->load ($promo . ' ^registration . thtml ' ) ; 
if ( !$file_jfound) { 

##if we cannot, open the general promo reg page 
$file_found = $oLayout->load ( ' promo_regist rat ion . thtml 1 ) ; 

} 

} 

##is we don't have a promo then use the standard registration 
if { (! $promo) II (! $file_found) ) { 

## Load the required template HTML files. 
$oNavigat ion->load ( " f ront_na v . thtml " ) ; 
$oContent->load { "f ront_signup . thtml" ) ; 
$oLayout->load ( "layout . thtml " ) ; 



$oContent->tags 
U 

'username • 
• name_f irst * 
• name_last f 
'email address' 



=> $sUsername, 
=> $sName First, 
=> $sNameLast, 
=> $sEmailAddress, 
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'country' => 

xd_form_countries_db_check(XD_REGISTRATION DEFAULT COUNTRY 
$oSearch, \%pullDownHash) , ~ - 

^ q , \ a 'occupation' => xd_f orm_occupation db check (under, 

$oSearch, \%pullDownHash ) , - - 

o „ v *media__type* => xd form media type db check (undef 

$oSearch,\%pullDownHash), " - - 6CK lundet ' 

c c v. ' => xd - form _gender db check(undef, 

SoSearch, \%pullDownHash) , ~ ~ 

'select_marketing' => ' CHECKED' , 

' select_newsletter » => 1 CHECKED * , 

'referee' => $ S Referee / 

}); 

## Print out the HTML and exit 
$oLayout->tags 
<{ 

'headerjgraphic' => 'header_registration.gif, 
•title' => 'Register Now! 
'content' => $oContent->get , 
'navigation' => $oNavigation->qet 
}) ; 

} 

elsif ($sClaimTicket) { 
$oLayout->tags 
( { 

'country' => xd_f orm_countries ($country_seq, 

'occupation' => xd _f orm^occupation {-Soccupat ion_seq, 

•media_type' => xd_f orm_media_type (undef , $oSearch) , 

gender => xd_f orm^gender ($nGender , $oSearch) , 

selectjmarketing' => • CHECKED' , 
' select_newsletter ' => 'CHECKED • , 

•username' => $sUsername, 

, name_firsf => $sNameFirst , 

•name_last' => $ S NameLast , 

•email_address' => $sEmailAddress, 

•birth_year' => $nYOB, 

'referee' => $ S Referee, 

'postal_code f => $postal code 

} ) ; 

} 

else ( 

$oLayout->tags 
({ 

' country • => 

xd_form_countries_db_check(XD_REGISTRATION DEFAULT COUNTRY 
$oSearch, \%pullDownHash) , ~ ~~ ' 

a c i_ v o 'occupation' => xd_form occupation db check (undef 

SoSearch, \%pullDownHash), , - u > necK l unaer ' 

„ „ , 'media_type' -> x d form media type db check(undef 

$oSearch,\%pullDownHash), ~. - ^ e - aD _ cnecK lunaet , 

$A<!Mr . xa ^J 9 ^^ => xd - form _gender_db check(undef / 

SoSearch, \%pullDownHash) , 

' select_marketing' => 'CHECKED' , 

'select_newsletter ' => 'CHECKED', 

•referee' => $oCGI->param (• referee ') , 

} ) ; 

} 

$oLayout->clear; 
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print $oCGI->header, $oLayout->get ; 

if (defined $oSearch) 

{ 

$oSearch->disconnect { ) ; 

} 



return 0; 



## johngaa add to check of db is up or down 

sub generate_db_array 

{ 

## create a hash 

my %tempHash; 

my $i = 1; 

my $key; 

my @tempVal; 

open FH, "<down_data . dat " ; 

while (<FH>) 
{ 

chomp $_; 

if ($_ =~ /~#(\w+)/g) 
{ 

my GnewArray; 
$i - 1; 
$key = $1; 

$tempHash{$key> = [ GnewArray ]; 

} 

else 
{ 

etempVal = split ( /W, $_) ; 

$tempHash{$key}->[$i - 1] [0] « $tempVal [0] ; 
$tempHash{$key}->[$i - 1] [1] = $tempVal[l]; 
$i+ + ; 

} 

} 

close FH; 

return %tempHash; 

} 



sub xd_f orm_countries_db_ check 
{ 

my $default = shift; 

my $oSearch = shift; 

my SpullDownHash = shift; 

my $returnVal; 

if {defined $oSearch) 
{ 

$returnVal = xd_f orm_countries (XD_REGISTRATION_DEFAULT_COUNTRY, 
SoSearch), 
} 

else 
( 

## insert alternate source of countries here 
my $templ = $pullDownHash-> { 1 country 1 } ; 

$returnVal - options_list (XD_REGI STRATI ON_DEFAULT_COUN TRY, @$templ) ; 
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return SreturnVal; 

} 



sub xd_f orm_occupation_db_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my SpullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

SreturnVal = xd_f orm__occupation (undef , $oSearch) , 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> { • occupation '} ; 
$returnVal = opt ions_list (undef , @$templ ) ; 

} 

return SreturnVal; 

} 

sub xd_f orm_media_type_db_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my $pullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal =* xd_f orm_media_type (undef , $oSearch) , 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> { 'media_type 1 } ; 
$returnVal = options_list (undef , @$templ ) ; 

} 

return $retumVal; 

) 

sub xd_f orm_gender_db_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my $pullDownHash = shift; 

my SreturnVal; 

if (defined SoSearch) 
{ 

$returnVal = xd_f orm_gender (undef , $oSearch), 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> {' gender •} ; 
$returnVal = options_list (undef , <§$templ ) ; 
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return $returnVal; 

} 



## end of johngaa add 
sub getPromoURI {$$) { 

my $oSearch = shift; 

my @promo_seq = (shift); 

my $oDBH = $oSearch->f etchDBO->f etchDBH ( ) ; 

my $st = "SELECT uri FROM xdrive. promo WHERE seq = ? w ; 

my $data = $oDBH->selectcol_arrayref ($st , . undef , @promo_seq) ; 

return $data->[0]; 

} 

sub getUserData { 

my $oSearch = shift; 
my $sTicket = shift; 

my $oDBH = $oSearch->f et chDBO->f etchDBH ( ) ; 

my $sQuery = "SELECT DATA FROM BATCH_USER_DATA WHERE CODE = ?"; 
my $oCursor = $oDBH->prepare ($sQuery) ; 
$oCursor->bind_param (1, $sTicket) ; 
$oCursor->execute; 

my $rh; 

my $sData = $oCursor->f etchrow^array ( ) ; 

# my ($sData) = $oCursor->fetchrow_array ( ) ; 

# eval $sData; 

# return $rh; 
return $sData; 

} 
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###signup_success.cgi 

# ! /usr/bin/perl 

## This CGI allows us to pass the sst and sid on to the inner frame 
## 

## Modified by Justin White on 10/14/99 by manually printing the 

## header to the browser and getting rid of the XDrive::CGI import 

## Created new cgi, database, and error objects to pass to xd security check 

## Also added the exit in the sub call. ~~ 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use CGI:: Carp qw(fatalsToBrowser) ; 
use CGI .( ) ; 
use Token; 

use XDrive :: Client :: Security; 

use XDrive: : Template; 

use XDrive :: DatabaseO; 

use XDrive: : Error; 

use XDrive :: Library; 

use XDrive: :CGI : :Cookie; 

Smain ( ) ; 

exit; 

sub main 
{ 

my $oCGI = new CGI; 

my $oDB0 = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error ; 

my $oCookie = new XDrive :: CGI :: Cookie ( f x_session_inf o 1 , $oCGI) ; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security__check ( $oDB0, $oCGI , $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $sUsername = $oToken->data ( 1 user ' ) ; 

### Edited by Justin so that the partner_code is looked for in 
### the cookie instead of the token table. 

# my $sPartner = $oToken->data { f partner_code 1 ) ; 

my $sPartner = $oCookie->getElement (' partner ') ; 
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if (! defined $sPartner) 
{ 

$sPartner = "xdrv"; 

$oCookie->setElement ( { ' partner ' =>$sPartner } ) ; 
print "Set-Cookie: " , $oCookie->asString ( ) ; 

} 

my $oTemplate = new XDrive :: Template ( { 'partner^code' => $sPartner) 



$oTemplate->load ( 1 signup_success . thtml 1 ) ; 
$oTemplate->tags ( { 'username' => $sUsername} ); 

print "content-type : text /html \n\n" ; 

print $oTemplate->get ( ) ; 

$oDBO->disconnect { ) ; 

return 0; 
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# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 

## Fri Apr 5, 1996 to use new templates. 

## 

## Modified by Justin White on 10/11/1999 so that it sets a cookie 
## 

## Modified by Martin Hald on 11/15/1999 so that is now accepts 

## - partner 

## - language 

## - agreeuri 

## - disagreeuri 

use strict; 

use lib ($ENV{ PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use XDrive: : Template; 
use XDrive :: CGI :: Cookie; 

Smain ( ) ; 
exit; 

sub main { 

my $ cookie; 

my $sPartnerCode; 

my $oCGI = new CGI; 

my SoCookie = XDrive : : CGI : : Cookie->new ( ' x_session_info ' , $oCGI) ; 
my $sReferee = $oCGI->param { ' referee ' ) ; 
my $sPartner = $oCGI->param ( 'partner ') ; 
my $sLanguage = $oCGI->param (• language ' ) ; 
my $sRefered_from = $oCGI->param { • type 1 ) ; 

$oCookie->setElement ( { ' partner_code 1 =>$sPartner } ) ; 
$oCookie->setElement ( { ' language * =>$sLanguage} ) ; 

if ($sReferee ne nn ) { 

$oCookie->setElement ({ 'referee* => $sReferee} ) ; 
$oCookie->setElement ({ • ref ered_f rom • => $sRef ered_f rom} ) ; 
print "Set-Cookie : " . $oCookie->asSt ring ( ) ; 

) 

if { ! defined $sPartner) { 
$sPartner = 'xdrv'; 

} 

## Load the terms and conditions 

my $hDefaults = { 9 partner_code ' =>$sPartner, ' cookie • <=>$oCookie } ; 
my $oContent = new XDrive :: Template ($hDefaults) ; 
my SoLayout = new XDrive :: Template ( ShDefaults) ; 

$oContent->load( 'presignup. thtml ' ) ; 

if ($sPartner eq 'xdrv') { 

my $oNavigation = new XDrive :: Template ($hDefaults) ; 
my $oHeader = new XDrive :: Template (ShDefaults) ; 

my $oFooter = new XDrive : ^Template ($hDefaults) ; 
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3oLayout->load ( ' layout . thtml ■ ) ; 
$oNavigation->load ( ' front_nav . thtml 1 ) ; 
$oHeader->load ( • presignup_header . thtml ' ) ; 
$oFooter->load { • presignup_f ooter . thtml 1 ) ; 
$oContent->tags ( { 'header' => $oHeader->get , 

'footer* => $oFooter->get , }); 
$oLayout->tags ( { 'navigation 1 => $oNavigation->get , 

•header^graphic' => 'header_registration.gif, }); 

} else { 

$oLayout~>load { ' tac_wrapper . thtml * ) ; 

} 

my $sAgreeURI = $oCGI ->param ( ' agreeuri ' ) ; 
my $sDisagreeURI = $oCGI->param (' disagreeuri ') ; 

$oLayout->tags({ 'title' => 'Terms and Conditions', 

'content 1 $oContent->get , 

'agreeuri' => $sAgreeURI, 

'disagreeuri' => $sDisagreeURI , } ) ; 
$oLayout->clear; 

print $oCGI->header ( ) ; 
print $oLayout->get ; 

return 0; 
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###skip_the_download.cgi 

# ! /usr/bin/perl 
use strict; 

use lib $ENV{PERL_XDRIVE_LIB} ; 

use CGI qw(param redirect header cookie); 
use CGI: : Cookie; 

use LWP: : UserAgent ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use XDrive: .-Client : : Security; 

use XDrive: :Client : :Actions; 

use XDrive: :DatabaseO: :Table: : DiskAccount ; 

use XDrive: : DatabaseO: : Search; 

use XDrive: : DatabaseO: transaction; 

use XDrive :: Template; 

use XDrive: :CGI qw<:MAIN); 

use XDrive: :CGI: :Cookie; 

use XDrive :: DatabaseO ; 

use XDrive: : Error; 

use constant TRUE => ( 1==1 ) ; 
use constant FALSE => ! TRUE; 
use Token; 



my $oDBO = new XDrive :: DatabaseO; 
main ( $oDBO) ; 

$oDBO->disconnect; 
exit; 

###########################«^ 

## NOTE: Remove the quota check from here. will be handled in java 
******#*******####f######*#t#ft##*ftff*#####fft##**##*«##########t*| ##tt## # ## t#ff## 

sub main 
{ 

my $oDB0 = shift; 

my $oCGI = CGI->new<); 

my $oErr = new XDrive :: Error ; 

my SoCookie = XDrive : : CGI : : Cookie->new ( ' xd_std_inf o ' , $oCGI) ; 



## 
my 
my 
my 
my 
my 
my 
my 
my 
my 
my 
my 
my 



params for 
$sFileURL 
$sFileName = 
SsAltURL 
$sSid 
$sGid 
$sCatId 



file url and file name 
= $oCGI->param ( ' FILEURL 9 ) ; 
$oCGI->param( • FILENAME ■ ) ; 
$oCGI->param{ * ALTURL ■ ) ; 
$oCGI->param( f SID» ) ; 
$oCGI ->param ( ' GID' ) ; 

$oCGI->param { 'CATID ' ) ; 



$sPartnerCode = $oCGI->param ( * STDPARTNER • ) 
$sLanguageCode = $oCGI->param ( • LANG ' ) ; 
$sUsername = $oCGI->param ( • user 9 ) ; 
SsPassword ■» $oCGI->param ( 'pass 9 ) ; 
$sError = $oCGI->param (• error ') ; 
$sCookie = $oCGI->cookie ( 9 SST 9 ) ; 
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my $sessionCookie; 

my SsPromo = r ' ; 

my $sPartnerParams = ""; 

my $sCNetString = / 



## IF THE SPECIAL C I NET VARIABLES ARE DECLARED 

## THEN GENERATE THE C | NET STRING 

## THIS URL IS CALLED FOR ANY FILE DOWNLOADED 

## FROM C| NET SO THAT THEY CAN CREDIT THE FILE 

## BEING DOWNLOADED 

if ( 

($sSid != • f ) && 
($sGid I - ' ') && 
($sCatId f = ' ' } 
) { 



$sAltURL = "http://beta.cnet.com/downloads/0-" . $sCatId . "-107-" 
. $sSid . ".html?tag=ex.dl. xdrive"; 

## IF YOU ARE ON THE TEST SERVERS, 
## THEN USE C | NET'S TEST URL 
if ( 

($ENV{ 'HTTP^HOST' } eq • mart ini . xdrive . com • ) || 
($ENV{ 'HTTP_HOST' } eq 'antifreeze. xdrive. com' ) 
) { 

$sCNetString = "http : //abv-s jc2- 
export2 . cnet . com/downloads/O, 10152, 0-" . 

$sCatId . 
"-110-" . 
$sSid . 

OO.html?gid-" . 
$sGid . 

"&tag=ex . dl . xdrivepop . dlcgi . " . 
$sSid; 

## ELSE, USE THEIR REAL URL 
} else { 

$sCNetString « "http: //abv-sjcl- 
export2 . cnet . com/downloads/O, 10152, 0-" . 

$sCatId . 
"-110-" . 
$sSid . 

00.html?gid=" . 
$sGid . 

"&tag=ex . dl . xdrivepop . dlcgi . " . 
$sSid; 

} 



$sPartnerParams - 
"STDPARTNER— $s Part nerCode&LANG=$sLanguageCode&ALTURL=$sAlt URL" ; 

$oCookie->setElement ( 
{ 

* FILEURL ' $sFileURL, 
•FILENAME' $sFileName, 
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* ALTURL ' => $sAltORL, 

• STDPARTNER ' => $sPartnerCode, 

* LANG ' => $sLanguageCode, 

* CAT I D * => $sCatId, 
'SID' => $sSid, 

' GID* => $sGid, 

}) ; 

print "Set-Cookie: $oCookie->asString ( ) ; 

my $n = 0; 
my $rv; 

## Create the database object 

my $oSearch = XDrive : : DatabaseO: : Search->new ( $oDBO) ; 

##The token for the user session 
my $oToken; 

## If u/p 

if (defined $sbsername && defined $sPassword) 
{ 

## Auth or fail 

if (xd_auth_password($sUsername, $sPassword, $oDBO) ) 
{ 

$oToken - xd_login ($oCGI , $sUsername, $oErr ) ; 
$sessionCookie = xd_set_session_cookie (SoCGI, 
$sPartnerCode, $sLanguageCode, $sPromo) ; 

} 

else 

{ 

## Login failed 
my $r = getHTMLContent 
( 

1 skip_the download_login_f ailed, thtml • , 

$sFileURL, 
$sFileName f 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
) ; 

print "Content-type: text /html \n\n" ; 
print $r; 
return 1; 



> 

## error or cookie not defined 
elsif ( (length ($sError) > 0) I | (length ( $sCookie ) « 0) ) 
( 

## show the login page 

my $r = getHTMLContent (' skip_the_download_login. thtml 1 , 

SsFileURL, 

SsFileName, 

SsAltURL, 
$sPartnerCode, 
$sLanguageCode 
); 

print "Content-type: text/html\n\n" ; 
print $r; 
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return 1; 
} 

else 

## cookie defined so authenticate it 
{ 

$oToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 
$sessionCookie = xd_set_session_cookie ($oCGI , $sPartnerCode, 
SsLanguageCode, $sPromo) ; 

if { $oErr->Occurud) 
{ 

print $oCGI->redirect ( " /cgi- 
bin/skip_the_download. cgi?&error=expired&$sPartnerParams" ) ; 

return 1; 

} 

} 



if ( ! SsFileURL) { 

my $thtml = ($sAltURL != ' ■)? 
• skip__the_download_no_alt_error . thtml 1 

: • skip_the_download_error . thtml ■ ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1220) ; 

SThtmlErrorOut <$thtml, 
SsMessage, 
$sFileURL, 
SsFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
>; 

} 



## create the Actions object and download the file 

my SoAction = new XDrive :: Client :: Actions ( $oToken, $oCGI ) ; 

## set the filename and file url 
$oAction->STDFilename ($sFileName) ; 
$oAction->STDURL($sFileURL) ; 

## see if file exists, if yes, give em message 
my $bFileExists = $oAction->STDFileExists ( ) ; 

if ($bFileExists) 
{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1242 ) ; 

ErrorOut ($sMessage, $sFileURL, SsFileName, $sAltURL, $sPartnerCode, $sLangua 
geCode ) ; 

} 

## Check that the file is not already being downloaded 
if ($oSearch->XDSTDBeingDownloaded ($oToken->user, $sFileURL) ) 
{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 124 3 ) ; 
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ErrorOut ($sMessage, $sFileURL, $sFileName / SsAltURL, $sPartnerCode, $sLangua 



geCode) ; 

> 



## Spool the action to download the file 

my $oTransaction = new XQrive :: DatabaseO: : Transaction ( $oDBO) ; 
my $nSeq - $oTransact ion->insertSkipTheDownload 
( 

$oToken->user, 
SsFileName, 
SsFileURL, 
0, 

undef 
) ; 

$oTransaction->commit; 

## Insert failed return an error 
if ($nSeq < 0) 
{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 124 4 ) ; 
ErrorOut ( SsMessage, $sFileURL, $sFileName, $sAltURL, SsPartnerCode, $sLangua 



geCode) ; 

> 



## IF THE INSERT DIDN'T FAIL, 

## AND THE SPECIAL C | NET URL ISN'T NULL 

## THEN CREDIT C | NET 

elsif ($sCNetString ne ") 

{ 

my $oUA = new LWP : : UserAgent ; 

$oUA->agent ( "XDriveSTD/O . 1 " . $oUA->agent) ; 

# Create a request 

my $oRequest = new HTTP :: Request GET => $sCNetSt ring; 

# Pass request to the user agent and get a response back 
my SoResult = $oUA->request ( $oRequest ) ; 



print redirect ("/cgi- 
bin/skip_the_download_status.cgi?seq=$nSeq&$sPartnerParams") ; 



sub ErrorOut ( ) 
{ 

my $sMessage = shift; 
my $sFileURL = shift; 
my $sFileName = shift; 
my $sAltURL = shift; 
my SsPartnerCode = shift; 
my $sLanguageCode = shift; 
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my $html = &getHTMLContent ( 1 skip__the_download_no_alt_error . thtml ' , 

$sFileURL, 
$sFileName, 
SsAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sMessage, 
) ; 



print "Content-type : text /html\n\n" ; 
print $html; 
exit (0) ; 



sub ThtmlErrorOut ( ) 
{ 

my $thtml = shift; 

my $sMessage = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $html = &getHTMLContent ( $thtml, 

$sFileURL # 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
SsLanguageCode, 
$sMessage, 
) ; 



print "Content-type : text /html\n\n" ; 
print $html; 
exit (0) ; 

} 

sub getHTMLContent 
{ 

my $thtmlfile = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $sMessage = shift; 

my $template = new XDrive: : Template 
({ 

' partner_code 1 => $sPartnerCode, 
'language 1 => $sLanguageCode, 

'file' => $thtmlfile, 

'tags 1 => 
f 

' FILE_URL ' => $sFileURL, 
1 FI LE_NAME ' => $sFileName / 
' ALTURL* => $sAltURL, 
1 LANG 1 => $sLanguageCode, 
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1 STDPARTNER 1 => $sPartnerCode , 
•message' => $sMessage, 
} 

}) ; 

$template->clear ( ) ; 
return $template->get ; 



## Create a string which makes the previously created 
## cookie expire. 

sub empty_cookie 
{ 

my $oSelf = shift; 
my $cookie = new CGI::Cookie 
( 

-name => • sst 1 , 
-value => ■ • , 
-expires => 1 -1M' 
); 

print header (-cookie=> [$ cookie] ) ; 
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###skip_the_download_status.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 

use CGI qw (header redirect); 
use XDrive:: CGI; 
use XDrive: :Client: rActions; 
use XDrive: : Client :: Security; 
use XDrive :: DatabaseO; 

use XDrive : : DatabaseO: : Table : : SkipDownload; 
use XDrive: : Template; 
use XDrive :: Error ; 
use XDrive :: Library; 
use Token; 

use strict; 

use constant TEMP_DIR => XDSTDTempDirectory ( ) ; 

&ma i n ; 
exit (0) ; 



sub main 
{ 

## get parameters 

my $nFileSize; 

my $sTempFile; 

my $sFileName; 

my $sError; 

my $nStatus; 

my $bDone; 

my $percent = 0; 

my $nDownloadedSize = 0; 

my SsURL; 

my $nNow; 

my $oCGI = new CGI { ) ; 

my $nSeq = $oCGI->param { ' seq * ) ; 

my $nStart « $oCGI->param {• start f ) ; 

my $sPartnerCode = $oCGI->param ( • STDPARTNER 1 ) ; 

my $sLanguageCode = $ oCGI->pa ram (' LANG ') ; 

my $sAltURL = $oCGI->param ( ' ALTURL' ) ; 

my $previous_percent = $oCGI->param ( 'pp' ) ; 

## SET THE CONNECT I ON_COUNT = 0 IF IT ISN'T PASSED IN 

my $connection_count = ($oCGI->param ( • cc • ) ) ? $oCGI->param ( 1 cc • ) : 0; 

my $oErr = new XDrive :: Error; 

## get the token and the action object 
my $oDB0 = new XDrive :: DatabaseO; 

my $oToken = xd_security_check ( $0080, $oCGI , $oErr ) ; 

my SoAction « new XDrive :: Client :: Actions { $oToken, $oCGI ) ; 

my $sPartnerParams = 
"STDPARTNER=$s Part nerCode&LANG=$sLanguageCode&ALTURL=$s Alt URL" ; 

if ($oErr->Occurud) 
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{ 

print redirect ( Vcgi-bin/skip_the_download. cgi ?3sPartnerParams " ) ; 



return; 



} 



## if the sequence number was passed then get infomation from the 
database . 

if (defined $nSeq) 



i 



## load the information from the datbase 

my $oSkip = XDrive :: DatabaseO: : Table :: SkipDownload->new (undef 
$oSkip->loadWhere< • SEQ • , $nSeq) ; 



$oDBO) 



$nFileSize 
$sTempFile 
$sFileName 
$nStatus 
$sError 
$sURL 
$bDone 



} 



$oSkip->f etchColumn ( • FILE_SIZE_BYTES • ) ; 
$oSkip->f etchColumn ( • FILENAME_FOR_TEMP_FILE * ) 
$oSkip->f etchColumn ( • FILE_NAME ' ) ; 
$oSkip->f etchColumn ( ' IS_ACTIVE 1 ) ; 
$oSkip->f etchColumn ( 1 ERROR_CODE 1 ) ; 
$oSkip->f etchColumn ( ' FILE_URL* ) ; 
$oSkip->f etchColumn ( 1 IS DONE*); 



## XDRIVE. SKI P_THE_ DOWN LOAD . IS_ACTIVE lengend 

## 0 - still in queue 

## 1 - being downloaded 

## 2 - on hold 



## IF CONNECTION_COUTN > 9, THEN GO TO THE FILE NOT FOUND (1220) ERROR 
## DISPLAY, BUT KEEP TRYING TO DOWNLOAD THE FILE 
if ($connection_count >9) { 
$sError=1220; 

} 

## IF AN ERROR OCCURRED THEN DISPLAY IT 
## AND THEN EXIT(O); 
if (defined $sError) 
{ 

if ($sError 1240) 
{ 

SDisplayQuotaError ( • * , 
$sURL, 
$sFileName, 
$sAltURL, 
$ s PartnerCode , 
SsLanguageCode 
) ; 

} 

else 
{ 

my $oErr = new XDrive :: Error; 
$oErr->AddErrorByErrorCode ( $sError ) ; 
&DisplayError ($oErr->Message ( ) , 

$sURL, 

SsFileName, 

$sAltURL, 

$s PartnerCode, 

$sLanguageCode 

) ; 

) 

} 

## IF THERE IS NO ERROR, THEN GATHER STATUS 
## AND DISPLAY TO THE USER 
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## Get file size, later change to get from a tmp file 
my $sPath = TEMP_DIR. "/$sTempFile M ; 



## IF STATUS IS LISTED AS DONE IN THE DB, 
## THEN SHOW THE DONE PAGE 
if ($bDone == 1) 
{ 

&DisplayDone ( ' * , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode / 
$sLanguageCode 
) ; 

) 

## ELSE FILE IS NOT DONE, 

## GATHER MORE DATA AND DISPLAY TO USER 

else 

{ 



## IF STATUS IS NOT ACTIVE, OR THE FILE DOESN'T EXIST 
## THEN DISPLAY THE CONTACTING SERVER PAGE 
## REMOVED: I I I -e $sPath 
## FROM CHECK 

if ( ($nStatus ==0 II -e $sPath) 
&& ( ! ( $previous_percent >= 0)) 

) 

{ 

&DisplayContact Server ($nSeq, $sURL, $sFileName, $sAltURL, SsPartnerCode, $sL 
anguageCode, $sPartnerParams, $connection_count ) ; 
} 

## ELSE, GATHER STATUS DATA 
## AND DISPLAY TO USER 
else 
{ 

## Set the start time in seconds since the epoch if not passed 
## as parameter 

if (! defined $nStart It $nStart !~ /^\d+$/) 
{ 

$nStart = time(); 

} 



## IF NO FILE SIZE HAS BEEN SET IN THE DB 
## DISPLAY ZERO PERCENTAGES TO THE USER 
if (! defined $nFileSize I I $nFileSize « 0) 
{ 

$nFileSize = • 0 1 ; 
$percent = 'O 1 ; 

SDisplayStatus ($nSeq, $percent, $sFileName, $nFileSize, 1 
$nStart, • • , 1 • , 

$sAltURL, $sPartnerCode, $sLanguageCode, $sPartnerParams) ; 
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## ELSE 

## * THERE WAS NO ERROR 
## * THE FILE WAS NOT DONE 

## * THE FILE EXISTS IN THE TEMPORARY DIRECTORY 
## * THE DB HAS AN EXPECTED FILE SIZE 

## SO READ THE FILE, CALCULATE DATA, AND DISPLAY TO USER 

else 

{ 

## These checks are performed before insertinq the skio 
xnformation y SKip 

safe ## into the database, but we will do it again here to be 

# my $sError = $oErr->ReturnMessageGivenCode ( 14 1 ) ; 

# XDErrorToBrowser ( "" , $sError , undef , $oToken) ; 

##die "Cannot check $sPath" if $sPath =~ /\.\./; 
##die "Cannot check $sPath" if $sPath /\/\//; 

## Get the size of the download object 
my @file_info = stat ($sPath) ; 

## Conver the downloaded file size into KB 

if <$file_info(7] > 0) 

{ 

$nDownloadedSize = $f ile_inf o [7 ] ; 

if ($nFileSize > 0) 
{ 

$percent = 100 * $nDownloadedSi ze/$nFileSize; 
} 

if ($percent < 0) 
{ 

$percent = 0; 
} 

^ Spercent = sprint f ("%. 2f" , $percent ) ; 

## IF THE FILE IS GONE NOW, OR SOMEOTHER CONDITION, THE USER 
## WILL NEVER SEE THE %DONE DROP 

## USE WHICH EVER IS LARGER, THE PRECENT THAT WE JUST 

DI SPLAYED 

## OF THE ONE THAT WE JUST READ FROM THE FILE SYSTEM 

. «- Spercent = ($previous_percent > Spercent) ? ^previous percent 

^percent } — 

## We have already transfered some of the file, so we can now 
## estimate the download time. 
$nNow = time { ) ; 

my $sInfo; 

my $nElapsedSec = $nNow - $nStart; 
my $nTransPerSec = 0; 

if ($nElapsedSec) 
{ 

^ $nTransPerSec = $f ile_inf o [ 7 ] /$nElapsedSec; 

if ($nTransPerSec > 0) 
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{ 

my $partial = $percent /100 ; 

my ($nSecsRemain, $nMin, $nSecs, $nTransPerSecMB) ; 

if ($partial 0) { 

$sInfo - • f ; 
} else { 

$nSecsRemain = { $nElapsedSec/$partial ) -$nElapsedSec ; 
i $nMin - int { $nSecsRemain/60 ) ; 

$nSecs = SnSecsRemain % 60; 
$nTransPerSecMB = $nTransPerSec/1024 ; 

} 

Sslnfo = sprintff", %d:%02d remaining (%.2f 
KB/sec) "^nMin^nSecs 

, SnTransPerSecMB) ; 

} 

my $nTrans; 

my $k = "KB"; 
my $nDiv = 1024; 

my $nTempSize = $f ile_inf o [7 ] | | 0; 

if ($nFileSize > 1024*1024) 
{ 

$k = "MB"; 

$nDiv = 1024*1024; 

} 

if ($nFileSize < 0) 
{ 

$nFileSize =» 0; 
} 

$nFileSize = sprint f ("%. 2f" , $nFileSize/$nDiv) ; 
$nTrans = sprintf ( "% . 2f " , $nTempSize/$nDiv) ; 

&DisplayStatus ($nSeq, $percent, $sFileName / $nFileSize, ' 1 , 
$nStart,$sInfo, $k, 

SsAltURL, $sPartnerCode, $sLanguageCode, $sPartnerParams ) ; 

## END OF READING DATA FROM SYSTEM AND 

## DISPLAYING TO USER 

} 

## END OF NO EXPECTED SIZE IN DB 
## SHOW USER ZERO PERCENTAGES 
} 

## END OF FILE MUST BE DONE 

## SO SHOW A DONE 

} 

## END OF NO ERROR 
} 

$oDBO->disconnect; 

} 
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sub DisplayContactServer 
{ 

my 

(SnSeq, SsURL, $sFileName, SsAltURL, SsPartnerCode, SsLanguageCode $sPartn P rP,r, m c 
, $connection_count) = <a_ ; anyudgeuoae, ^sPartnerParams 

my ($sHostname) = $sURL /\/\/ ( +) \// ; 
$connection_count++; 

## load the status page 
my $template = new XDrive :: Template 
({ 

'partner_code' => $sPartnerCode, 
'language' => $sLanguageCode, 

•file 1 => 'skip_the__download contacting . thtml 1 

'tags' => ~ 

{ 

'hostname' => $sHostname, 
' continue_to' => Vcgi- 

bin/skip_the_download_ S tatu S .cgi ? se q = $ nSe q& cc= $ ccnnection_count &$ sPartnerPara 

1 fileName' => $sFileName, 
'alt URL' => $sAltURL / 
} 

>); 

print "Content-type: text /html\n\n"; 
print $template->get ; 

sub DisplayStatus 
{ 

my $nSeq = shift; 

my $percent = shift; 

my $filename = shift; 

my $filesize = shift; 

my $transferred = shift; 

my Sstart = shift; 

my $info = shift; 

my $k = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $sPartnerParams = shift; 

my $percent__disp; 

if ($filesize <= 0) 
{ 

$filesize = 'Unknown'; 

$k = ' '; 

$percent_disp = 'Unknown'; 
$percent = ft; 

) 

else 
{ 

^ $percent_disp = "$percent% " ; 

## load the status page 
my $template = new XDrive :: Template 
({ 
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• partner_code ? => $sPartnerCode , 

'language* = > $sLanguageCode, 

• file ' => 1 skip_the_download_status . thtml • , 

•tags 1 => 

{ 

' PERCENT_DISP' => $percent_disp, 

• PERCENT ' => $percent, 

' FILE__NAME 1 => $filename, 

' FILE_SIZE' => $filesize / 

' TRANSFERRED ' => $transf erred, 

' TRANSINFO ' => $info, 

' K • => $k, 

'URL' => "/cgi- 

bin/skip__the_download__status . cgi ?seq=$nSeq&st art =$s tart &pp=$percent&$sPartner 
Pa rams " , 

•altURL* => $sAltURL 
} 



$template->clear; 

print "Content-type : text /html\n\n" ; 
print $template->get ; 



sub DisplayDone 
{ 

my $sMessage = shift; 

my $sFileURL = shift ; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

SErrorOut ( ' skip_the_download_complete . thtml ' , 
$sFileURL, 
$sFileName 7 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sMessage 

) ; 



sub DisplayError 
{ 

my $s Error = shift; 

my $sFileURL ^ shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode - shift; 

my $sLanguageCode = shift; 

my $thtml = ($sAltURL != ••)? • skip_the_download_no_alt_error . thtml * 

: ' skip_the_download_error. thtml ' ; 

&ErrorOut ($thtml, 
SsFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
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$sLanguageCode, 

$sError 

) ; 



sub DisplayQuotaError 
{ 

my $sError = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my SsLanguageCode = shift; 

SErrorOut ( ' skip_the_download_quota error . t html • 
$sFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode f 
$sLanguageCode, 
$sError 
) ; 



sub ErrorOut ( ) 
{ 

my SsTHTMLFILE = shift; 

my SsFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my SsPartnerCode = shift; 

my $sLanguageCode = shift ; 

my $sMessage = shift; 



my $template = new XDrive :: Template 
< { 

'language 1 => $sLanguageCode, 

■partner_code' => $sPartnerCode, 
'file' SsTHTMLFILE, 
•tags' => 



{ 



} 

}); 



•message' => SsMessage, 

' alt URL ' => $sAltURL, 

•fileURL' $sFile(JRL, 

•FILENAME' => $sFileName, 

• LANG • => $sLanguageCode, 

' ALTURL 1 => $sAltURL, 

f STDPARTNER ' => SsPartnerCode, 



my $html « $template->get ; 

print "Content-type: text/html\n\n"; 
print $html; 
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$sLanguageCode, 

$sError 

); 



sub DisplayQuotaError 
{ 

my $sError = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode - shift; 



SErrorOut ( ' skip_the_download_quota_error . thtml ' , 
$sFileURL, 
SsFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sError 
) ; 



sub ErrorOut () 
{ 

my $sTHTMLFILE = shift; 

my $sFileURL = shift; 

my SsFileName = shift ; 

my SsAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode — shift; 

my $sMessage =» shift; 

my $template = new XDrive: : Template 
U 

'language' => $sLanguageCode, 

•partner_code' -> $sPartnerCode, 
'file' => $s THTML FILE, 
•tags' => 

{ 

'message' => $sMessage, 

'altURL* => $sAltURL, 

•fileURL' => $sFileURL, 

' FILE_NAME ' => $sFileName, 

1 LANG ' => SsLanguageCode, 

•ALTURL* SsAltURL, 

1 STDPARTNER ' => $sPartnerCode, 

} 

}) ; 

my $html = $template->get ; 

print "Content-type : text/html\n\n" ; 
print $html; 
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my $sUser_name = $oUserInf o->f etchColumn ( * NAME FIRST 1 ) " » 
$oUserInfo->f etchColumn ( 1 NAME_LAST* ) ; ~ 

my $sUser_email = $oUser Inf o->f etchColumn (* EMAIL ADDRESS') • 
$oUserInfo->f inish ( ) ; ~ 
$oUserInfo->disconnect ( ) ; 

if ($sAddress) 
{ 

&send_mail (SsName, $sAddress, $sUser_name, $sUser email 
$nUser_ID, $oCGI, $oToken r $oErr, $oCookie); ~ 
&display_thank__you ($oCGI, $oCookie) ; 
} 

else 

{ 

&display_f orm { $oCGI , $oCookie ) ; 
} 

} 



sub send_mail { 

my ($sName, $sAddress, $sUser_name, SsUser email, $nUser ID, SoCGI 
$oToken, $oErr, $oCookie) » <a_; *~ 

## send out email for each friend only if form is filled out 
## get number of friend fields 

my $numFriends = $oCGI->param ( "numFriends" ) ; 
for (my $i=l; $i<-$numFr iends ; $i++) 
{ 

$sAddress = $oCGI->param ( 1 f riends_email • . $i); 
$sName = $oCGI->param ( • f riends_name f . $i); 

my $sMessage = &get_message ($sUser_name, $nUser ID, $sName, 
$sUser_name, $oCookie) ; ~~ 

##only send the mail if the email address is filled out 

if ($sAddress) 

{ 

my %toXdrive = 
( 

To => "$sName <$sAddress>" / 

Bcc => • ' , 

From => "$sUser_email", 

Message => $sMessage, 

Subject => "Check out X: drive!", 

) ; 



unless (sendmail %toXdrive) 
{ 

warn "## Mail error ". $Mail :: Sendmail :: error; 
if ($Mail: : Sendmail :: error /451/) 
{ 

my $sError = $oErr->ReturnMessageGivenCode ( 1310) ; 

XDErrorToBrowser ( , $sError l undef , $oToken) ; 

else 

{ 

my $sError =* $oErr->ReturnMessageGivenCode ( 1311 ) ; 

XDErrorToBrowser ( ' tell_a_f riend error . thtml • , $sError, undef, $oToken) ; 

exit (1) ; 

} 

} 
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sub get_f ormf ield { 

my ($sNum,$oCookie) = @_; 

my $oFormField = new XDrive :: Template 
({ 

1 language ' => $oCookie->getElement ( ' language ' ) , 

'partner_code 1 => $oCookie->getElement ( 'partner ' ) , 
}) ; 

$oFormField->load { 1 tell_f orm_f ields . thtml • ) ; 

$oFormField->tags 
({ 

'number 1 => $sNum 
}) ; 

return $oFormField->get ; 



sub get_message { 

my ($sUser_name f $nUser_ID, $sName, $sUserEmail, $oCookie) = @_; 

my $oMessage = new XDrive :: Template 
({ 

•language' => $oCookie->getElement (' language ') , 

•partner^code 1 => $oCookie->getElement ( 'partner' ) , 
}) ; 

$oMessage->load { ' tell_a_f riend message . thtml ' ) ; 

$oMessage->tags 
({ 

•user^name 1 — > $sUser_name # 
'nUserJD' => $n(Jser_ID, 
'user_email' => $sUserEmail, 
1 f riend_name ' => $sName 
}) ; 

return $oMessage->get ; 



sub display_form { 

my $oCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
U 

'language' => $oCookie->getElement ( r language ') , 

'partner_code' => $oCookie->getElement ( 'partner* ) , 
)>; 

$oForm->load ( ' tell_a_f riend . thtml 1 ) ; 

my $numFriends = $oCGI->param ( "numFriends" ) ; 

ifconstruct the html for multiple input fields 
my $inputFields= l ' ; 

for (my $i=l; $i<=$numFriends ; $i++) 
{ 

$inputFields = $inputFields . &get_f ormf ield ($i, $oCookie) ; 



152 



133 of 137 



WO 01/33381 
> 



PCT/US00/30536 



$oForm->tags 
( { 

• f riendsToTell * => $input Fields , 
'numFriends' $numFriends, 
}) ; 

print $oCGI->header, $oForm->get; 
exit (0) ; 

} 

sub display_thank_you { 
my $oCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
({ 

'language' => $oCookie->getElement ( 1 language ') , 

'partner_code' -> $oCookie->getElement (• partner 1 ) , 
}); 

$oForm->load ( • tell_a_f riend t_y. thtml • ) ; 

print $oCGI->header, $oForm->get; 
exit (0) ; 

} 
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###web_unauthorized.cgi 

# ! /usr/bin/perl 

# Written by Martin Hald <mhald@uci . edu> on Sat Feb 13, 1999 

# - ~ 

# Program for showing unauthorized information and allowing the users to 

# re-login and possibly showing them a "forgot your password?" link. 

use strict; 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use CGI qw (header param) ; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

# use XDrive::CGI qw(:MAIN); 

use XDrive: : Client: : Registration ; 
use XDrive :: Template ; 
use XDrive :: Error ; 

exit &main; 

sub main 
{ 

my $oCGI = CGI->new(); 

my $oLayout = new XDrive :: Template ; 
my $oContent = new XDrive :: Template ; 
my $oNavigation = new XDrive: .'Template; 

$oLayout->partner ( 1 xdrv' ) ; 
$oContent->partner ( ' xdrv * ) ; 
$oNavigation->partner ( 'xdrv 1 ) ; 

$oLayout->load ( ' layout . thtml • ) ; 
$oNavigation->load ( 1 front_nav . thtml 9 ) ; 

## Get the error key 

my $sError = $oCGI->param (• error •) ; 

##now get the error message associated with that error 
my $oErr = new XDrive :: Error ; 

my $message = $oErr->ReturnMessageGivenCode ( $sError ) ; 

## Load the required template HTML files, 
my $oForm = new XDrive :: Template ; 
$oForm->partner ( • xdrv ' ) ; 
$oForm->load { "f ront^nav . thtml" ) ; 
$oContent->load ( "unauthorized . thtml " ) ; 

## Update the layout 
$oLayout->tags 
({ 

• header_graphic 1 ==> ' header_denied. gif • 
}) ; 

## Update the content 
$oContent->^tags 
({ 

' error_message 1 —> $message 
}); 

$oContent->clear ( ) ; 
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## Print out the HTML and exit 
£oLayout->tags 
(< 

•content* => $oCont ent->get , 
•navigation 1 => $oNavigation->get , 
'title* => 'Authorization Denied' 
}) ; 

print header ( ) , $oLayout->get ; 
return 0; 
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// Module: dlgShareAFile.h 1 

// Module: dlgShareAFile.h 3 

// Module: xdBase64.cpp 5 

// Module: xdBase64.h 9 

// Module: xdGlobals.h 10 

// Module: xdParseDate.h 13 

// Module: xdRegistry.h 14 

// Module: xdTokens.h 16 

// Module: xdTools.h 17 

// Module: xdEngine.h 20 

// Module: tdimsgtbl.h 22 

// Module: tdisock.h 24 

// Module: xdFilelO.cpp 41 

// Module: xdDebugger.cpp 45 



156 iof5 ' 



WO 01/33381 

// 



PCT/USOO/30536 



// Module: digShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

II 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KjioWare(r), inc. 

//All rights reserved. 

II 

// — 

// 

^include "stdafx.h" 
^include <xdGloba!s.h> 

tfifhdef J/XD_SOURCE_ 
^include "resource.h" 
#endif 

^include "digShareAFile.h" 

#ifdef_DEBUG 

#undef TH IS_FILE 

static char THIS_FILE[] = _FILE_; 

#endif 

II 

// Implementation 

// 

BEGIN_MESSAGE_MAP(dlgShareAFile, CDialog) 
//{ {AFX_MSG_MAP(dIgShareAFile) 
//}}AFXJvtSG_MAP 

END_MESSAGE _MAP() 

If 

// Method: dlgShareAFile() 
// Purpose: Standard constructor 

// 

dlgShareAFile::dlgShareAFile(CWnd* pParent /*=NULL*/) 
: CDiaIog(dlgShareAFiIe::IDD, pParent) 

//{ { AFX_DATA_INIT(dlgShareAFi le) 
m_sFileName = szEMPTY; 
msFileDescription = szEMPTY; 
m sEmai I Message = szEMPTY; 
msEmai I Subject = szEMPTY; 
m_sEmailO = szEMPTY; 
rnsEmaill = szEMPTY; 
m_sEmaiJ2 = szEMPTY; 
m_sEmai!3 = szEMPTY; 
m_sEmail4 = szEMPTY; 
//}}AFX_DATA_INIT 
} // End of dlgShareAFileO 

// Method: DoDataExchange() 

// Purpose: Standard data exchange handler 

// 

void dlgShareAFi!e::DoDataExchange(CDataExchange* pDX) 
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CDialog::DoDataExchange(pDX); 
//{ { AFX_DATA_M AP(dlgShareAFile) 
DDX_Text(pDX, IDC_SHARE_F1LENAME > m_sFileName); 
DDX_Text(pDX, IDC_SHAR£_FILEDESC, m_sFileDescription); 
DDX_Text(pDX, JDC_SHAREJEMAILMSG, m__sEmailMessage); 
DDX_Text(pDX, IDQJSHAREJEMAILSUB, m_sEmaiISubject); 
DDX_Text(pDX, IDC_SHARE_EMAfLI, m_sEmai!0); 
DDX_Text(pDX, IDC_SHARE_EMAIL2, rnjiEmaiil); 
DDX_Text(pDX, IDC_SHAR£_EMAIL3, m_sEmail2); 
DDX_Text(pDX, IDC_SHARE_EMA1L4, m_sEmail3); 
DDX_Text(pDX, IDC_SHARE_EMAIL5, m_sEmail4); 
//} } AFX_DATA_MAP 
} //End of DoDataExchange() 

// 

// Method: OnlnitDialogO 

// Purpose: Called to initialize the contents of the dialog 

// 

BOOL dlgShareAFile::OnInitDia!ogO 
{ 

CDialog::OnInitDialog(); 
UpdateData(FALSE); 

return TRUE; // return TRUE unless you set the focus to a control 

// EXCEPTION: OCX Property Pages should return FALSE 
} // End of OnlnitDialogO 

// 

// Method: OnOK() 

// Purpose: Called to close out the dialog. 

// 

void dlgShareAFile::OnOK() 
{ 

UpdateData(TRUE); 

CDialog::OnOK0; 
} // End of OnOKQ 
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// Module: dlgShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

II 

// 

#if ! de fined(_INC_D LG SH A RE A F 1 LE_H_) 
#deflne JNC_DLGSHAREAFILE_H_ 

#if_MSC_VER> 1000 
#pragma once 

#endi f // _MSC_VER > 1 000 

#ifhdef_VXD_SOURCE_ 
#include "resource.h" 
#endif 

# ithdef _VXD_SOU RCE_ 

// dlgShareAFile dialog class 

// 

class dlgShareAFile : public CDialog 
{ 

public: 

dlgShareAFile(C Wnd* pParent = NULL); // standard constructor 

//{ { AFX_D ATA(dlgShare AFile) 
enum { IDD = IDD_SHARE }; 
CString m sFileName; 
CString m_sFileDescription; 
CString m_sEmailMessage; 
CString m_sEmailSubject; 
CString m_sEmail0; 
CString m_sEmaill; 
CString m_sEmaiI2; 
CString m_sEmai!3; 
CString m_sEmai!4; 
//}}AFX_DATA 

//{{AFX_VIRTUAL(dlgShareAFile) 
protected: 

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support 
//}}AFX_VIRTUAL 

protected: 

//{ { AFX_MSG(dIgShareAFiIe) 
virtual BOOL OnlnitDialogO; 
virtual void OnOKO; 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP() 

}; 

//{ { AFX_INSERT_LOCATION} } 
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// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 

tfendif 

#endif// !defined(JNC_DLGSHAREAFILE_HJ 
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// Module: xdBase64.cpp 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Implementation module for the xdBase64 class 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

#inc!ude "stdafx.h" 
include M xdBase64.h" 

#ifdef_DEBUG 

#undef TH I S_FILE 

static char THIS_F1LE[]=_FILE_; 

#endif 

#ifdef_VXD_SOURCE_ 

#include <xdEngine.h> 

#define TRACE DEBUG_DPRINTF 

tfendif 

// Static Member Initializers 

// 

// The 7-bit alphabet used to encode binary information 
CString xdBase64::m_sBase64 Alphabet = 

_T( "ABCDEFGHUKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzO 123456789+/" ); 
int xdBase64::rn_nMask[] = { 0, 1, 3, 7, 15, 31, 63, 127, 255 }; 

// Method: xdBase64() 

// Purpose: Standard Constructor 

// 

xdBase64::xdBase64 ( void ) 
{ 

} //End ofxdBase64() 

II 

// Method: ~xdBase64() 

// Purpose: Standard destructor 

// 

xdBase64::~xdBase64() 
{ 

} //End of~xdBase64() 

II 

// Method: Encode() 

// Purpose: Encodes a string 

// 

CString xdBase64::Encode(LPCTSTR szEncodtng, int nSize) 
{ 

CString sOutput - _T( w " ); 
int nNumBits = 6; 
UINT nDigit; 
int Ip = 0; 
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ASSERT( szEncoding != NULL ); 
if{ szEncoding = NULL ) 

return sOutput; 
m_szlnput = szEncoding; 
m_nlnputSize = nSize; 

m_nBitsRemaining = 0; 

nDigit = read_bits( nNumBits, &nNumBits, Ip ); 

while( nNumBits > 0 ) 

{ 

sOutput += m_sBase64 Alphabet! (int)nDigit ]; 
nDigit = read_bits( nNumBits, &nNumBits, Ip ); 

// Pad with *=• as per RFC 1 52 1 
whiie( sOutput. GetLength() % 4 != 0 ) 
{ 

sOutput += -'; 

} 

return sOutput; 
} //End of EncodeO 

If 

// Method: DecodeO 
// Purpose: Decodes data 

// Notes: The size of the output buffer must not be less than 3/4 the 

11 size of the input buffer. For simplicity, make them the same 

" size. 

// 

int xdBase64::Decode(LPCTSTR szDecoding, LPTSTR szOutput) 

CString slnput; 
int c, Ip =0; 

int nDigit; 
CString strDecode; 

int* pDecode = (int*)strDecode.GetBufTer(256*sizeof(int)); 

ASSERT( szDecoding != NULL ); 
ASSERT( szOutput != NULL ); 
if( szOutput = NULL ) 

return 0; 
if( szDecoding = NULL ) 

return 0; 
slnput = szDecoding; 
if( s!nput.GetLengthO = 0 ) 

return 0; 

// Build Decode Table 

// 

for( int i = 0; i < 256; i++ ) 

pDecodep] = -2; // Illegal digit 
for( i=0; i < 64; i++ ) 
{ 

pDecode[ m_sBase64Alphabet[ i J ] = i; 

pDecodef m_sBase64Alphabet[ i J | 0x80 J = i; // Ignore 8th bit 
pDecode[ '=']=- 1 ; 

pDecode[ 1 0x80 ] = -!;// Ignore MIME padding char 

// Clear the output buffer 

memset( szOutput, 0, slnput.GetLength() I ); 

// Decode the Input 
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// 

for( Ip = 0, i = 0; lp < sinput.GetLength(); lp++ ) 
{ 

c = slnput[ Ip ]; 

nDigit = pDecodef c & 0x7F ]; 

if{nDigit<-l ) 

{ 

return 0; 

} 

else if( nDigit >= 0 ) 

// i (index into output) is incremented by write_bits() 
write_bits( nDigit & 0x3F, 6, szOutput, i ); 

} 

return i; 
} //End ofDecode() 

// 

// Method: read_bits() 
// Purpose: dunno 

// 

UINT xdBase64::read_bits(int nNumBits, int * pBitsRead, int& Ip) 
{ 

ULONG IScratch; 

while( ( m_nBitsRemaining < nNumBits ) && 
( Ip < m_nInputSize ) ) 

{ 

int c = m_szlnput[ lp++ ]; 
mJBitStorage «= 8; 
mJB it Storage |= (c & OxtT); 

m_nBitsRemaining += 8; 

} 

if( m_nBitsRemaining < nNumBits ) 
{ 

IScratch = mJBitStorage « ( nNumBits - m nBitsRemaining ); 
*pBitsRead = m_nBitsRemaining; 
rn_nBitsRemaining = 0; 



} 



else 
{ 



IScratch = mJBitStorage » ( m_nBitsRemaining - nNumBits ); 
*pBitsRead == nNumBits; 
m_nBitsRemaining -= nNumBits; 

} 

return (UINT)IScratch & m_nMask[nNumBits]; 
} // End of read_bits0 

II 

// Method: write_bits() 
// Purpose: dunno 

// 

void xdBase64::write_bits ( UINT nBits, int nNumBits, LPTSTR szOutput, int& i ) 
{ 

UINT nScratch; 

mJBitStorage = (mJBitStorage « nNumBits) | nBits; 
m_nBitsRemaining += nNumBits; 
while( m_nBitsRemaining > 7 ) 
{ 

nScratch = mJBitStorage » (m_nBitsRemaining - 8); 
szOutputf i++ ] = (TCHAR)(nScratch & OxFF); 
rn_nBitsRemaining -= 8; 

} 
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// Module: xdBase64.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 
// Contents: Declaration module for the xdBase64 class 
// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

m !defined(J]siC__XDB ASE64_H J 
#define JNC_XDBASE64 H_ 

#ifdef_VXD_SOURCE_ 

^include <xdCString.h> 

#endif 



#if_MSC_VER >= 1000 
^pragma once 

#endif//_MSC VER>=1000 



// 

// xdBase64 encoder class 
// 

class xdBase64 
{ 

public: 

xdBase64 ( void ); 
virtual -xdBase64 ( void ); 

virtual im Decode ( LPCTSTR szDecoding, LPTSTR szOutput )' 

virtual CString Encode ( LPCTSTR szEncoding, int nSize ); 

protected: 

void write_bits ( UINT nBits, int nNumBts, LPTSTR szOutput, int& Ip ); 

UINT readmits ( int nNumBits, int* pBitsRead, int& Ip ); 

protected: 

j nt m_nInputSize; 

in * m_nBitsRemaining; 

ULONG mJBitStorage; 

LPCTSTR m_szlnput; 
static int m_nMask[]; 

^ static CString m_sBase64 Alphabet; 

#endif // !defined(_INC_XDBASE64_HJ 
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// Module: xdGlobals.h 

// Subsystem: Xrdrive 

// Contents: Global definitions used throughout the system 
// 

// 



// Copyright (c) 1999 by X^riveCtm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#ifhdef JNC_X DG LOB A LS_H_ 
#define _INC_XDGLOBALS_H_ 

#ifdef VXD SOURCE 



// 

// This HodgePodge helps us to be able to compile all of our code 
// under Ring-3 and Ring-0 without too much modification. 

// 

#ifhdefUSE_NDlS 

tfdefine USE_NDIS 

#endif 



#include <vtoolscp.h> 

flifhdefLPCTSTR 

typedef char 
typedef unsigned char 



typedef const TCH A R* LPCTSTR; 



// VToolsD main header file 



TCHAR; 
_TUCHAR; 



typedef TCHAR* 
typedef unsigned char 
typedef BYTE* 



#endif 



LPTSTR; 

BYTE; 

LPBYTE; 

typedef DSKTLS YSTEMTIME SYSTEMTIME; 
typedef HANDLE H INSTANCE; 

#define _T(x) (x) 



#ifhdef BASED_CODE 

#defme BASED_CODE 

#endif 

#ifhdefINVALID_HANDLE_VALUE 

^define INVALID_HANDLE_VALUE (HANDLE)- 1 

#endif 



#define _tcsstr 
#define _tcslen 
#define _tcscpy 
#define _tcsrchr strrchr 
#deflne _tcscat 
//define _ttoi 
^define _ttol 
#define _tcsrev 
#define _tcschr 
#define _tcsncpy strncpy 
#define _tcspbrk strpbrk 
#deflne _stprintf sprintf 
#define tcslwr 



strstr 
strlen 
strcpy 

s treat 

atoi 

atol 

strrev 

strchr 



strlwr 



// Standard Unicode mappings 
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#define _tcsupr 
#define tcsicmp 
^define _tcscmp 
^define _tcscolI strcmp 
#define _jstdigit isdigit 
tfdefine ASSERT Assert 
typedef HANDLE 
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#endif 



strupr 

stricmp 

strcmp 



HWND; 



II 

// Setup a whole bunch of constants that we can use throughout the systems 

#deflne chNL jrCVn 1 ) 

#define chCOMMA _T(7) 

#define chDOSSLASH JTOV) 

#define chUNIXSLASH _T(T) 

#define chQUOTE TO") 

#define chDQUOTE T(V") ~ 

fldefine chPERJOD ~T('.') 

#define chBAR ~T(T) 

^define chTAB ~T(V) 

#define chCR ~T(V) 

#define chSPACE ~ T( ( ') 

^define chCOLON ~TC: r ) 

#define chSEMlCOLON _T(Y) 

#deflne chDASH _T('-') 

#define chPLUS ITC+') 

tfdefine chPERCENT JITW) 

tfdefme chOPENBRACKET 

^define chCLOSEBRACKET _T(']') 

#define chNUL TOO 1 ) 

#define chZERO JITO 1 ) 

#define chONE _T(T) 

tfdefine chTWO JT(7") 

tfdefine chTHREE ~ T(T) 

tfdefine chFOUR TC4') ~ 

#deflne chFIVE "tCS*) 

#define chSIX ~TC6') 

tfdefine chSEVEN ~ T(7 f ) 

#define chEIGHT ~~ 

#define chNINE ""TC9 1 ) 

#define chOPENPAREN ZjVO 
#define chCLOSEPAREN _T(7) 

#definechAT _T0@') 

#define szNL T("\n") 

^define szCOMMA ~ T(",") 

^define szDOSSLASH _T("\\") ~ 

#deflne szUNIXSLASH _T(7") 

#define szQUOTE T(" m ) 

#define szDQUOTE T("V IM ) ~ 

^define szPERIOD ~T( M . M ) 

#deflne szBAR JT(T) 

#define szTAB _T("\t n ) 

^define szCR ~T("\r") 

^define szSPACE ~T(" M ) 

^define szCOLON ~ T(":") 

#define szSEMICOLON _T(V) 

^define szDASH T( H - W ) 

#define szPLUS ~T( M + M ) 

#define szOPENBRACKET ~T("[") 

#define szCLOSEB RACKET _T("] U ) 
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//define szAT _T("@") 
//define szEMPTY _T( ,m ) 
//define szCURRENTDIR _T( M . M ) 
//define szPARENTDIR _T( M ..") 
//define szFTP_DOT _T("ftp.") 
//define szFTP_SLASH jr( M ftp:// H ) 
//define szOPENPAREN _T("(") 
//define szCLOSEPAREN _T(") M ) 
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//define XD_C AC HE_B ASED1 R _T("xdcache M ) 

//define X D_LOG FI LE_N P _T("xdrive.!og") 

#defmeXD_LOGFILE_VXD jrCxdrivevxd.log") 



// 



// We need to define the scope of values which will be used in the system. 
// They are defined here since we need to read/write these to the registry. 
// 

// 

// General defines 
// 

//define XD_LEN_32 32 

//define XD_LEN 64 64 

//define XD_LENJ28 128 

//define XD_LEN_256 256 

//define XD_LEN_5 12 512 

#define XD_LEN_ 1 024 1 024 

//define XD_LEN_2048 2048 

// 

// these program IDs are also the 1st two digits of the registration number 

// 

//define XD_PROGID_XDRl VE 0x53 // (DB2 1 1 2AD-0000-0000-0053-00000428 1 965 } 



// 

// IN will generate a directory listing and the local file that contains 
// that information will have an extension of \fhd\ For example, if 
// IN/FND does a directory listing of ftp.microsoft.com/softlib/mslfiles, 
// it will place the raw directory listing in the in the local IN cache 
// directory (which is currently defined as hanging off of the same 
// directory where IN is located) as 
// 

// c:\xdCache\ftp.microsoftxom\rootsoftlib.mslflles.ls 

// 

// and the parsed FND formatted data will be placed into 

// 

//c:\xdCache\ftp.microsoft.com\root.softIib.mslfiles.frid 

// 

// the .fhd file is parsed out to produce the information returned as a 
// result of the FINDF1RST()/FINDNEXT() calls to the NP. 

// 

//define XD_F1 LEEXT_LS _T(Ms w ) 
//define XD_FILEEXT_XDR T( M .ftuT) 

// 

// Here is our Network Provider Name 

// 

//define XD_PRO V I DER_N A ME _T("Xdrive M ) 
//define XD_PROVlDER_NETID 0x00 1 20000 

tfendif // JNC_XDGLOBALS_H_ 
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// Module: xdParseDate.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 
// Contents: Declaration module for the CParseDate utility class 



// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//AH rights reserved. 



// . 

#ifhdef _FNC_XDPARSEDATE_H_ 
#define _INC_XDPARSEDATEJ-i_ 

^include <xdTokens.h> 

class XDTOOLS_PUBLIC CParseDate 
{ 

public: 

CParseDate ( void ); 
-CParseDate ( void ); 

BOOL Parse ( LPCTSTR s ); 

int m i Year; 

int m_iMonth; 

int m_iDay; 

int m_iHour; 

int m_iMinute; 

int m_iSecond; 



// 




TCHAR 
TCHAR 
TCHAR 



m_szDate[64]; 
m_szTime[32]; 
m_szOrig[64]; 



private: 



BOOL 
BOOL 
xdTokens 



isNUM ( LPCTSTR s ); 
isDOW ( LPCTSTR s ); 
m_tokens; 



}; 

#endif 
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// Module: xdRegistry.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Declaration module for the xdRegistry utility class 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

#ifhdef _INC_XDREGISTRY_H_ 
#define _INC_XDREGISTRY_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif // _MSC_VER >= 1 000 

^include <xdGlobals.h> // X:drive system wide globals 

#include <xdTools.h> // X:drive Tools Related 

II 

// xdRegistry 

// the registry class encapsulates the regitry functions. You must open 

// at least a hive in the constructor, then you can optionally open 

// a subkey & read/write information to the registry. Ail methods will return 

//true upon successful completion, false will be returned if an error 

// has occurred. 

// 

class XDTOOLS _PUBLIC xdRegistry 
{ 

public: 

xdRegistryO; 
-xdRegistryQ; 



// public interface 

// 

public: 

BOOL RegOpenRead ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegOpen Write ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegClose ( void ); 



BOOL RegDeleteKey ( HKEY hHive, LPCTSTR szSubKey ); 

BOOL RegDelete Value ( LPCTSTR szVal ); 

BOOL RegEnumKey ( int i, LPCTSTR szKeyName, UINT uiLenWithNull ); 

BOOL RegEnumVal ( int i, LPCTSTR szValName, UINT uiLenWithNull, LPCTSTR 

szValData, UINT uiDataLenWithNulI ); 

BOOL RegEnumStr ( int i, LPCTSTR szVal, UINT uiLenWithNull ); 

BOOL RegGetStx ( LPCTSTR sName, LPCTSTR szVal, UINT uiLenWithNull ); 
BOOL RegPutStr ( LPCTSTR sName, LPCTSTR szVal ); 

BOOL RegPutBin ( LPCTSTR sName, BYTE* pBufFer, UINT uiLen ); 



BOOL RegGetNum ( LPCTSTR sName, BOOL& bVal ); 

BOOL RegGetNum ( LPCTSTR sName, WORD& wVal ); 

BOOL RegGetNum ( LPCTSTR sName, DWORD& dwVal ); 

BOOL RegGetNum ( LPCTSTR sName, UINT& uiVal ); 

BOOL RegPutNum ( LPCTSTR sName, DWORD dwVal ); 
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LONG RegGetLastErTOr ( void ); 

private: 

HKEY m_hKey; // the current open hive 
LONG m JRetCode; // the last return code 

}; // End of xdRegistry 

#endif// IMC X DREG ISTRY_H 
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// Module: xdTokens.h 

// Subsystem: Xrdrive Tools Library (xdTools.dll) 

// Contents: Declaration module for xdTokens utility class 

// 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

// l.~"Z"™ 

// 

#imdefJNC_XDTOKENS_H_ 
tfdefine _INC_XDTOKENS_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif//_MSC_VER >= 1000 

^include <xdGlobals.h> // Xrdrive system wide globals 

^include <xdTools.h> // Xrdrive Tools Related 

#define XD_MAX_TOKENS 1 024 

II 

// xdTokens 

// This class is a big worker class, its used to parse strings into 

// tokens or substrings. Strings are parsed by supplying a string of 
// characters which will be used to parse out the string. 



class XDTOOLSJ>UBLIC xdTokens 
{ 

public: 

xdTokens(LPCTSTR pTokens = NULL); 
-xdTokensQ; 



// 

// Public Interface 

// 

public: 

int 
int 

LPCTSTR 

// 

// Private Members 

// 

private: 

LPCTSTR 
int 

LPTSTR 
LPTSTR 
LPTSTR 
};//End of xdTokens 



Parse(int iNumToParse, LPCTSTR pString, LPCTSTR pTokens=NULL); 
Parse(LPCTSTR pString, LPCTSTR pTokens=NULL); 
operator[](int i Index); 



*m_pTok; 

m_iNumParsed; 

m_szWorkString; 

m_szTokens; 

m_pWorkString; 



#endif// INC XDTOKENS H 
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// 

// Module: xdTools.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 
// Contents: Main header file for the xdTools library 

// 

II 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

II 

// 

// 

#ifhdef JNC_XDTOOLS_H__ 
#define _IMC_XDTOOLS_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif//_MSC_VER>= 1000 

^include <xdGloba!s.h> // X:drive system wide globals 

U ifdef J/XD_SOURCE_ 
# include <xdCString.h> 
#endif 

#pragma warning (disable : 4100) 
tfpragma warning (disable : 4201) 

// 

// The following code block will insure the proper resolution of any 

// API functions (and classes) which are exposed from the XDTOOLS library. 

// When compiling the XDTOOLS library source code, make sure that the 

// following #define is defined in the project settings (both debug & release). 

// This will cause any classes and/or API functions defined as to 

// be exported to the LIB file. If you are USING the library by linking to 

// the XDTOOLS.LIB or XDTOOLSD.LIB import libraries, then ignore the 

// following #defme's for 

// 

#ifdef_XDTOOLS_SOURCE_ 

tfdefine XDTOOLS_PUBLIC declspec( dllexport ) 

#else 

#define XDTOOLS_PUBLIC // _declspec( dllimport ) 
#endif // _XDTOOLS_SOURCE_ 

// 

// If we are debugging & we trap an exception, we will display it 
// in a message box, otherwise in release mode, we wont. 

// 

#ifdef_DEBUG 

#define XDTRACE(x) AfxMessageBox(x) 

#else 

tfdefine XDTRACE(x) TRACEO(x) 

#endif 

II 

// XDDATE API (Date Functions) 
// 

XDTOOLS J>UBL1C int XDDATEJvtonthNum ( LPTSTR szMonth ); 

// XDSTR API (String Functions) 

// 
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XDTOOLS_PUBLIC 
XDTOOLS_PUBLIC 
XDTOOLS J>UBLIC 
XDTOOLSJ>UBLIC 
XDTOOLS_PUBLIC 
XDTOOLS_PUBLIC 
XDTOOLS_PUBLIC 
XDTOOLS PUBLIC 



LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
BOOL XDAPI 
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XDSTR_Squish ( LPTSTR p ); 
XDSTR_StripChar ( LPTSTR p, TCHAR c )• 
XDSTR_DirSlashAdd ( LPTSTR sz, TCHAR c ); 
XDSTR_DirSlashRemove ( LPTSTR sz, TCHAR c V 
XDSTR_TrimRight ( LPTSTR ); 
XDSTR_TrimLeft ( LPTSTR ); 
XDSTRJTrim ( LPTSTR ); 

CreatePath ( LPCTSTR ); // calls CreateDirectoryQ to make a path 



II 

// Stuff for messge boxes 
// 

#ifhdef_VXD_SOURCE_ 

int XDTOOLS_PUBLIC XD.MSG ( LPCTSTR szText, UINT uiMsgFIags V 

mt XDTOOLS PUBLIC XD QUESTION ( LPCTSTR szText I mJf «7mc pi a 

RESOURCE, 78 ™ XD.TEXT r^^SSKS* ^ 

BOOL XD__DoHelp(LPHELPINFO); 
void XD_DoHeIpContext ( CWnd* ) 

#endif 



// 

// the calling object needs to supply the resource 

// handle for loading the string. So set up a stupid macro 

// that will automatically supply this! 

^define XD_LOADSTRJNG(x) XD^TEXTCAfxGetResourceHandleOXx)) 

// 

// DEBUGGING STUFF 

// 

^define CATCH_MSG _T("Caught Exception in File %s, Line %d\n\n") 
#ifdef_VXD_SOURCE_ 

#else #dCfine XDCATCH d Pnntfl:CATCH_MSG, JIX_FILE_), LINE ) 

AfcM J^,^ TCH { ^String s; s.Format(CATCH_MSG, _T( — FILE — ), — LINE_ ); 
#endif 



II 

II Ring 

II 

mfdef 
#define 
#deflne 
#define 
#define 
#define 
tfdefine 
#define 
#deflne 
#define 
#define 



0 File I/O 



VXD_SOURCE_ 
GENERJC_READ 
GENERJC_WRJTE 
CREATENEW 
CREATE_ALWAYS 
OPEN_EXISTING 
OPEN_ALWAYS 
TRUNCATE_EXISTING 
F1LE_SHARE_READ 
FILE_SHARE_ WRITE 
FILE_S H A REJDELETE 



(0x80000000)/* from WINNT.H */ 

(0x40000000)/* from WINNT.H V 

I 

2 

3 

4 

5 

0x00000001 
0x00000002 

0x00000004 // not supported 



HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

D WOR D dwDesired Access, // access (read-write) mode 
DWORD dwShareMode, // share mode 
void* IpSccAtt, // pointer to securjty 



attributes 



DWORD dwCreateFlags, 
DWORD dwFlagsAndAttributes, 
HANDLE); 



// how to create 
// file attributes 
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BOOL CloseHandle ( HANDLE hFile ); 

BOOL ReadFile ( HANDLE hFile, // handle of file to read 

void* IpBufFer, // pointer to buffer that receives data 

DWORD nNumberOfBytesToRead, // number of bytes to read 
DWORD* IpNumberOfBytesRead, // pointer to number of bytes read 
void* IpOverlapped); // pointer to structure for data 

BOOL ReadFileLine ( HANDLE hFile, // handle of file to read 

BYTE* IpBuffer, // pointer to buffer that receives 



data 



DWORD dwBytesToRead, // number of bytes to read 

DWORD* dwBytesRead, // pointer to number of bytes read 

DWORD* dwOffset); // pointer to structure for data 



BOOL WriteFile ( HANDLE hFile, LPCTSTR IpBuffer, DWORD dwBytesToWrite, 

DWORD* pBytesWritten, void* p); 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ); 

#endif 

#endif // !definedCINC_XDTOOLS_HJ 
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// Module: xdEngine.h 

// Subsystem: Xrdrive Client Engine (xdEngine.dll) 

// Contents: Main include file for the xdEngine subsystem 

// 



// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

II 

// " 

// ' 

tfifhdef JNC_XDRIVE_ENGINE_H_ 
#deflne _JNC_JXDRJVE_ENGINE_H_ 

#if __MSC_VER >= 1000 
#pragma once 

#endif//_MSC_VER >= 1000 

#pragma warning (disable : 4100) 
#pragma warning (disable : 4201) 

#ifdef_XDENGINE_SOURCE_ 

#defme XDAPI_PUBLIC _declspec( dllexport ) 

#else 

^define XDAPI_PUBLIC // declspec( dllimport ) 
#endif//_XDENGINE_SOURCE_ — 

^pragma pack( I ) // byte pack this thing! 

^include <xdGIobals.h> 



//- 



//XD_DIRENTRY - directory listing item 

// ThC folIowin S structure is used to hold an object in the file listing 

// file. Xdnve will generate the file list for the directory and store it 

// in the cache directory. That file will contain 

// a list of record structures of this type. The .mnd file is generated 

// based upon the FTP server specific format in the .idx file in the same 

// cache directory. 

// 

typedef struct _xd direntry 
{ ~ 

r>u/r^ H ° RT Cb; 11 c,ass size > MUST B E FIRST!!!! 

DWORD d wFi leAttributes; 

FILET1ME ftCreationTime; 
FILETIME ftLastAccessTime; 
FILETIME ftLastWriteTirne; 
DWORD nFileSizeHigh; 

DWORD nFileSizeLow; 
TCHAR cFileName[ XD_LEN_5 12 ]; 

TCHAR m_szObPerms [ XD_LENJ32 + I ]; 

BYTE m_bObOwnerPerms[4]; 

BYTE m_bObGroupPerms[4]; 

BYTE m_bObWoridPerms[41: 
} XD_D1RENTRY, • LPXD_DIRENTRY; 

#pragma packQ 
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// 

// Return codes 
// 

typedef UFNT 



XD RETCODE; 



^define XD_SUCCESS (int)O 
^define XD_C ANCEL (int) 1 

^define XD_ERR_CONNECTFAlLED (int)2 

^define XD_ERR_LOGINFAILED (int)3 

fldefine XD_ERR_CONNECTREFUSED (int)5 

//define XD_ERR_CANTRESOLVEHOST (int)6 

#defme XD_ERR_SERVERUPGRADING (int)7 

//define XD ERR OTHER (int>l 



// socket connect failed 
// bad username/pwd 
// socket connect refused 
// cant resolve host 
// upgrading our servers 



// 

// The following constants are used in the notification structure 

// 

typedef enum 
{ 

XD NOTIFY IDLE =0, 
XDJNOTIFY_STATUS_MSG = 1000, 
XD_NOTIFY_XFERDATA_DN = 1001, 
XD_NOTIFY_XFERDATA_UP = 1002, 
XD_NOTIFY_QUOTA = 1003, 

XD_N OTIF Y_STA RT = 1004, 

XD_NOTIFY_STOP = 1005 

} XD_lMOTIFY_CODE; 



// nothing happening here 

// status msg 

// downloading 

// uploading 

// Update the quota 
// Start an operation 
// Stop an operation 



II 

// XD_NOT1FY - This is our notification structure. The http engine 
// will use this structure to pass status information back to the 
// invoking method. 

// 

#pragma pack( 1 ) 

typedef struct _xd_notification_ 
{ 

int mJNotifyType; 

TCHAR m_szMessage [ 1024 + sizeoff TCHAR) ]; 

// 



// used for send/receive 

II 



ULONG 
ULONG 

DWORD 
DWORD 



m_dwStartTime; 
m_dwCurrentTime; 



//GetTickCountO/1000 
//GetTickCountQ/1000 



m_dwCurrentBytes; 
m_dwTotalBytes; 



TCHAR 
TCHAR 

} XD_NOTlFY, *LPXD_NOTlFY; 
#pragma pack() 

fldefme XD NOTIFY JVIAX 50 



m_szLocalFileName [ MAX_PATH + sizeof(TCHAR)]; 
m_szRemoteFileName [ MAX _PATH + sizeof(TCHAR) ]; 



#endif // _rNC_XDRJVE_ENGINE_H_ 
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// Module: tdimsgtbl.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 
// Contents: TD1 Error table. 

// 

II 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

//All rights reserved. 

// 

// 



tfifhdef TD1MSGTBL_H 

#define TD I M SGTBLH 



typedef struct 
{ 

TD1_STATUS Status; 
int WinStatus; 
char *szMsg; 
} INETTDIMSG; 



INETTDIMSG TdiMsgTb1[] - 
{ 

{TDI_SUCCESS, ERROR^SUCCESS, "TDI Success"}, 
{TDI_NO_RESOURCES, ERROR_BAD_COMMAND, "No resources."} , 
{TDI_ADDR_IN_USE, ERROR_B A D_COMM AN D, "Address already in use."}, 
{TDI_BAD_ADDR, ERJU>R_BAD_COMM AND, "Address given is bad."}, 
{TDI_NO_FREE_ADDR, ERROR_BAD_COMMAND, "No addresses available."}, 
{TD1_ADDR_JNVALID, ERROR_BAD_COMMAND, "Address object is invalid."}, 
{TD1_ADDR_DELETED, ERROR_BAD_COMMAND, "Address object was deleted."}, 
{TDl_BUFFER_OVERFLOW, ERROR_BAD_COMMAND, "Buffer overflowed."}, 
{TDI_BAD_EVENTTYPE, ERROR_BAD_COMMAND, "Bad event type."}, 
{TDl_BAD_OPTION, ERROR_BAD_COMMAND > "Bad option or length."}, 
{TDI_CONN_REFUSED, ERRORJBAD_COMMAND, "Connection was refused."}, 
{TDI_INVALID_CONNECTION, ERRORJBAD_COMM AND, "Invalid connection."} , 
{TDI_ALREADY_ASSOCIATED, ERROR_BAD_COMMAND, "Connection already associated."}, 
{TDI_NOT_ASSOClATED, ERROR_BAD_COMMAND, "Connection not associated "}, 
{TDl_CONNECTION_ACTlVE, ERROR_BAD_COMMAND, "Connection is still active."}, 
{TDI_CONNECTION_ABORTED, ERROR_BAD_COMMAND, "Connection was aborted."}, 
{TDI_CONNECTION_RESET, ERROR_BAD_COMMAND, "Connection was reset."}, 
{ TDIJTI M ED OUT, ERROR_BAD_COMMAND, "Connection timed out"}, 
{TDM3RACEFUL_DISC, ERROR_BAD_COMMAND, "Received a graceful disconnect."}, 

{TDI_NOT_ACCEPTE£>, ERROR_BAD_COMMAND, "Data not accepted."}, 
{TDI JvlORE_PROCESSING, ERROR_BAD__COMMAND, "More processing required."} , 
{TD1_FNVAL1D_STATE, ERROR_BAD_COMMAND, "TCB in an invalid state."}, 
{TDMNVALID PARAMETER, ERROR_B AD_COMM AN D, "An invalid parameter."}, 
{TDI_DEST_NET_UNREACH, ERRORJBAD_COMMAND, "Destination net is unreachable."}, 
{TDI_DEST_HOST_UNREACH, ERROR_BAD_COMMAND, "Dest. host is unreachable."}, 
{TDI_DEST_UN REACHABLE, ERROR_BAD_COMMAND, "Dest. is unreachable. "}, 
{TDl_DEST_PROT_UN REACH, ERROR_BAD_COMMAND, "Destination protocol is unreachable."}, 
{ TDl_DEST_PORT_UN REACH, ERROR_B AD_CO M M AN D, "Dest. port is unreachable."}, 
{TDIFNVALIDQUERY, ERROR_BAD_COMMAND, "Invalid query type specified."}, 

{TDI_REQ_ABORTED, ERROR_BAD_COMMAND, "Request was aborted for some reason."}, 
{TDI_BUFFER_TOO_SMALL, ERROR JBAD_COMM AND, "Buffer was too small."}, 
{TDI_CANCELLED, ERRORJBAD_COMMAND, "The request was cancelled."}, 
{TDI_BUFFER_TOO_BlG, ERROR_BAD_COMMAND, "Invalid request.'?}, 
{ERROR_SEM_TIMEOUT, ERROR_SEMJTIMEOUT, "Timed out."}, 
{TDIJ>ENDING, ERROR_BAD_COMMAND, "Pending"} 
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// 

// Module: tdisock.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: TDI Socket header file. 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

// All rights reserved. 

// — 

// " 

// 

#ifhdef_TDISOCK_H 
tfdefine TDISOCK H 



#define TDISOCK_T1MEOUT 15000 

tfdeflne WSADESCRIPT10N_LEN 256 

#define WSASYS_STATUS_LEN 128 

typedef short SHORT; 

typedef unsigned short USHORT; 

typedef unsigned short ushort; 

typedef unsigned int uint; 

typedef unsigned long ulong; 

typedef unsigned long ULONG; 

typedef void (*CTEReqCmpItRtn)(void "Context, long FinalStatus, unsigned int ByteCount); 
typedef unsigned char uchar; 
typedef struct WSAData { 



WORD wVersion; 
WORD wHigh Version; 

char szDescription[WSADESCR!PT10N_LEN+l]; 

char szSystemStatus[WSASYS_STATUS_LEN+l ]; 
unsigned short iMaxSockets; 
unsigned short iMaxUdpDg; 
char FAR * IpVendorlnfo; 
} WSADATA; 

typedef WSADATA FAR *LPWSADATA; 
#define USE_ND1S 1 



#include <vtoolscp.h> 
#include <crtl.h> 

#undefUSE_NDIS 



#include <tdi.h> 
# include <vxdsvc.h> 
^include <tdivxd.h> 
#include <tdistath> 

#undef VTDI_Device_I D 
^include <vtdi.h> 



^define MAKELONG(a, b) ((LONG)((( WORD)(a)) | ((QWORD)«WORD)(b))) « 1 6)) 
#define LOWORD(l) ((WORD)(l)) 
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^define LOBYTE(w) 
#defme HIBYTE(w) 



((WORD)(((DWORD)(l) » 16) & OxFFFF)) 
((BYTEXw)) 

((B YTE)(((WORD)(w) » 8) & OxFF)) 
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/* 

* Structures returned by network data base library, taken from the 

♦ BSD file netdb.h. All addresses are supplied in host order, and 
♦^returned in network order (suitable for use in system calls). 

struct hostent { 

char FAR ♦ h_name; /* official name of host */ 

char FAR * FAR * h_aliases; /* alias list V 
short h_addrtype; /* host address type */ 

short hjength; /* length of address */ 

char FAR * FAR * h_addrjist; /* list of addresses */ 

#define h_addr h_addrjist[0] /* address, for backward compat V 



/***♦* Wait for semaphore flags 
#define WAIT SEMA FLAGS 



7 



0 //BLOCK^SVCJNTS | BLOCK_POLL 



/***♦* Macro to call wait on semaphore function */ 
#define SEMAPHORE_WAIT( hSem, nTimeout ) \ 

WaitOnSemaphore( s, hSem, #hSem, nTimeout ) 



/****♦ Checks for valid TDI status */ 

#define TDI_CHECKSTATUS(s) if ( (s) != TDI__SUCCESS ) 
\ 

Line:%d TDI [%d] - %s\n", \ 
MapTdiToString(s)); ); \ 



\ 



\ 
{ 

errdebug( DBG_log(" ERROR - File: %s 
_FILE_,_LINE_,(s), 

goto Exit; 
\ 

} 



Destroys a semaphore */ 
^define SEMAPHORE_SAFE_DESTROY(hSem) 

if(hSem) ^ 

vbsdebug( DBGJog("Destroy Semaphore %s'\ #hSem); ); \ 
UtilSemDestroy(hSem); \ 

hSem = 0; \ 
} 



/***♦* Signals a semaphore */ 

#define SEMAPHORE_S AFE_SIGNA L(hSem) \ 

if(hSem) \ 

( \ 
vbsdebug( DBGJog("*** Signal Semaphore %s", #hSem); )* \ 
vbsdebug( DBGJog_hexJong( hSem ); ); 
Signal_Semaphore_No_Switch( hSem ); 



} 

else \ 



{ \ 

vbsdebug( DBGJog(»*** NO SEMAPHORE TO SIGNAL %s", #hSem); ); \ 
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/* 

* Basic system type definitions, taken from the BSD file sys/types.h. 
*/ 

typedef unsigned char u_char; 
typedef unsigned short u_short; 
typedef unsigned int u_int; 
typedef unsigned long u_long; 



/* 

* Constants and structures defined by the internet system, 

* Per RFC 790, September 1981, taken from the BSD file netinet/in.h. 
*/ 

/* 



* Protocols 
*/ 

//define IPPROTO_ 








IP 


0 


/* dummy for IP */ 


#define IPPROTO 


ICMP 


1 


/* control message protocol */ 


#define IPPROTO 


IGMP 


2 


/* internet group management protocol */ 


//define IPPROTO 


GGP 


3 


/* gateway A 2 (deprecated) */ 


#define IPPROTO 


TCP 


6 


/* tcp */ 


//define IPPROTO, 


"pup 


12 


/* pup */ 


//define IPPROTO, 


UDP 


17 


/* user datagram protocol */ 


//define IPPROTO 


IDP 


22 


/* xns idp */ 


//define IPPROTO^ 


"nd 


77 


/* UNOFFICIAL net disk proto */ 


//define IPPROTO 


RAW 


255 


/* raw IP packet +/ 


//define IPPROTO 


MAX 


256 





/* 

* Port/socket numbers: network standard functions 
V 

#define I PPORT_ECHO ? 
#define I PPORT_DlSCARD 9 
#define !PPORT_SYSTAT 1 1 

#define I PPORT_DA YTIME 1 3 
//define I PPORT_NETSTAT 1 5 
#define lPPORT_FTP 21 
#define I PPORT_TELN ET 23 
#define IPPORT_SMTP 25 
#deftne IPPORT_TlMESERVER 37 
#define IPPORT_NAMESERVER 42 
//define IPPORT_WHOIS 43 
//define lPPORT_MTP 57 



* Port/socket numbers: host specific functions 
*/ 

//define IPPORTJTFTP 69 
//define IPPORT_RJE 77 
//define IPPORT_FINGER 79 
//define IPPORTJTYLINK 87 
#definc IPPORT_SUPDUP 95 

/* 

* UNIX TCP sockets 
*/ 

//define IPPORT_EXECSERVER 512 
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^define IPPORT_LOGnslSERVER 513 

^define IPPORT_CMDSERVER 514 

#define IPPORT_EFSSERVER 520 

/* 

* UNIX UDP sockets 
*/ 

#deflne IPPORT_BIFFUDP 512 
^define IPPORT_WHOSERVER 513 
^define lPPORT_ROUTESERVER 520 

/* 520+1 also used */ 

/* 

* Ports < IPPORT_RESERVED are reserved for 

* privileged processes (e.g. root). 
*/ 

#define I PPORT_RESER V E D 1 024 
/* 

* Link numbers 
*/ 

^define IMPLINKJP 155 
tfdefine IMPLINKLO WEXPER 1 56 
#define IMPLINK HIGHEXPER 158 

/* 

♦^Internet address (old style... should be updated) 

struct in_addr { 
union { 

struct { u_char s_bl,sj>2,s_b3,s_b4; } S_un_b; 
struct { ushort s_wl,s_w2; } S un vv; 
ujong S_addr; 
} S_un; 
#define s_addr S_un.S_addr 

/* can be used for most tcp & ip code */ 
#define s_host S_un.S_un_b.s_b2 

/* host on imp */ 
#define s_net S_un.S_un_b.s_bl 
/* network */ 
^define s imp S_un.S_un_w.s_w2 

/* imp V 
^define s_impno S_un.S_un_b.s_b4 

/* imp # ♦/ 
#define s_lh S_un.S_un_b.s_b3 

/* logical host */ 

>; 

^define htons(host) ( (((host) & Oxff) « 8) I ((host) » 8) ) 
ULONG htonl( ULONG hostlong ); 

/* 

* Definitions of bits in internet address integers. 

* On subnets, the decomposition of addresses to host and net parts 

* is done according to subnet mask, not the masks here. 

^define IN_CLASSA(i) (((longXO & 0x80000000) = 0) 

#deflne IN_CLASSA_NET OxffOOOOOO 
tfdetlne IN_CLASSA_NSHIFT 24 
#define IN_CLASSA_HOST OxOOffifrT 
#define IN_CLASSA_MAX 128 
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#define FN_CLASSB(i) (((long)(i) & OxcOOOOOOO) — 0x80000000) 

#define IN_CLASSB_NET OxfTffOOOO 

// end first 30 pages aj 



int iMax = i; 

CString* pArray = new CString[iMax]; 
i-0; 

while (rl .RegEnumKey(i++,szVal,dwCnt)) 
pArray[i-1] ~ szVal; 

rl.RegCloseO; 

for (i=0; KiMax; i-H-) 

{ 

CString str = pArray[i]; 
CString strTmp; 

strTmp.Foi™at(jr('Tos\\%s")> (LPCTSTR)szSubKey, (LPCTSTR)str); 
r 1 .RegDeleteKey(hHtve,strTmp); 

} 

delete[] pArray; 

} 

// 

// then Delete the key 

// 

mJRetCode - "RegDeleteKey ( hHive, szSubKey ); 

#endif 

#ifiidef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

tfendif 

// 

// bOK is TRUE if ERROR_SUCCESS was returned 

// 

bOK = (ERROR_SUCCESS == mJRetCode); 

return bOK; 
} //End ofRegDeleteO 

// Method: RegCloseO 

// Purpose: the the registry is open, close it. 

// 

BOOL xdRegistry::RegClose ( ) 
{ 

BOOL bOK = TRUE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

#endif 

if(m_hKey !-NULL) 

::RegCIoseKey ( mJiKey ); 
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catch(...) 
{ 



XDCATCH; 
bOK = FALSE; 



#endif 



// 

// unconditionally null the key 

// 

m_hKey - NULL; 

return bOK; 
} //End ofRegCloseQ 



// 

// Method: RegEnumStr() 

// Purpose: enumerates subkeys for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumStr ( int i, LPCTSTR szValue, UINT uiLenWithNuIl ) 

BOOL bOK = TRUE; 
DWORD dwldx - i; 

DWORD dwSize = (DWORD) uiLenWithNuIl; 

LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(m_hKey ==NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 

{ 

#endif 

// 

// initialize the string to be empty 
// 

memset ( pValue, 0, uiLenWithNuIl ); 

#ifdef_VXD_SOURCE_ 

m_IRetCode = ::RegEnumKey ( m_hKey, 

ofthekeytoget 
name will go here 



// hive/key 
dwldx, // index 

(LPTSTR)p Value, // key 



buffer 
tfelse 



dwSize); 



// the size of the 



#ifdef_UNICODE 

CString sTmp; 

TCHAR szBuf- (BYTE*)sTmp.GetBuffer(512); 
mJRetCode « ::RegEnumKeyA (m_hKey, 



key to get 
go here 



// hive/key 

dwldx, 



CString fred(buf); 



// index of the 
(char*)buf, // key name will 
dwSize);// the size of the buffer 
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_tcscpy((LPTSTR)szVaJue,fred); 

#else 

mJRetCode = ::RegEnumKey ( mJiKey, // hive/key 



of the key to get 
name will go here 
buffer 

tfendif 

#endif 



dwldx, // index 

(LPTSTR)pValue, // key 

dwSize); // the size of the 



bOK = (ERROR_SUCCESS = mJRetCode); 

if (bOK != FALSE) 

{ 

// 

// terminate the string.„ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNuJl) ] = 0; 

} 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumStrO 



// 

// Method: RegGetStr() 

// Purpose: retrieves a string value from the registry. NOTE: The length 

// of the string MUST include space for the NULL terminator since 

// this character IS read from the registry. So, if you want to 

// read ABCD* from the registry, supply a uiLenWithNulI of five(5). 

// 

BOOL xdRegistry::RegGctStr ( LPCTSTR szName, LPCTSTR szValue, UINT uiLenWithNulI ) 
{ 

BOOL bOK - TRUE; 
DWORD dwType =0; 

DWORD dwSize = (DWORD) uiLenWithNulI; 

LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(mJ)Key = NULL) 
return FALSE; 

#ifhdef _VXD_SOURCE_ 
try 



#endif 



{ 



// 

// initialize the string to be empty 

// 

memset ( pValue, 0, uiLenWithNulI ); 
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#ifdef_VXD_SOURCE_ 

m_IRetCode = ::RegQueryValueEx (m_hKey, 

// value name 

// reserved 

// the REG_* type 

// pointer to the storage area 

// # to fetch (WITH NULL) 



// hive/key 
(LPTSTR)szName, 

NULL, 

&dwType, 

pValue, 

&dwSize); 



#else 



#ifdef_UNICODE 

char sShort[5!2]; 
char sDefault[512]; 
char buf[512]; 
BOOL b; 

•sDefault = *sShort=0; 

WideCharToMukiByte ( CP_ACP, 0, szName, -1, sShort, 512, sDefault, &b ); 
~ ~ " " //hive/key 

sShort. 



m_IRetCode = ::RegQueryVaiueExA (mJiKey, 

// value name 

// reserved 

// the REG * type 

pointer to the storage area 

// U to fetch (WITH NULL) 
CString fred(buf); 
_tcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode- ::RegQueryValueEx (mJiKey, 

name 

// reserved 
REG * type 

pointer to the storage area ' 

fetch (WITH NULL) 
#endif 

#endif 

bOK « (ERROR_SUCCESS = mJRetCode); 

if ( bOK = TRUE ) 

{ 

. . . // 

// make sure that it was a string value which was returned. 
// If not, Delete the entry so we can regen it as a string 

// 

if (REG_SZ !=dwType) 

::RegDeIeteValue ( mJiKey, (LPTSTR)szName ); 

// 

// terminate the string...ensure that we dont go past 
// the max ienth of the string! 



0, 

<fedwType, 
(LPBYTE)buf, // 
&dwSize); 



// hive/key 

szName, // value 

0, 

&dwType, // the 

pValue, // 

&dwSize); // # to 
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// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNul1) ] = 0; 

} 

tfimdef JVXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK - FALSE; 

> 

tfendif 

return bOK; 
} //End of RegGetStr() 

// Method: RegPutStr() 

// Purpose: write the information to the registry (write the NULL TOO). 

// 

BOOL xdRegistry::RegPutStr ( LPCTSTR szName, LPCTSTR szValue ) 
{ 

BOOL bOK - TRUE; 
// 

// Make sure that the registry is open 

// 

if(m_hKey=NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

flendif 

#ifdef_VXD_SOURCE_ 
// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

// 

CString sTmp; 

LPTSTR szBuf- sTmp.GetBuffer(5!2); 
memset ( szBuf, 0, 5 1 2 ); 

memcpy ( szBuf, szValue, min(sTmp.GetAIIocLengthO-l,strlen(szValue)) ); 

// 

// remember... always write the NULL byte too! 

// 

UINT uiLenWithNull = strlen(szBuf) + 1 ; 

mJRetCode = ::RegSetValueEx ( mJiKey, (LPTSTR)szName, 0, R£G_SZ, 

(LPBYTE)szBuf, 

uiLenWithNull); 
#else 

#ifdef_UNICODE 

char sShort[512]; 
char sShortVal[512]; 
char sDefault[512]; 
BOOL b; 

♦sDefauIt = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, szName, - I, sShort, 512, sDefauit, &b ); 
WideCharToMultiByte ( CP_ACP, 0, szValue, - 1 , sShortVal, 5 1 2, sDefauit, &b ); 
m_!RetCode = ::RegSetValueExA (m_hKey, sShort, 0, REG_SZ, 
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strlen(sShortVal)+l ); (LPBYTE) sShortVal, 

#else 

CString sTmp; 

LPTSTR szBuf = (LPTSTR)sTmp.GetBuffer(1024); 
memset ( szBuf, 0, 1 024 ); 

memcpy ( szBuf, szValue, min(1023,__tcsIen(szValue))*si2eofrTCHAR) V 
szBufLtcslen(szValue)] = 0; 

// 

// remember.. .always write the NULL byte too 1 

// 

UINT uiLen WithNuII = _tcsIen(szBuf) + 1 ; 

mJRetCode = ::RegSetValueEx ( mJiKey, szName, 0, REG_SZ, 
uiLenWithNuII); (LPBYTE) szBuf, 

tfendif 

#endif 

bOK = (ERROR_SUCCESS = mJRetCode); 

#ifhdefJ/XD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} //End of RegPutStrQ 



// Method: RegGetNum() 

// Purpose: Retrieves a number from the registry, there are various 

M overloads for different types. 

// JV 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, DWORD& dwValue) 

BOOL bOK = TRUE; 
CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 

memset ( szBuf, 0, XD LEN 64 ); 

DWORD dwType = 0; 

DWORD dwSize = XD_LEN_64-I ; 

// 

// Make sure that the registry is open 

// 

if(m_hKey = NULL) 
return FALSE; 

#iftidef_VXD_SOURCE_ 
try 

{ 

#endif 

#ifdef_VXD_SOURCE_ 

bOK = RegGetStr ( sName, szBuf, sTmp.GetAllocLengthO- J ); 
if ( bOK — TRUE ) 
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dwValue = (DWORD)atol((LPTSTR)szBuf); 

#else 

#ifdef_UNICODE 

charsShort[512]; 
char sDefault[512]; 
char bufTmp[512]; 
BOOL b=0; 
*sDefault = *sShort=0; 

WideCharToMuItiByte ( CP_ACP, 0, sName, - ! , sShort, 5 1 2, sDefault, &b ); 
m_lRetCode = "RegQueryValueExA (m JiKey, // hive/key 

sShort, 

// value name 

0, 

// reserved 

&dwType, 

// the REG * type 

(LPBYTE)bufTmp, 

// pointer to the storage area 

&dwSize); 

// # to fetch (WITH NULL) 

bOK = (ERROR_SUCCESS — mJRetCode); 

if ( bOK = TRUE ) 

{ 

if ( dwType = REG_SZ ) 

dwValue = (DWORD)ato](bufTmp); 

} 

//else 

m_IRetCode = ::RegQueryVaiueEx ( m_hKey, 

sName, 
0, 

&dwType, 
(BYTE*)szBuf, 
&dwSize ); 

bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK = TRUE ) 

{ 

if ( dwType = REG_SZ ) 

dwValue = (DWORD)_ttol((LPTSTR)szBuf); 
if ( dwType = REG DWORD ) 

dwValue * * ((DWORD*)szBuf); 

} 

#endif 

#endif 

#ifndef_VXD_SOURCE_ 
} 

catch(„.) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

tfendif 

return bOK; 
} // End of RegGetNumO 

H 

// Method: RegGetNum() 

// Purpose: Retrieves a number from the registry. URsiT version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, UINT& uiValue) 
{ 
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DWORD dwValue = ui Value; 

BOOL bOfC = RegGetNum(sName,dwValue); 

uiValue = (UINT) dwValue; 

return bOK; 
} // End of RegGetNumQ 



//■ 



// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. BOOL version 



// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, BOOL& b Value) 

DWORD dwValue = bValue; 

BOOL bOK = RegGetNum(sName,dwValue); 

bValue = (BOOL) dwValue; 

return bOK; 
} //End of RegGetNumQ 



// 

// Method: RegGetNum() 

// Purpose: Retrieves a number from the registry. WORD VERSION! 
BOOL xdRegistry::RegGetNum(LPCTSTR sName, WORD& wValue) 

DWORD dwValue = w Value; 

BOOL bOK = RegGetNum(sName,dwValue); 

wValue = (WORD) dwValue; 

return bOK; 
} // End of RegGetNumQ 



// Method: RegPutNumO 

// Purpose: writes a numeric value to the registry. 
BOOL xdRegistry::RegPutNum(LPCTSTR sName, DWORD dwValue) 
BOOL bOK = TRUE; 

// 

// make sure the key is open 

if (m_hKey=NULL) 
return FALSE; 

#ifhdefJVXD_SOURCE_ 
try 

{ 

#endif 

#ifdef_VXD_SOURCE_ 

CString sTmp; 

BYTE* szBuf = (BYTE*)sTmp.GetBufTer( 1 32); 
sprintf( (LPTSTR)szBuf, _T("%Iu"), dwValue); 

UINT uiLenWithNull = strlen((LPTSTR)szBuf) + 1 ; // ADD THE NULL'""M 
mJRetCode = ::RegSetValueEx ( m_hKey, (LPTSTR)sName, 
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0, REG_SZ, szBuf, 

uiLenWithNuli ); 

bOK = (ERROR_SUCCESS == mJRetCode); 

#else 

tfifdefJJNICODE 

char sShort[512]; 
char sDefau!t[512]; 
BOOL b; 

♦sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, sName, - 1 , sShort, 5 1 2, sDefault, &b ); 
sprintfl[ sDefault, M %hT\ dwValue ); 

mJRetCode = ::RegSetValueExA (m_hKey, sShort, 0, REG_SZ, 

(LPBYTE)sDefault, 

strlen(sDefault)+I ); 
#else 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 
wsprintflt (LPTSTR)szBuf, _T( n %lu"), dwValue); 

UINT uiLenWithNuli = _tcslen((LPTSTR)szBuf) + 1 ; // ADD THE NULL!!!!!!! 
mJRetCode = ::RegSetValueEx ( m_hKey, 

sName, 
0, 

REG_SZ, 

(BYTE*)szBuf, 

uiLenWithNuli); 

flendif 

#endif 

bOK = (ERROR_SUCCESS = m_lRetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegPutNum() 

// 

// Method: RegDeleteValueO 
// Purpose: 

// 

BOOL xdRegistry::RegDelete Value ( LPCTSTR szValue ) 
{ 

BOOL bOK - TRUE; 

// 

// make sure the key is open 

// 

if(m_hKey=NULL) 
return FALSE; 

tfirhdef_VXD_SOURCE_ 
try 
{ 

tfendif 

mJRetCode = ::RegDelete Value ( mJiKey, (LPTSTR)szValue ); 
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bOK = (ERROR_SUCCESS = m_IRetCode); 

#iftidef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} //End of RegDeleteVaIue() 

// 

// Method: RegEnumVa!() 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumVaI ( int i, LPCTSTR szValueName, UINT uiNameLenWithNuil, 

LPCTSTR szValueData, UINT 

uiDataLenWithNull) 
{ 

BOOL bOK - TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiNameLenWithNuil; 

DWORD dwDataSize = (DWORD)uiDataLenWithNull; 
LP BYTE pValue = (LPBYTE) szValueName; 

LPBYTE pData Value = (LPBYTE) szValueData; 

// 

// make sure the key is open 

// 

if(mJ)Key=NULL) 
return FALSE; 

#ifhdef_VXD__SOURCE_ 
try 
{ 

tfendif 

// 

// initialize the string to be empty 

// 

memset ( p Value* 0, uiNameLenWithNuil ); 
memset ( pData Value, 0, uiDataLenWithNull ); 

#ifdef_VXD_SOURCE_ 

m_IRetCode = ::RegEnumValue(m_hKey, // hive/key 

dwldx, // index 

of the value to get 

(LPTSTR)pValue, // 

valuename will go here 

&dwSize, // the 

size of the buffer 

0, 

// reserved, 

NULL, // 

address of type code 

pDataValue, 
&dwDataSize); 

#else 

mJRetCode = ::RegEnumValue(m_hKey, // hive/key 
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dwldx, // index 



of the value to get 
valuename will go here 
size of the buffer 

// reserved, 
address of type code 



#endif 



(LPTSTR)pValue, // 

&dwSize, // the 
0, 

NULL, // 

pDataValue, 
&dwDataSize); 



bOK = (ERROR_SUCCESS = m JRetCode); 

if ( bOK = TRUE ) 

{ 

// 

// terminate the string.. .ensure that we dont go past 
// the max tenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNul!) ] = 0; 
((LPTSTR)szValueData) [ min(dwDataSize,uiDataLenWithNul!) ] = 0; 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumValQ 



// 

// Method: RegPutBinO 

// Purpose: write the information to the registry 

// 

BOOL xdRegistry::RegPutBin ( LPCTSTR szName, BYTE* pBuffer, UINT uiLength ) 
BOOL bOK = TRUE; 

// 

// make sure the key is open 

// 

iT(mJiKey— NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 



#endif 



{ 



// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

// 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(132); 
memset ( szBuf, 0, 132); 
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memcpy ( szBuf, pBuffer, min(sTmp.GetAllocLength()-l,uiLength) ); 
m_JRetCode = ::RegSetValueEx ( mJiKey, 



bOK = (ERROR_SUCCESS = mJRetCode); 



(LPTSTR)szName, 
0, 

REGBINARY, 
(LPBYTE) szBuf, 
uiLength ); 



#imdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} //End of RegPutBinQ 



// 

// Method: RegEnumKeyO 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumKey ( int i, LPCTSTR szValueName, UINT uiNameLenWithNull) 

BOOL bOK - TRUE; 
DWORD dwldx = i; 

DWORD dwSize - (DWORD) uiNameLenWithNull; 

LPBYTE pValue = (LPBYTE) szValueName; 

// 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

tfendif 

// 

// initialize the string to be empty 

// 

memset ( pValue, 0, uiNameLenWithNull ); 

#ifdef_VXD_SOURCE_ 

m_lRetCode = ::RegEnumKey(m_hKey, 

value to get 
go here 



buffer 
#else 



value to get 
go here 



// hive/key 

dwldx, 

(LPTSTR)pValue, 
dwSize); 



mJRetCode = ::RegEnumKey(m_hKey, 



// hive/key 
dwldx, 

(LPTSTR)pValue, 



// index of the 
// valuename will 
// the size of the 

// index of the 
//valuename will 
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dwSize); // the size of the 

buffer 
#endif 

bOK = (ERROR_SUCCESS == mJRetCode); 
if (bOK-=TRUE) 

{ 

// 

// terminate the string...ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNull) ] = 0; 

#ifhdef JV r XD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumKeyQ 
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// Module: xdFilelO.cpp 

// Subsystem: X:drive Tools Library (xdTools.d)I) 
// Contents: Redefinitions for the FILE IO functions 

// 

// 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

II " 

// 

^include "stdafx.h" 

include <xdGlobaIs.h> // X:drive system wide globals 

^include <xdToo!s.h> 

#ifdef_DEBUG 

#undef THIS_FILE 

static char BASEDCODE THIS_FILE[] = FILE ; 

#endif * 

#ifdef VXD_SOURCE_ 

#include LOCKED_CODE_S EG MENT 
#include LOCKED DATA SEGMENT 

tfendif 

#ifdef_VXD_SOURCE_ 



// Function: CreateFileO 

// Purpose: This API function maps the standard Win32 CreateFile function 
{{ to the Ring-0 R0_OpenCreateFi]e() call. 

// Returns: IN VALID_HANDLE_ VALUE - bad 
H something else - good! 

HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read-write) mode 
DWORD dwShareMode, // share mode 

attributes ^ 11 P oimer *> ^ity 

DWORD dwCreateFIags, // how to create 

DWORD dwFJagsAndAttributes, // file attributes 
^ HANDLE) 

HANDLE h = INVALIDJHANDLE_VALUE* 

WORD wError = 0; 
WORD wMode = 0; 
BYTE action = (D; 

switch (dwDesiredAccess) 

case GENERIC_READ: 

wMode = OPEN_ACCESS_READONLY; 
break; 

case GENERIC_ WRITE: 

wMode = OPEN_ACCESS__WRITEONLY; 
break; 

default: 

wMode =* OPEN_ACCESS_READWRITE; 
break; 

} 
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// 

// file sharing not supported! 

// 

wMode |- OPEN_SHARE_COMPATIBLE; 

// 

// Create Attributes 

// 

switch ( dwCreateFlags ) 
{ 

case CREATE_NEW: // create New file, fail if file exists 

action = ACT10NJFEXISTS_FAIL | ACTIONIFNOTEXISTS^CREATE; 
break; 

case CREATEALWAYS: // create New file, overwrite if exists 

action = ACTIONJFEXISTS_TRUNCATE | ACTIONJFNOTEXlSTS_CREATE; 
break; 

case OPEN_EXlSTING: // open file, fail if the file does not exists 

action = ACTION_IFEXISTS_OPEN | ACTION JFNOTEXISTS_FAIL; 
break; 

case OPEN_ALWAYS: // open file, if !exists, create 

action = ACTION_IFEXISTS_OPEN | ACTIONJFNOTEXISTS_CREATE; 
break; 

case TRUNCATEEX1STING: // open&truncate file, fail if it does not exist 

action = ACTION JFEXISTS_OPEN | ACTIONJFEXISTSJTRUNCATE | 
A CTION_I FNOTEX 1 STS_F AI L; 
break; 

} 

h = R0_OpenCreateFiie( I ,(LPTSTR)lpFileName,wMode, 

ATTR_NORMAL,action,R0_NO__CACHE,&wError, 

&action); 

return h; 
} // End of CreateFileO 

// „ 

// Function: ReadFile() 

// Purpose: This API function maps the standard Win32 ReadFile function 

// totheRing-ORO_ReadFileOcali. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFile ( HANDLE hFile, void* IpBuffer, DWORD dwBytesToRead, 

DWORD* pdwBytesRead, void* pdwOffset) 

{ 

WORD wError = 0; 
DWORD dwOffset = 0; 

if ( pdwOffset) 

dwOffset = *((DWORD*)pdwOffset); 

♦pdwBytesRead = ROJleadFile ( TRUE, hFile, IpBuffer, dwBytesToRead, 

dwOffset, &wError ); 

return ( w Error = 0 ); 
} //EndofReadFileO 

// Function: WriteFileO 

// Purpose: This API function maps the standard Win32 WriteFile function 

// to the Ring-0 R0_WriteFi1e() call. 

// Returns: TRUE - Good write 

// FALSE - Bad write 
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BOOL WriteFile ( HANDLE hFile, LPCTSTR IpBufTer, DWORD dwBytesTo Write 
^ DWORD* pBytesWritten, void* p) 

WORD wError = 0; 

DWORD dwFilePos - R0J3etFiIeSize(hFile,&wError)- 

♦pBytesWritten = R0_WriteFile ( TRUE, hFile, (void*)lpBuffer, dwBytesTo Write, 
return (wError 0); dwFilePos^ wError ); 

} //End of WriteFileQ 



It . 

// Function: CIoseHandle() 

// Purpose: This API function maps the standard Win32 CloseHandle function 
;/ to the Ring-0 R0_CIoseFi!e() calL 

// Returns: TRUE - success 

11 FALSE - failure 

// 

BOOL CloseHandle ( HANDLE hFile ) 
{ 

WORD wError = 0; 

return RO^CIoseFile ( hFile, &wError ); 
} // End of CloseHandleO 



//■ 



// Function: GetFileSizeO 

// Purpose: This API function maps the standard Win32 GetFileSize function 
11 to the Ring-0 RO_GetFileSize() call. 

// Returns: TRUE - success 

It FALSE - failure 

// 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ) 
WORD wError = 0; 

return RO_GetFileSize ( hFile, &wError ); 
} //End of GetFileSizeO 



II 

// Function: ReadFileLine() 

// Purpose: This API function maps the standard Win32 ReadFile function 
11 to the Ring-0 R0_ReadFiIe() call. 

// Returns: TRUE - Good read 

11 FALSE - Bad Read 

// 

BOOL ReadFileLtne ( HANDLE hFile, BYTE* IpBufTer, 

DWORD dwBytesToRead, 

DWORD* pdwBytesRead, 
DWORD* pdwOffset ) 

WORD wError = 0; 
DWORD dwOffset = 0; 

if ( pdwOffset ) 

dwOffset = *((DWORD*)pdwOffset); 

// 

//Check for EOF 
// 

if ( dwOffset >= R0J3etFileSize(hFile,&wError) ) 
return FALSE; 
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// *pdwBytesRead = R0_ReadFiIe ( TRUE, hFile, IpBuffer, dwBytesToRead, 
// dwOffset, &wError ); 

memset ( IpBuffer, 0, dwBytesToRead ); 

int iTmpBytesRead = 1 ; 
BOOL bFoundEOL = FALSE; 
int i=0; 

for ( i=0; (iTmpBytesRead != 0) && (i<dwBytesToRead) && 

(wError == 0) && (bFoundEOL=FALSE); i++ ) 

{ 

iTmpBytesRead = R0_ReadFile ( TRUE, hFile, &(!pBuffer[i]), 1, dwOffset+i, &wError ); 

if ((iTmpBytesRead != 0) && (wError = 0)) 

{ 

if(lpBuffer[i]=chNL) 

bFoundEOL = TRUE; 

} 

} 

*pdwBytesRead — i; 

return ( wError = 0 ); 
} // End of ReadFileLine() 
#endif 
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// 

// Module: xdDebugger.cpp 

// Subsystem: Xrdrive Tools Library (xdTooIs.dll) 

// Contents: Implementation module for the xdDebugger utility class. 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

^include "stdafx.h" 

^include <xdGlobals.h> // X:drive system wide globals 

^include <xdTools.h> // X:drive Tools Related 

^include <xdDebugger.h> 

#ifhdef_VXD_SOURCE_ 
#include <arxmt.h> 
^include "resource.h" 

#endif 

#ifdef_DEBUG 

#undef THIS_FI LE 

static char BASED CODE THIS FILEM = FILE ■ 
#endif ~ — — ' 

#ifdef_VXD_SOURCE_ 

^include LOCKED_CODE_SEGMENT 
^include LOCKEDDATA SEGMENT 

#endif 

// 

// Method: xdDebuggerQ 

// Purpose: Constructor for the debugger class. 

xdDebugger::xdDebugger() 
{ 

#ifodef _VX D_SOURCE_ 
try 

#endif 

{ • 

rn_szLogFile = (LPTSTR)malloc(XD_LEN_l024); 
m_szMsg = (LPTSTR)malloc(XD_LEN_2048); 
m_szB u f = (LPTSTR)malloc(XD_LEN_2048); 

m_hLogFile = NULL; 
m_bLogFile = FALSE; 

jcscpy ( m_szLogFile, XD_LOGFILE_NP ); 

#ifhdef_VXD_SOURCE_ 

mj)Sem = new CSemaphore(l,I); 

#endif 

} 

#ifhdef_VXD__SOURCE_ 
catch(...) 
{ 

XDCATCH; 
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} 

#endif 

} // End of xdDebugger() 

// Method: ~xdDebugger() 
// Purpose: Destructor. 

// 

xdDebugger::-xdDebugger() 
{ 

#ifhdef_VXD_SOURCE_ 
delete m_pSem; 

#endif 

free(m_szMsg); 
free(m_szLogFi le); 
free(mszBuf); 

} // End of ~xdDebugger() 
// Method: DebuggerOn() 

// Purpose: turns on debugging to the optional logfile 

// 

void xdDebugger::DebuggerOn(BOOL blnitialize) 
{ 

#ifdef_VXD_SOURCE_ 

WORD wError = 0; 
BYTE bAction = 0; 

// 

// force a creation of the file if it does not already exist. Then 
// simply close the file; we 11 open it when we need to write to 
//it. 
// 

mJ>LogFile = TRUE; 
if ( blnitialize == TRUE ) 
{ 

LPTSTR szOldFile = (LPTSTR)malIoc( XD_LEN_1024 ); 
strcpy ( szOldFile, m_szLogFi!e ); 
LPTSTR pDot = strrchr(sz01dFiIe,chPER10D); 
if(pDot !- NULL) 

*pDot = NULL; 
strcat ( szOldFile, " old" ); 
R0_DeieteFile ( szOldFile, 0, &wError ); 
R0_RenameFile ( m__szLogFile, szOldFile, &wError ); 
m_hLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 

OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRlTEONLY, 

ATTRNORMAL, 

ACTION_IFEXISTS_TRUNCATE| 
ACTION_IFNOTEXISTS_ CREATE, 

0, &wError, 

(PUGHAR)<&bAction ); 

free(szOldFile); 

} 

else 

mJiLogFile = R0_OpenCreateFile ( TRUE, m_szLogFi!e, 
OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRITEONLY, 

ATTR_NORMAL, 
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ACTIONJFEXISTS_OPEN| 

ACT1 ON_I FN OTEX I STS_C RE A TE, 

(PUCHAR)&bAction ); 

// 

// Ok, we opened/created the close it again. We never want to keep 
// the logfile open so that we ensure that its contents are saved 
// to disk. 
// 

if ( (mJiLogFile != NULL) && (wError == 0) ) 
R0_CloseFile ( m_hLogFile, &wError ); 
mJiLogFile = NULL; 



#else 



try 
{ 



// 

// force a creation of the file if it does not already exist. Then 
// simply close the file; we 11 open it when we need to write to 
//it. 
// 

m_bLogFile = TRUE; 
if(blnitialize = TRUE) 



{ 



#ifdef_UNICODE 

#else 

#endif 

} 

else 

#ifdef JJNICODE 

#else 

#endif 



CString sOIdFile; 

LPTSTR szOldFile = s01dFile.GetBufTer(512);; 
_tcscpy ( szOldFile, m_szLogFile ); 
LPTSTR pDot = jcsrchr(szOIdFile,chPERIOD); 
if(pDot != NULL) 

♦pDot = NULL; 
_tcscat ( szOldFile, _T(".old") ); 
DeleteFile ( szOldFile ); 
try 

{ 

CFiIe;:Rename( m_szLogFile, szOldFile ); 

catch(„.) 

{ 

} 

mJiLogFile = _wfopen(m_szLogFile, JT( M w+")); 
mJiLogFile - fopen(m_szLogFiIe,_T( M w+ M )); 



mhLogFile = _wfopen(m_szLogFile,JT("a+ M )); 
mJiLogFile = fopen(m_szLogFiIe,JT( M a+")); 



#endif 



} 

catch(...) 
{ 

} 



if ( m hLogFile f= NULL ) 

fclose(m JiLogFi le); 
mJiLogFile = NULL; 



XDCATCH; 
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} // End of DebuggerOn() 

// 

// Method: DebuggerOffD 

// Purpose: turns off debugging to the optional logfile 

// 

void xdDebugger::DebuggerOff() 
{ 

#ifdef_VXD_SOURCE 

WORD wError - 0; 
if(m_hLogFile!=NULL) 

R0_CloseFile ( m_hLogFile, &wError ); 
mbLogFile = FALSE; 

#else 

m_bLogFile = FALSE; 

tfendif 

} // End of DebuggerOffO 

II 

// Method: DEBUGMSGO 

// Purpose: always dumps the messages to debugger window and optionally to 

// the file... 

// 

void xdDebugger::DEBUGMSG(TCHAR *fmt,...) 
{ 

#ifdef_VXD_SOURCE_ 

va_list args; 

// 

// parse out the info 

// 

va_start(args,fmt); 

vsprintf(m_szBuf,frnt,args); 

va_end(args); 

// 

// add a <cr> 
// 

if (strchr(m_szBuf,chNL)==NULL) 
strcat(m_szBuf,"\r\n"); 

strcpy ( m^szMsg, "FSD: "); 
strcat ( m_szMsg, m_szBuf ); 

#ifdef DEBUG 

DEBUGTRACE(m_szMsg); 

#endif 

// 

// if the logfile is engaged, dump it! 
// 

if(m__bLogFile=TRUE) 
{ 

WORD wError = 0; 
BYTE bAction = 0; 

// 

// open the file, dump the string, then close the file!!! 

// 

mJiLogFile = R0_OpenCreateFile ( TRUE, m_szLogFiIe, 



204 



48 of 51 



WO 01/33381 PCT/US00/30536 
OPEN_SHARE_DENYWRJTE|OPEN__ACCESS_WRJTEONLY, 

ATTRNORMAL, 

ACTION_IFEXISTS_OPEN | ACTIOM_IFNOTEXISTS_CREATE, 

(PUCHAR)&bAction ); °' &wError > 

if ((m_hLogFi!e != NULL) && (w Error = 0)) 



} 

#else 

try 
{ 



{ 



} 



DWORD dwOffset = RO_GetFiIeSize ( mJiLogFile, &wError ) 
R0_WriteFile ( TRUE, mJiLogFile, m_szMsg, strIen(rn_szMsg), 

dwOffset, &wError); 
RO_CloseFile(m_hLogFiIe,&wError); 
m_hLogFile=NULL; 



// 

// only wait 1 second, then do it. This guarantees that 

// we dont lock up the system 

// 

if ( m_pSem->Lock(5000) = TRUE ) 

va_Iist args; 
// 

// parse out the info 

// 

va_start(args,ftnt); 

_vstprintf(rn_szBuf,fmt J args); 

va_end(args); 

// 

// add a <cr> 
// 

if Ocschr(m_szBuf,chNL)=NULL) 
_tcscat(mszBu f,szNL); 

*m szMsg = 0; 

_tcscpy(m_szMsg,_T("LOG: ")); 
_tcscat(m_szM sg, m_szB u 0; 

// 

// dump it to the IDE debugger 

// 

#ifdef_DEBUG 

OutputDebugString(rn_szMsg); 
#endif 

// 

// if the log file is engaged, dump it! 

// 

if (m_bLogFile = TRUE) 
{ 

// 



#ifdef JJNICODE 
#else 



// open the file, dump the string, then close the file!'! 

// 

m_hLogFile = _wfopen(m_szLogFile,__T( ,, a t, )); 
mJiLogFile = fopen(m_szLogFile,_T("a")); 
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#endif 

if(mJiLogFile!=NULL) 
{ 

_fputts(m_szMsg,m_hLogFile); 
//fflush(m_hLogFile); 
fclose(m_hLogFne); 
mJiLogFile = NULL; 

} 

} 

} 

} 

catch(...) 
{ 

XDCATCH; 

if(m_hLogFile!=NULL) 

{ 

//fflush(mJiLogFile); 
fclose(mhLogFile); 
m_hLogFile= NULL; 

} 

} 

m_pSem->Unlock(); 

tfendif 

} //EndofDEBUGMSG 
#ifhdef_VXD_SOURCE_ 
// Method: DEBUGMSG() 

// Purpose: loads the string and then dumps it to the logfile. 

// 

void xdDebugger::DEBUGMSG(UINT ui Resource! d) 
{ 

CString s = XD_LOADSTRING(uiResourceld); 

DEBUGMSGCT("%s\n"),s); 
} // End of DEBUGMSGO 
#endif 

// . 

// Method: SetLogName() 
// Purpose: 

// 

void xdDebugger::SetLogName(LPCTSTR s) 
{ 

_tcscpy ( m__szLogFile, s ); 
} // End of SetLogName() 

// 

// Method: IsDebuggerOn() 

// Purpose: 

// 

BOOL xdDebugger::lsDebuggerOn ( void ) 
{ 

return mbLogFile; 
} // End of IsDebuggerOnQ 
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//button, js 

//disklnfo.js 

//launchjs 

//nav.js 

//saveToXdrive.js 

//secure_Jogin.js 

//skip.js 

//skipthedownload.js . 

//submitjs 

//uploadStatusjs 

//utils.js 

//verify_lib.js 

//xparse.js 
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//button.js 

// Is called upon loading of page to set up the button image arrays 
function XDloadToolbarButtons () 
{ 

if (XD_gsAction == ' 1 ) { 

for (var i=0; i < 4; i=i+3) 
i 

g_aimgUpload [i] = new Image () ; 
g_aimgDownload [i ] = new Image ( ) ; 
g^aimgNewFolder [ i ) = new Image () ; 
g__aimgMove [ i] = new Image {) ; 
g_aimgRename [i] = new Image () ; 
g_aimgDelete [i] = new Image () ; 
g_aimgHelp[i] = new Image {) ; 
g_aimgView [i ] - new Image(); 
g_aimgShare [ i] = new Image () ; 



".gif "; 

i + ".gif"; 

• gif"# 
i + ".gif"; 
" .gif "; 
+ ".gif"; 
i + " .gif"; 
i + ".gif"; 



g_aimgLJpload [ i ] . src = XD_gsGraphicsLanguageRoot+ "up" + i + 
g_aimgDownload[i] . src = XD_gsGraphicsLanguageRoot+ "down" + 
g_aimgView [i ] . src = XD_gsGraphicsLanguageRoot+ "view" + i + 
g_aimgNewFolder [ i ] . src = XD_gsGraphicsLanguageRoot + "new" + 
g_aimgMove [ i] . src =* XD_gsGraphicsLanguageRoot+ "move" + i + 
g_aimgRename [i] . src - XD_gsGraphicsLanguageRoot+ "name" + i 
g__aimgDelete (i] . src = XD__gsGraphicsLanguageRoot + "delete" + 
g_aimgShare [i] . src = XD_gsGraphicsLanguageRoot+ "share" + 



// g__aimgUpload [i] . src = XD_gsGraphicsLanguageRoot+ 

"nav_upload" + i + ".gif"; 

// g_aimgDownload[i] .src = XD_gsGraphicsLanguageRoot+ 

"nav_download" + i + ".gif"; 

// g_aimgView [i] . src = XD_gsGraphicsLanguageRoot+ "nav_view" + 

i + ".gif"; 

// g_aimgNewFolder [ i] . src = XD_gsGraphicsLanguageRoot + 

"nav_newf older" + i + ".gif"; 

// g_aimgMove [i] . src = XD_gsGraphicsLanguageRoot+ "nav^move" + 

i + ".gif"; 

// g_aimgRename [i] . src = XD_gsGraphicsLanguageRoot+ 

"nav_rename" + i + ".gif"; 

// g_aimgDelete [ i] . src = XD_gsGraphicsLanguageRoot+ 

"nav_delete" + i + ".gif"; 

// g_aimgShare [i ] . src = XD_gsGraphicsLanguageRoot+ 

"nav_share" + i + ".gif"; 

) 

} 

} 

// Takes a button and an event and returns a status 
// as defined by the containt button statuses 
function XDtoolbarButtonStatus (button, event) 
{ 

var rv = X D_TOOLBAR__BUTTON_E N ABLE D ; 
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// Just exit if no controls are enabled 

if ( ! ControlsEnabled) 

{ 

return XD_TOOLBAR__BUTTON_DISABLED; 

} 

if (event == XD_EVENT_MOUSEOVER) 
{ 

rv = XD_TOOLBAR_BUTTON__ACTIVE; 
} 

else if (event == XD_EVENT_MOUSEOUT) 
{ 

rv = XD_T0OLBAR_BUTT0N_ENABLED; 
} 

else if (event == XD_EVENT_CLICK) 
{ 

rv - XD_TOOLBAR_BUTTON_CLICKED; 
} 

if { (button == XD_TOOLBAR_BUTTON_UPLOAD) 

&& (XD_gnSelectedFolderCount != 1)) 

{ 

rv = XD_TOOLBAR_BUTTON_DISABLED; 
> 

else if 

( (button == XD_TOOLBAR_BUTTON_DOWNLOAD) 
&& (XD_gnSelectedCount != 1 || XD_gnSelectedFolderCount != 0)) 

{ 

rv = XD_T0OLBAR_BUTTON_DISABLED; 
} 

else if 

( (button « XD_TOOLBAR_BUTTON_NEW FOLDER) 
&& (XD_gnSelectedFolderCount 1)) 

{ 

rv = XD_TOOLBAR_BUTTON_DISABLED; 
} 

else if 

( (button == X D_TOOLBAR_BUTTON_MOVE ) 
&& (XD_gnSelectedCount == 0)) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABLED; 
) 

else if 

((button == XD_TOOLBAR_BUTTON_DELETE) 
&& (XD_gnSelectedCount == 0)) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABLED; 
} 

else if 

((button == XDJTOOLBAR_BUTTON_RENAME) 
&& (XD_gnSelectedCount i= 1)) 

( 

rv = XD_T00LBAR_BUTT0N_DI SABLE D; 
} 

else if 

(button == XD_TO0LBAR_BUTT0N_VIEW) 

{ 

rv = XD_TO0LBAR_BUTT0N_DISABLED; 

if (XD_gnSelectedCount «« 1 && XD_gnSelectedFolderCount == 0) 
{ 
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rv = XDJTOOLBAR_BUTTON_ENABLED; 
} 

} 

else if 

(button =- XD_TOOLBARJBUTTON_SHARE) 

{ 

rv = X D_TOOLBAR_BUTTON__D I SABLE D ; 

if (XD_gnSelectedCount ~ 1 && XD_gnSelectedFolderCount == 0) 

rv = XD_T0OLBAR_BUTTON__ENABLED;- 
} 

} 

return rv; 
} 

// Wrapper for updating images, used for checking if the image exists before 
// attempting to udpate it. 

function XDImageUpdate (olmage, imgGraphic) 
{ 

if (olmage) 
{ 

// If the image exists then update it 

olmage. src = imgGraphic; 

} 



else 



} 



( 

// otherwise do nothing 
} 



// Takes a button and an event, finds the status 
// and then refreshes the button. 

function XDref reshButton (sButton, sEvent) 
{ 

if (XD_gsAction == ,f ) { 

var nStatus « XDtoolbarButtonStatus ( sButton, sEvent) ; 
var oFrame = XD_goFrameControls ; 

XD_gsPreviousGrove = grove; 

if (sButton == XD_TOOLBAR_BUTTON_UPLOAD) 
{ 

XDImageUpdate (oFrame . document . img_upload, g_aimgUpload [nStatus ] , src) ; 

else if (sButton — XD_TOOLBAR__BUTTON_DOWNLOAD) 
{ 

XDImageUpdate (oFrame . document . img_download, g_aimgDownload [nStatus] . src) 
) 

else if (sButton «» XD_TO0LBAR_BUTTON_NEW FOLDER) 
{ 

XDImageUpdate (oFrame . document . img_newf older , 
g_aimgNewFolder [nStatus] .src); 
} 

else if (sButton ~ XD_T00LBAR_BUTTON_MOVE ) 
{ 

XDImageUpdate (oFrame . document . img_move, g_aimgMove [nStatus] . src) ; 
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else if (sButton =*» XDJTOOLBAR_BUTTON_RENAME) 
{ 

XDImageUpdate (oFrame . document . img_rename, g_aimgRename [nStatus] . src) ; 
} 

else if (sButton == XD_TOOLBAR_BUTTON_DELETE) 
{ 

XDImageUpdate (oFrame .document . img_delete, g_aimgDelete [nStatus] . src) ; 
} 

else if (sButton == XD_TOOLBAR_BUTTON_VIEW) 
{ 

XDImageUpdate (oFrame. document . img_view, g_ aimgView [nStatus ] . src) ; 
} 

else if (sButton ~ XD__TOOLBAR_BUTTON__S HARE ) 
{ 

XDImageUpdate (oFrame . document . img_share, g_aimgShare [nStatus] .src) ; 
} 

} 



} 



//This refreshes all the buttons at one time, 
function XDref reshAHButtons ( ) 
{ 

XDref reshButton (XD_TOOLBAR_BUTTON_UPLOAD, null) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_DOWNLOAD / null ) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_NEW FOLDER , null ) ; 
XDref reshButton (XDJTOOLBAR_BUTTON_MOVE, null ) ; 
XDref reshButton (XDJTO0LBAR_BUTTON_RENAME, null ) ; 
XDref reshBut ton (XD_TOOLBAR_BUTTON_DELETE / null) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_VIEW / null ) ; 
XDref reshButton ( X D_TOOLBAR_BUTTON_SH ARE , null) ; 
} 

// Wraper that handles button click events, 
function XDbuttonClick (sButton) 
{ 

XDref reshButton (sButton, XD_EVENT_CLICK) ; 
} 



// Wrapper that handles the button MouseOver events 
function XDbuttonOver (sButton) 
{ 

XDrefreshButton (sButton, XD_EVENT_MOUSEOVER) ; 
} 



// Wrapper that handles teh button MouseOut events, 
function XDbuttonOut (sButton) 
{ 

XDrefreshButton (sButton, XDJSVENT_MOUSEOUT) ; 
} 

function XDf unct ionStatus (button) 
{ 

if (! ControlsEnabled) 
{ 

return false; 
} 
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if (XDtoolbarButtonStatus (button, XD_EVENT MOUSEOVER) == 
XD_TOOLBAR_BUTTON_ACTIVE) ~ 
{ 

return true; 
) 

else 

{ 

return false; 
) 
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// NOTE: The table trick works differently in IE vrs Netscape. In netscape 
you need to 

// have an   as a value within the TD's while in IE you do not need 
anything. 

function mresponseO 
{ 

parent . parent . parent . frames [ ' centerview • ]. . document . location - 
" . . /explorer /more_space_mail . html"; 

} 



function XDdisplayDisklnf o (oFrame) 
{ 

//3K always taken up by xdrive, public and private folde 
//changed code so it doesn't show as red any more 

var nUsed = XD_gnQuotaUsed; 

var nTotal = XD_gnQuotaTotal ; 

//var nGraphWidth = XD_gnFileGraphWidth; 
var sGraphUsedColor = XD_gsUsedColor ; 
var sGraphFreeColor = XD_gsFreeColor ; 

var freeMB = nTotal - nUsed; 

var usedPercent = Math . round ( 100 * ( nUsed/nTotal ) ) ; 

///// Do some basic bound checking 
if (usedPercent > 100) 
{ 

usedPercent =* 100; 

sGraphFreeColor = sGraphUsedColor; 
} 

if ( usedPercent < 0 ) 
{ 

usedPercent « 0; 
} 



var freePercent = 100-usedPercent ; 

oFrame. write ( ' < FORM name="controlForm"> # ) ; 

o Frame . write ( ' <TABLE width-500 border=0 cellpadding=0 
cellspacing=OXTR>\n' ) ; 

oFrame . write { ' <TD width=300>  </TD>\n ' ) ; 

oFrame. write ( 1 <TD align="right " width=50><B><FONT size="-l"> f + 
XD_gsEmpty + * </ FONTx/BXimg src=Vimages/spacer . gif " width-1 
height=lx/TD>\n • ) ; 

oFrame . write ( 1 <TD align="center " width=100>\n * ) ; 

oFrame. write ( 1 <TABLE width=100 CELLPADDING— 0 CELLSPACING=0 
BORDER=0XTR>\n * ) ; 
if (usedPercent != 0) 
{ 

oFrame . write (• <TD height=10 WIDTH="' + usedPercent -f •%" BGCOLOR=" • + 
SGraphUsedColor + » "ximg src="/images/spacer . gif " width=l 
height=l></TD>\n ' ) ; 
} 

oFrame. write < '<TD height=10 WIDTH="» + freePercent + ■ % " BGC0LOR=" • + 
sGraphFreeColor + ■ "ximg src=Vimages/spacer. gif" width=l 
height-lx/TD>\n 9 ) ; 

oFrame . write ( • </TRX/TABLE>\n ' ) ; 
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oFrame . write ( 1 </TD><TD align="lef t " width=50ximg 
src='7images/spacer.gif" width=l height=lxBXFONT size^'-l'^' + XD_gsFull + 
' </FONTx/BX/TD>\n' ) ; 



oFrame . write ( ' </TR>\n' ) ; 
oFrame . write ( ' </TABLE>\n 1 ) ; 



if (usedPercent>90) 
{ 

oFrame. write ( '<TABLE width=500 border=0 cellpadding=0 
cellspace=0><TR><TD width=300ximg src=" /images/spacer . gif" width=300 
height=lx/TDXTD width=200 valign=center align=lef tXFONT size="-l" 
face="verdana, arial'^' + XD_gsOutOf Space + • ?<BRxA HREF="/cgi- 
bin/addspace . cgi?action=intro" target="centerview"> 1 + XD_gsBuyMore + 
^/AX/FONTX/TDX/TRX/TABLE^ ) ; 

} 



oFrame . write {' <input type="hidden" name^ "multiples elect" value="N M > ■ ) ; 
oFrame. write ( ' </FORM>' ) ; 

} 

function XDSelectedList ( ) 
{ 

return XD_gsSelectedList ; 
) 

function XDSelectedFolder ( ) 
{ 

return 

XD_gs Select edFolderList . substring ( 0, XD_gsSelectedFolderList . length- 1) ; 
) 

* XDCleanupPath: Cleanup the passed path by removing the "/X:drive/" prefix 

* and the + postfix. 

* ** + * + *★*** + * + ★ + ****★*★* + * + ★****** + + *• + + **** + 
function XDPathCleanup ( sPath) 

{ 

var sCopy = sPath; 

sCopy = sCopy. substring { 9, sCopy. length) 

//sCopy = sCopy. substring (0, sCopy. length- 1 ) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
{ 

if (sValue != 'null' && sValue != "") 
{ 

m_sMultiSelect = sValue; 
} 

else 

{ 

return m_sMultiSelect ; 
} 

} 



function HTMLNavigation () 
{ 

var sHTML = HTMLStartO 

+»<table width="100%" border="0 M cellspacing="0" 
cellpadding= w 0">' 
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+ '<tr align="left" valign="top" bgcolor="#5EB114 "> » 
height="28 »></td> ■ <td><±mg src= " /ima ^s/main/logo_top . gif » widths" 153" 
+ ' </trxtr>' 

^ . +'<tdximg src= ,, /images/main/logo center.gif" width="171» 

hexght="97" alt-"X : drive"X/td> • " 
+'</tr><tr>' 

. L +'<td><img src="/images/main/race logo bottom . qif" 

width="171» height="35"x/td>' ~ ~ 9 

+ '</trx/table>' 

+ »<a target="toolbar" href ="http : //www . mit . edu">MIT</a> ' 

+ 1 </BODY>\n</HTML> ' ; 
return sHTML; 
} 

function HTMLStart () 
{ 

return "<HTML>\n" 

+'<body bgcolor«»#6961AB" topmargin="0 » lef tmargin="0» marqinheiqht="0" 
Ton?oad|>' t«t-#FFFFFF- vl i n k= " # FFFFFF" alink="#FFFFFF" linki"#FFFFFF M 

+"\n"; 
} 

function HTMLEnd () 
{ 

return "\n</BODY>\n</HTML>\n" ; 
} 

function RedrawToolBar ( ) 
{ 

var sWindow = 'window. toolbar ' ; 

sWindow. document . write (HTMLStart ( ) + ' test 1 +HTMLEnd ( ) ) ; 

function roundoff (value, precision) 
{ 

value += .000000001; 
part = + parselnt (value) ; 
size = part, lengths- 
value = + value; //convert value to string 
return value . substring (0, size+l+precision) ; 

function XDDiskUsed() 
{ 

var nUsed = XD_gnQuotaUsed; 

var nOsedMB = nUsed/1024; 

var nRound = roundOf f (nUsedMB, 2) ; 

var sRounded; 

// if (nUsed < 1024) 

// < 

// sRounded = ' .'+nRound; 

// } 

// else 

// { 

sRounded = nRound; 

// } 



} 



return sRounded; 
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function XDDiskTotal ( ) 
{ 

var nTotal = XD_gnQuotaTotal ; 
var nTotalMB = nTotal/1024; 
var nRound = roundoff (nTotalMB, 2) ; 
var sRounded; 

// if (nTotal < 1024) 
// < 

// sRounded - ' . * +nRound; 

// ) 

// else 
// { 

sRounded = nRound; 

// ) 



return sRounded + 1 MB 1 



} 



function XDDiskFree() 
{ 

var nUsed = XD_gnQuotaUsed; 
var nTotal = XD_gnQuotaTotal; 

var nFreeMB = (nTotal - nUsed)/1024; 
var nRound = roundoff (nFreeMB, 2) ; 
var sRounded; 

// if (nFreeMB < 1) 
// { 

// sRounded - ' . '+nRound; 

// } 

// else 
// { 

sRounded = nRound; 

// } 

return sRounded + ' MB'; 
} 
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+ + * + + + + + * + + * + + * + * + * + * + + + + + + + + + + + + * + + + + + + + * + + + + + + + 

* XDExplorerLaunch: Launch the passed explorer URL in a popup window 
++***+***********+**+**+**+++*********«+**********^ 

function XDExplorerLaunch { 

sURL, //**+ (I) The URL to open in the popup window 
nHeight, //*** (I) The height of the popup 
nWidth) //*** (I) The width of the popup 
{ 

var w = 

, window. open (sURL, "XDriveExplorer " , "location=no, toolbar=no, menubar=yes / " + 
"status=no, resizable=no, scrolling=yes, scrollbars=no f " + 
"width="+nWidth+", height="+nHeight) ; 

//*** make sure the opener knows who the parent is 
if (w. opener — null) w. opener = self; 

//**+ focus on the newly created window 

w. focus ( ) ; 

} 

function XDExplorerURL ( ) 
{ 

return ' /cgi-bin/explorer . cgi f ; 
} 

function XDDataURL ( ) 
{ 

return 1 /cgi-bin/explorer_data . cgi ' ; 
} 
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//nav.js 

// Added by Julie Wang 111999 
// 

// Function is used with <a href> to pop up another window to show X: drive's 
Terms of Service 
// page 

function toe ( ) 
{ 

var url, window_name; 

url="/ company /toe . html " ; 
window_name="toc" ; 
window . open ( 

url, 

window_name , 

• toolbar=no, menubar=no, scrollbars=yes / fullscreen=no, resizable=no, width=650, he 
ight=400' 

) ; 

return; 
} 



// Added by Julie Wang 122199 
// 

// Function is used with <a href> to pop up another window to show a 
// sample letter when someone use "Tell A Friend" feature. 

function tell_a_f riend_sample_email ( ) 
{ 

var url, window^name; 

url="/generic_join_sample_email . html " ; 
window_name= " toe" ; 
window. open ( 

url, 

window_name , 

1 toolbar=no, menubar=no, scrollbars=yes, fullscreen=no, resizable=no, width=650, he 
ight=400' 

) ; 

return; 
) 

// Added by Julie Wang 102699 
// 

// Function writes the side bar nav. menu/buttons on general HTML pages for 
every visitors. 

function left_menu() 
{ 

document .write (' <table width=\"138\" border=\"0\" cellspacing=\ "OA " 
cellpadding=\"0\">\n' ) ; 

document .write ( *<tr align=\"lef t \" valign=\"top\ ,f >\n • ) ; 

document .write( '<tdxa href =\"http : //www. xdrive . com\ "ximg 
src=\"/graphics/internal/btn_xdrivehome.gif \" width=\ "138 \ " height=\ " 19\ " 
alt=A"X:drive Home\" border=\"0\"x/axbr><img 

src=\"/graphics/internal/divider.gif\" width=\"138\" height=\"5\" 
alt=\"Divider \"></td>\n ' ) ; 
document . write ( ' </tr>\n ' ) ; 
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document. write C<tr align=\"l e f t \" valign=\ »top\ ">\n ■ ) ; 
document . write (' <td>\n ') ; 

document. write (Stable width-\ "138\ » border=\"0\" cellspacing^ "0\ " 
cellpaddmg=\"0\» background- Wgraphics /internal/lines . gif\ »>\ n • ) • 

document. write ( -<tr align=\"lef t \" valign=\"top\ ">\n » ) • 

document. write < '<td width-\ " 38 \ -Xing src=Wgraphics/internal/icon- 
new.gif\» width=\"38\" heights »31\" alt=\ »New\ "></td>\n • ) ; 

document. write ('<td align«\«lef t \" valign=\ "middle\ » width=\ " 100 Vxbxf ont 
face=\"Anal, Helvetica, sans-serif\" size=\"2\"x a 
href=Vcompany/new.html\">What\'s New</ a x/f ontx/bx/td>\n ' ) • 

document .write ( '</tr>\n' ) ; 

document. write ( *<tr align=Vlef t\" valign-\"top\">\n ' ) ; 
document write ( '<td width-\"38\»ximg src-Wgraphics/internal/icon- 
about.gif\» width-\»38\" heights "34 \ " alt=\"About X : drive\ »x/td>\n • ) ■ 

f^T^t^^^l 9 ^ ali ^\" left \" valign=\»middle\» width-\-100\«><bxfont 
xace-\ Anal, Helvetica, sans-serifv size=\"2\"xa 

href =\ "/company/company, html \">About X : drive</ax/f ontx/bx/td>\n • ) - 
document .write ( , </tr>\n' ) ; 

document. write C<tr align=\"lef t\" valign=\"top\">\n • ) ; 

document .write ( '<td width=\ "38\ M Ximg 
src=\ M /graphics/internal/icon desktop. gif\" width=\"38\" heiaht=\"P8\ " 
alt=\»Desktop X : drive\ "x/td>\n ' ) ; 9 X ^ X 

document.write<'<td align-\-left\- valign=\"middle\ « widths "lOOVxbxf ont 
face=\"Arial, Helvetica, sans-serif \" size=A"2\"x a 

href=\"/company/main_download.html\»>Desktop X : dri ve</ax/f ontx/bx/td>\n ' ) • 
document . write { ' </tr>\n ' } ; ), 

document .write <»<tr align-\ "lef t \ » valign-\ "top\ ">\n • ) • 

document, write C<td width=\"38\»ximg src-Wgraphics/internal/icon- 
affiliates.gif\" width=\"38\" height=\»28\" alt=\ "Af f iliates\»x/td>\n ' ) • 

document, write C<td align-\*left\« valign=\»middle\» width=\ »100\ "xbxf ont 
race-\ Anal, Helvetica, sans-serif \ tf size=\ "2\"Xa 
href =»\ "/af filiates /bef ree/index . html\">X : drive 
Af filiate</ax/fontx/bx/td>\n ' ) ; 

document . write ( • </tr>\n • ) ; 

document. write ('<tr align=\"lef t\" valign=\"top\ ">\n ■ ) ; 

document, write <'<td width=\ "38\ "ximg src= Wgraphics/internal/icon- 
faq.gif\" width»\»38\" height=\ "32 \- alt=\ "FAQs\ "></td>\n ' ) • 

document, write C<td align-\ "lef t \ " valign=\"middle\" width=\ "100 Vxbxf ont 
race=\ Anal, Helvetica, sans-serif\" size=\"2\"Xa 

href=\"/company/faq.html\">FAQ</a></fontx/b></td>\n• ) ; 
document .write ( '</tr>\n 1 ) ; 
document . write ( f </table>\n • ) ; 

document . write (• </td>\n •) ; 
document .write ( '</tr>\n' ) ; 

document. writ e( »<tr align=\"lef t \" valign=\"top\">\n • ) ; 

document . wri t e ( • <tdxa href =\ » /cgi-bin/signup_f orm . cgi \ "ximg 
src-\"/graphics/internal/sign-up-now.gif \» width=\"138\" height=\"58\ " 
alt=\"Sign Up Now ! \" border=\ , '0\"x/ax/td>\n' ) ; 

document . write { f </tr>\n ' ) ; 

document. write ('<tr align=\ "lef t\" valign=\"top\">\n ' ) ; 

document. write { f <tdximg src=\ "/graphics/internal/whats-hot . qif \" 
width=\"138\" height=\"19\" alt=\ "What\ ' s Hot ?\"><br><img 
src=\"/graphics/internal/divider.gif \" width=\"138\" heiaht=\"5\ " 
alt=\"Divider\"x/td>\n > ) ; 

document . write ( * </tr>\n ' ) ; 

document. write (*<tr align=\ "lef t\ " valign=\»top\ ">\n ■ ) • 

document.write('<tdx a href «\ »/f reebies/english/f reebiesout . htmlV'ximg 
src=\ /graphics/internal/freebies.gif\" width=\ "138 \ " height=\ "82\ " 
alt=\"Check Out Freebies - Click Here\" border=\"0\ "x/aXbrximg 
src-\ "/graphics/internal/divider. gif\" width=\"138\ " heiqht=\"5\" 
alt=\"Divider\"></td>\n , ) ; 

document . write ( * </tr>\n 1 ) ; 

219 12 of 76 



^M<;nnr.trv *-wr> 



WO 01/33381 PCT/US00/30536 

document .write { *<tr align=\"lef t \ " valign=\ n top\">\n' ) ; 

document .write ( '<td><a href =\ " /company/ma in_download . html \ "ximg 
src=\"/graphics/internal/btn__get_application .gif \" width=\" 138 V 
height=A"82\" alt=\"Download the desktop application ! \ M 
border=\"0\ , 'x/a><br><img src=\" /graphics /internal /divider . gif \" 
width=\"138\" height=\"5\ M alt=\ ,, Divider\"></td>\n , ) ; 

document . write ( 1 </tr>\n •) ; 

document .write ( '<tr align=\ M lef t \ M valign=\ "top\ ">\n ■ ) ; 

document . write ( • <tdxa href =\"/demo/index . html \" ximg 
src=\"/graphics/internal/btn__skipdownload.gif \ M width=\"138" height=\"82" 
alt=\ M Skip the download! \" border=\"0\"></a><brximg 
src=\"/graphics/internal/divider.gif\" width=\"138\" height=\ M 5\" 
alt-N^DividerVx/tdzAn* ) ; 

document . write ( ' </tr>\n ' ) ; 

document . write ( 1 </table>\n ' ) ; 

document . close ( ) ; 
return true; 

} 

// Added by Martin Hald 
function PathRemovePref ix (path) 
{ 

return path . substring ( 10, path . length) ; 
} 

// Function that redraws the file explorer 

function show { ) 
{ 

var oDocument = FrameObject ( ) ; 

oDocument . open ( "text /html " ) ; 
-oDocument . write ( "<html>\n" ) ; 
oDocument . write ( "<head>\n" ) ; 



oDocument . write ( " </head>\n" ) ; 

oDocument . write ( ' <body BGCOLOR=" 1 + XDBackgroundColor ( ) + • " 
BACKGROUND^" ' + XDBackgroundlmage ( ) +•">•); 
oDocument . write (XD_sNewdoc ) ; 

XDdisplayDisklnfo (oDocument ) ; 

oDocument . write ( "</body>\n" ) ; 
oDocument .write ("</html>\n") ; 
oDocument . close ( ) ; 
XDref reshAHButtons { ) ; 

) 

// parses the XML tree from the top frame and first calls show. 
// This must be called on load of the main page, 
function process ( sExtra ) 
{ 

if (XD_gsAction == * ' ) 



grove = Xparse (XD_gsXML) ; 



//this resets the variables that track how many files and folders 

are selected 

//don't reset if we are going into an action 
XDresetSelected ( ) ; 
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// If we have just performed an action that involved a folder then 
//we will open that folder so the user can see the results of the 
// action. To do so we update the old directory listing so that 
// the directory from which the action took place gets opened, 
if (XD_gnSelectedFolderID != ' •) 
{ 

XD_gsPreviousGrove. index [XD_gnSelectedFolderID] . at tributes . show = 

1 / 

} 

// Now sync the view of the filesystem between the current and 
/ / previous views . 

synch (XD_gsPreviousGrove, grove) ; 

//reset attributes . selected for all items so that blue line does not 
get drawn 

XDresetAllSelected ( ) ; 

) 



function BuildUpload ( ) 
{ 

var oDocument = FrameObject ( ) ; 
XD_gsActionUpload = true; 
HTMLGenericStart (oDocument) ; 

// var rand_num = parent . createRandomID () ; 
var rand_num = createRandomID {) ; 

if (XD__gbExtraHelp) 
{ 

oDocument . write (XDHelp (XD_gsHelpFileUpload) ) ; 



oDocument . write ( r, </TABLE>\n" ) ; 

oDocument . write ( * <p>\n 1 ) ; 

oDocument .write (XDHelp (XD_gsClientAd) ) ; 

oDocument .write ( • </p>\n 1 ) ; 

oDocument .write (• <form name="form_upload" method="POST" action="/cgi- 
bin/file_save.cgi" onSubmit="return 

parent . parent . parent . openUpload (parent . parent . parent . XDCheckFormlnput ( ) , \ f /eg 
i-bm/ file_upload_stat . cgi?id=' +rand_num+ 9 \ 1 , \ 1 window \ 1 (this) ) ; " 
TARGET="centerview" f ) ; 

// oDocument . write ( ' <f orm name="f orm_upload" method^" POST" 
action="/cgi-bin/f ile_save . cgi" onSubmit="return 

(parent .parent, parent .XDCheckFormlnput () ) ; " TARGET="centerview" » ) ; 

oDocument . write ( 1 enctype="mult ipart /f orm-data"> • +" \n M ) ; 

var results = • ■; 

results += »<input type= "hidden" name="sFolderCurrent " value= M, + 
XDSelectedFolder ( ) + ' " >\n • ; 

oDocument . write (results) ; 

oDocument . write ( 1 <input type=hidden name=id value='+rand_num+ I >') ; 
oDocument . write ( ' <TABLE cols=2> » + "\n" ) / 
for (var i=l; i<=5; i++) 
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{ 

oDocument .write ( • <tr><td valign="top" width- !, 3'0"><FONT face="verdana, 
arial, sans" size="-l"xb> ' + XD^gsFile + i + *: </bX/FONTX/tdxtdxFONT 
face="verdana, arial, sans" size="-l"xinput type="file" 
name="f ile_to_upload_0 9 + i + ' " size="20"X/FONTx/tdx/tr> ■ +"\n") ; 

> 

oDocument .write ( ' </tr>'+"\n") ; 

oDocument .write {' <tr valign="top"> '+"\n<td colspan=2>\n" ) ; 

oDocument .write ( ' <center> ' +"\n" ) ; 

©Document . write (XDFormSubmitBut tons ( ) ) ; 

oDocument . write ( ' </center> 1 + "\n" ) ; 

oDocument .write ( ' </td> ' +"\n") ; 

oDocument .write ( • </t r> 1 +"\n" ) ; 

oDocument . write ( ' </TABLE> ' ) ; 

oDocument . write { ' </body> ' +"\n" ) ; 

oDocument . write ( • </html> 1 +"\n" ) ; 

oDocument . close () ; 

XD_gnFrameHeight=' 85 • ; 

return true; 

} 

function BuildCreate ( ) 
I 

var oDocument = FrameObject ( ) ; 
HTMLGener icStart ( oDocument ) ; 

if (XD_gbExtraHelp) 
{ 

oDocument .write (XDHelp (XD_gsHelpCreateFolder ) ) ; 

} 

oDocument . write (' <form name="f orm_create" action="/cgi- 
bin/f older^create . cgi" method="POST" onSubmit="return 
parent .parent .parent . XDCheckFormlnput ( ) ; " target="cent erview"> ' ) ; 

var results - 1 * ; 

results += ' <input type="hidden" name= " s Folder Cur re nt " value="' + 
XDSelectedFolder ( ) + 1 ">\n * ; 

oDocument . write ( results) ; 

oDocument . write ( ' <tr><td valign=center><B>'+ XD_gsFolderName + , :</b>'); 
oDocument .write ( f <input type="text" name= w sFolderNew" value=""xbr> 1 ) ; 
oDocument .write (XDFormSubmitBut tons ( ) ) ; 
oDocument .write { t </tdx/tr>' ) ; 

oDocument . write { 1 </TABLE> ') ; 
oDocument .write ( 1 </body> ' +"\n" ) ; 
oDocument,. write (.? </html> 1 +"\n" ) ; 
oDocument . close () ; 
XD_gnFrameHeight= 1 85 • ; 
return true; 

) 

function BuildRename ( ) 
{ 

var oDocument = FrameObject () ; 
HTMLGenericStart (oDocument) ; 

if (XD_gbExtraHelp) 
{ 

oDocument .write (XDHelp (XD_gsHelpFolderRename) ) ; 

} 
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oDocument. write('<form method^' POST" name=»form rename" attion-Vcgi- 
bm/selected_rename.cgi" onSubmit="return ~ 
parent, parent .parent . XDCheckFormlnput () ; ) ; 

oDocument . write { ' target="centerview» ' value=» • +XDSelectecl I ) + ■ ">\n ■ ) • 
var results = •'; 

results +« '<input type="hidden" name="sFolderCurrent " 
value=" 1 +XDSelectedFolder ( } + • ">\n • ; 
oDocument . write (results) ; 

oDocument. write C<tr><td valign-center><B> ■ + XD gsNewName + • : </b> • ) • 
XDSelecS^-""^r <inpUt ^P^ 1 ^" name="sItemCurrent - value-' + ' 

if (XDProf ileEditExtensions) 
{ 

vnc i «. ^w- D ° CUI " ent,Write,,<lnput type=«text» name=» S ItemNew» value=»' + 
XDSelectedThingName ()^-"•>\n , ) ; 

VAln(a _....^ °Document.write('<input type=»hidden» name=»sItemExtension» 

} 

else 
{ 

oDocument.write(»<input type="text" name="sItemNew" 
n {) T~\n ■ | XDSelectedThingNameMinusExtension <>+'">' +XDSelectedThingNameExtensio 

oDocument. write (^input type="hidden» name="sItemExtension" 
valuer" •+XDSelectedThingNameExtension()+ , ">\n' ) • 
) 

oDocument . write (XDFormSubmitButtons ( ) ) ; 
oDocument .write ( ' </tdx/tr>' ) ; 

oDocument . write ( 1 </TABLE> ') ; 
oDocument .write ( , </body>' +"\n") ; 
oDocument .write ( * </html> 1 + "\n ,r ) ; 
oDocument . close ( ) ; 
XD_gnFrameHeight=' 85 1 ; 
return true; 

} 

function BuildDelete ( ) 
{ 

var oDocument - FrameObject ( ) ; 
HTMLGenericStart (oDocument) ; 

var pathToFile = XDSelected ( ) ; 

var lastSlash = pathToFile . lastlndexOf ('/') ; 

var file = pathToFile . substring ( lastSlash+1 , pathToFile . length) ; 

if (XD_gbExtraHelp) 
< 

^ oDocument . write (XDHelp (XD_gsHelpDelete) ) ; 

oDocument .write ( '<form name-"f orm_delete" action="/cgi- 
bm/selected_delete.cgi" method="POST" onSubmit = "return 
parent .parent .parent .XDCheckFormlnput () ; " target="centerview»> ' ) - 

var results = ■'; 

results += '<input type= H hidden" name="sFolderCurrent - value="'+ 
XDSelectedFolder () + , ">\n\* 

oDocument . write (results) ; 

oDocument .write ( '<trxtd valign=center><B>' + XD_gsSureDelete + - • + 
f i 1 e *^ ) f 

VM , oDocument. write (»<input type="hidden" name="sItemCurrent " value-"' + 
XDSelectedO + '"xb^M; 

vne , ^Document. write ('<input type=» hidden" name="sFolderCurrent « valued" + 
XDSelectedFolder () + '"xbr^); + 
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oDocument . write (XDFormSubmitBut tons ( ) ) ; 
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oDocument . write ( ' </tdx/tr> ■ ) ; 
HTMLGenericEnd (oDocument ) ; 
XD_gnFrameHeight= f 85 ' ; 
return true; 

} 



function BuildExplorer (grove, sStartDirectory) 
{ 

var returnValue = true; 

if (XD_gsAction « 'Upload') 

returnValue = BuildUpload ( ) ; 
else if (XD_gsAction 'Create') 

returnValue = BuildCreate ( ) ; 
else if (XD_gsAction == 'Rename') 

returnValue = BuildRename ( ) ; 
else if (XD__gsAction == 'Delete') 

returnValue = BuildDelete ( ) ; 

else 

var result =* ' ' ; 
var nDepth = -2; 

result +=» * <TABLE compact border=0 cellspacing=0 cellpadding=4 
width=" ' + XD_gnExplorerTableWidth + • ">\n ' ; 

result += XDFormSubmitButtons ( 1 ) ; 

result +- "<tr><th align=\"lef t \ ">"+ XDExplorerFont ( ) + '<font 
si2e="2">' + XDPossesive (XD_gsFirstName + ' ' + XDgsLastName) + " X: drive 
<BR>" 

+XDDiskTotal()+" "+XD_gsCapacity+", " 
+XDDiskFree ( ) +" "+XD_gsRemaining 
+ "</thxth align-\"left\">" + 



XDExplorerFont () + '<font si2e= M 2"> , + XDgsSize + "</thxth 
align=\"left\">"+ 

XDExplorerFont ()+'<font size="2">'+ XD_gsLastModif ied + 
"</thx/tr>\n"; 

result += dotag (grove, sStartDirectory, nDepth); 
result += "</TABLE>\n" ; 
XD^_sNewdoc = result; 

show ( ) ; 

//johngaa 11/22/99 

//Highlight bug fix 

if (XD_gsXOffset I! XD_gsYOf f set ) 

{ 

XD_goFrameFileExplorer . scrollTo (XD_gsXOf f set , XD_gsYOf f set ) ; 

} 

//end of johngaa bug fix 
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} 

return returnValue; 

} 

function XDPossesive (name) 
{ 

var length = name . length; 
var lastChar = name . charAt (length- 1 ) ; 
var possesive=name + " *s"; 
if (lastChar == 's') 
{ 

possesive = name + 
} 

return possesive; 

} 

function XDExplorerFont ( ) 
{ 

return ' <font face="verdana, arial, sans">'; 
) 

// constructs the HTML from the file explorer from the parsed XML 

function dotag(tag, path, nDepth) 

{ 

path += + tag. name; 

var result = 1 1 ; 

var sCellColor = new StringO; 

var slconlmage — new StringO; 

var sFolderPointer = new StringO; 

var fileSize - new StringO; 

var fileString = new StringO; 

var sDate; // The last modified date and time stamp 



//johngaa 11/23/99 
//highlight netscape bug fix 
// var sFlipFunction = new String (' parent . parent . parent . flip ( • + 
tag.uid + • ) 1 ) ; 

if (navigator . appName == "Netscape") 
{ 

var sFlipFunction = new String (' parent . parent . parent . flip ( ■ + 
tag.uid + 1 , window. pageXOff set, window .pageYOff set ) '); 
} 

else 
{ 

var sFlipFunction = new String ( 1 parent . parent . parent . flip ( ■ + 
tag.uid + 9 , document . body . scrollLeft, document . body . scrollTop) ' ) ; 

} 

//johngaa orginal 11/22/99 
//highlight netscape bug fix 
//var sSelectToggleFunction = new 
String ( 'parent .parent. parent. XDselectToggle ( 1 + tag.uid + , )'); 
if (navigator .appName == "Netscape") 
{ 

var sSelectToggleFunction = new 
String ( 'parent .parent. parent -XDselectToggle ( • + tag.uid + 
' , window. pageXOf f set , window. page YOf f set ) 1 ) ; 
} 
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else 
{ 

var sSelectToggleFunction = new 
String ( f parent .parent .parent . XDselectToggle ( 1 + tag.uid + 
* , document . body . scrollLef t , document . body. scrollTop) • ) ; 
) 

//end of johngaa bug fix 

// If the object is selected, 

// then add it to the selected arrays 

// and up the selected counts 

// and set the cell color to selected 

//set background color of the cells depending on status: selected, 
move or at rest 

if ( tag . attributes . selected) 
( 

XD_gnSelectedCount=l ; 
sCellColor =XD_gsSelectedColor ; 

XD_gsSelectedList += PathRemovePref ix (path) + '+■; 

if (tag. attributes . folder) 
{ 

XD_gnSelectedFolderCount=l ; 
XD_gnSelectedFolderID = tag.uid; 

XD_gsSelectedFolderList PathRemovePref ix (path) + '+'; 

) 

else 

{ - 



XD_gnSelect edFileCount=l ; 



} 



} 

else if (tag .attributes .move) 
{ 

// ELSE IF, it is set to move, 
// Then change the colors and 
sCellColor - XDgsMoveSelectedColor ; 

} 

else 
{ 

// ELSE, set the cell color to not selected 
sCellColor = XD_gsNot SelectedColor ; 



if (tag. attributes. folder) 
{ 

// SET special graphics and links for folder. 
nDepth++; 

if (tag. attributes - show) 
{ 

if (tag . attributes .move) 
{ 

// The folder is open 

sFolderPointer » '<IMG SRC="' + 
XD_gimgOpenFolderPointer + 999 BORDER="0">\n * ; 

slconlmage = '<IMG SRC= MI + XD_gimgOpen Folder + 
BORDERf n 0" ALIGN="absmiddle" , +"\n\t"+ ' HSPACE="2" VSPACE="0" HEIGHT= ,, 16" 
WIDTH^'IB":^ ; 

} 

else 
{ 
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sFolderPointer = 1 <A HREF= M j avascript : ' + 
sFlipFunction + • ; "XIMG SRC=» • + XD gimgOpenFolderPointer + 
BORDER="0"X/A>\n' ; ~ 

slconlmage = '<IMG SRC-"' + XD gimgOpenFolder + ' " 
BORDER="0 " ALIGN="absmiddle" »+"\n\f + 'HSPACE="2" VSPACE="0" HEIGHT="16» 
WIDTH^'IS'^' ; 

} 

) 

else 
< 

sFolderPointer - • <A HREF=" javascript : 1 + sFlipFunction + 
' ; "><IMG SRC="' + XDjgimgClosedFolderPointer + +»\n"+ ■ 

BORDER="0"X/A>\n» ; 

slconlmage - '<IMG SRC=" ' + XD_gimgFolder + *" BORDER="0 " 
ALIGN-"absmiddle" , + w \n\t M + f HSPACE="2" VSPACE="0" HEIGHT="16" WIDTH= M 16"> ■ ; 

> 

else 
{ 

// This is a file and not a folder so show a FILE icon and do not 
show any + or - 

sFolderPointer = ExplorerBlankFolderPointer ( ) ; 
slconlmage = • <IMG SRC= r " + XD_gimgFile + •» BORDER="0 " 
ALIGN="absmiddle" '+"\n\t"+ 'HSPACE^M" VSPACE="0"> • ; 



if (tag . attributes .size) 
{ 

// SET file size indicator is attribute is present 
^ fileSize = XDExplorerFont () +tag . attributes . size+ ■ k 1 ; 

else 
{ 

fileSize = •   • ; 

} 

if (tag . attributes . lastModif ied) 
{ 

sDate = tag. attributes. lastModif ied; 

} 

else 
{ ' 

sDate = •   1 ; 

) 

if (tag . attributes .move) 
{ 

fileString= slconlmage; 

} 

else 
< 

fileString = '<A HREF=" javascript : ■ + sSelectTogqleFunction + 
•;">•+ ' \n' + slconlmage; 
} 

if ( (tag. attributes. folder) || (! XDAct ion ( 'Move ■) ) || 
(tag. attributes. move) ) 
{ 

// ONLY show IF it is (a folder or not in moving) 
// OR the object is question is being moved, 
result += '<A NAME=" 1 + tag. name + ,M x/AxTR>'; 
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result += 1 <TD BGCOLOR=" 1 + sCellColor + 
valign="absmiddle"xp> ' ; 

result += M \n"; 

result += "\n"; 

result += ^indent (nDepth) ; 

result += sFolderPointer; 

result +=* fileString; 

result += XDExplorerFont ( ) ; 

result +« 1 < FONT SIZE="2"> 1 ; 

result +- tag. name; 

result += *</A></TD>' ; 

result += "\n"; 

result += "\n"; 

result 1 <TD BGCOLOR=" 1 + sCellColor + ' " 

valign="absmiddle"XpXFONT SIZE-^"^ + fileSize + • </FONTX/TD> ' ; 

result += ' <TD BGCOLOR^" * + sCellColor + ' " 
valign="absmiddle"XpxFONT SIZE-"2"> • ; 

result += XDExplorerFont () ; 

result += sDate; 

result += "</FONTx/td>\n"; 



result += , </TR>' ; 
result += "\n"; 



} 



if (tag . attributes . show) 
{ 

for (var i = 0; i < tag. contents . length; i++) 



{ 



the next element 



if (tag . contents [i] . type == "element") 
{ 

// To sort we simply recursivly call ourselves with 
// in the sort order 

result dotag (tag. contents [i J , path, nDepth); 
result +- "\n"; 

) 



} 

} 

return result; 



function ExplorerBlankFolderPointer ( ) 
{ 

return '<IMG SRC—" / images /explorer/ f not . gi f M WIDTH=15 HEIGHT=15 
BORDER=0>\n l ; 
} 

// returns a true if the tag has any children that are selected 
function XDopenChild ( tag, children) 
( 

var result = false; 

if (children) 
{ 

if ( (tag. attributes . selected) I I (tag. attributes .move) ) 
{ 

//added so user can close folder if items are selected 
//deselects item in folder if folder is closed 
tag . attributes . select ed=f alse ; 
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//original 
return true; 



for (var i = 0; i < tag . contents . length; i++) 
{ 

if (tag. contents [i] .type == "element") 
{ 

if (XDopenChild(tag. contents [i] , 1) ) 
{ 

//added so user can close folder if items are selected 
//deselects item in folder if folder is closed 
grove . index [i] . attributes . selected - false; 
return - false; 



//original 
//return true; 

} 

} 



return result; 



} 



function _indent (count) 
{ 

var spaces = 1 • ; 
for <i=0; i<=count; i++) 
{ 

spaces +» *         ' ; 
} 

return spaces; 



// This is called when a item name is clicked, 
// either flipping it open or closed 

//original johngaa 11/23/99 
//highlight netscape bug fix 
//original function flip (id) 
function f lip (id, xof f set, yoffset) 
{ 

//johngaa 11/23/99 
//highlight netscape bug fix 
XD_gsYOffset - yoffset; 
XD_gsXOffset = xoffset; 

//end of johngaa add 
XDresetSelected ( ) ; 

// before closing, check to see if it has selected children. 
// If child is selected, then do not allow to close dir. 
if ( IXDopenChild (grove. index [id] , 0) ) 
{ 

if (grove. index [id] .attributes. show == 1) 
{ 

grove. index [id] . attributes . show = 0; 

) 

else 
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grove. index [id] . attributes. show = 1/ 



BuildExplorer (grove, XD_gsRoot Directory ) ; 
} 

// This is called when an item icon is clicked, causing 
// it to toggle between selected and not selected 

//original johngaa 11/22/99 

//highlight netscape bug fix 

//function XDselectToggle (id) 

function XDselectToggle ( id, xof f set , yof f set ) 

{ 

//johngaa 11/22/99 
//highligt bug fix 
XD_gsYOffset = yoffset; 
XD_gsXOffset = xoffset; 
//end of johngaa bug fix 

// Martin to solve bug where we log in and we get the error grove . index 
// is not an object 
if (! grove. index) 
{ 

return; 
} 



if (id>=0) 
{ 



XDresetSelected() ; 

if (grove. index [id] . attributes . selected) 
{ 



} 

else 
{ 



grove. index [id] .attributes. selected = false; 



XDresetAllSelected ( ) ; 
XD_gnSelectedCount++ ; 

grove. index [id] . attributes . selected ' = true; 
"f (grove. index [id] . attributes . folder ) 

XD_gnSelectedFolderCount++; 

grove. index [id] .attributes. show = 1; 



else 



XD_gnSelectedFileCount++; 



} 

else 
{ 

} 



XDresetAllSelected ( ) ; 



//if this is the page generated directly after a login 
//make XDrive the default and select it 

//then reset variable so we no longer select Xdrive as the default 
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xf (XD__gnLogin==l) 
{ 

grove. index [0] . at tributes . selected=true; 
XD_gnLogin=0; 

} 



//this is called every time the file explorer changes 

//including creates, moves, deletes and renames 

//use a setTimeout for NS on NT because otherwise the 

//browser crashes if there is no wait period 

setTimeout ( "BuildExplorer (grove, XD_gsRootDirectory ) " 50) • 

//BuildExplorer ( grove, XD_gsRootDirectory ) ; 



} 



// function to check to see if the root is selected 
function XDRootSelected ( ) 
{ 

if (grove. index[0] . attributes . selected) 
{ 

return true; 
} 

return false; 



// This sets a selection to a value 
function XDselect (id, value) 
{ 

// Martin to solve bug where we log in and we get the error grove index 
// is not an object 
if (! grove. index) 
{ 

return; 
} 



if (grove. index [id] . attributes . folder ) 
{ 

grove. index [id] .attributes -selected = true; 
grove. index [id] .attributes. show = value; 



// Deselects everything if so that only one thing can be selected 
// at a time, unless the the multipleSelect checkbox from myFrom 
// is selected, 
function XDresetAllSeleeted ( ) 
{ 

var length = grove . index . length; 

for (var i =0; i < length; i++) 
{ 

grove. index [i] .attributes. selected = 0; 

> 



function XDresetAllMovedSelected ( ) 
{ 

// Martin bug fix — after the first login could not show X: drive 
if (! grove. index) 
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{ 

return; 
} 

var length = grove . index . length; 

var oFrame = XD_goFrameUsageInf o; 
for (var i =0; i < length; i++) 
{ 

grove . index [i] . attributes .move = 0; 
} 

} 

// resets the number of selected, called by both flip and XDselectToggle 
function XDreset Selected ( ) 
{ 

XD_gsSelectedList = 1 ' ; 
XD_gnSelectedCount = 0; 
XD__gnSelectedFolderCount — 0; 
XD_gnSelectedFileCount =0 ; 
XD_gsSelectedFolderList - ""; 
} 

function strip (str) 
{ 

var A = new Array (); 

A = str. split ("\n") ; 

str - A. join ("") ; 

A = str. split (" ") ; 

str = A. join("") ; 

A = str .split ("\t") ; 

str = A. join ("") ; 

return str; 
} 

function entity (str) 
{ 

var A = new Array ( ) ; 

A = str. split ("&") ; 
str = A. join ( "& n ) ; 
A = str. split ("<") ; 
str = A . j oin ( " &1 1 ; " ) ; 
A = str .split (">") ; 
str = A. join ("> ") ; 

return str; 
} 

function synch (prev_grove, new_grove) 
{ 

var prev_tag, new_tag, pi, ni; 

if ( ! prev_grove) 
{ 

//set a flag so we know the first time a user logs in 
//there will be no prev_grove in this one case 

//flag is used to show blue bar on XDrive folder only right after 
logging in 

XD_gnLogin=l ; 
return; 
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//NS4.05 doesn't like this syntax 

//change to new syntax 

//if (! prev_grove. attributes) 

if (prev^grove . attributes ! = 1 ' ) 
{ 

return; 
} 

if (! new_grove. contents) 
{ 

return; 
} 

if (prev^grove . attributes . show) 
{ 

pi - 0; 
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for (var ni = 0; ni < new_grove . contents . length; ni++) 
if (new_grove - contents [ni] . type ™ "element") 

if (prev_grove .contents [pi] ) 
< 

prev_tag = prev_grove . contents [pi] ; 



exists before checking them 
properties" errors . 

prev_grove. contents [pi] . attributes; 



if (new_grove. contents [ni] ) 
{ 

new_tag = new_grove . contents [ni ] ; 

} 

if ( (prev_tag) && (new_tag) ) 
{ 

if (prev_tag. name == new_tag . name) 

// Make sure the contents for this object 



// to avoid javascript "has no 

if (prev_grove . contents [pi] ) 
{ 

new_grove . contents [ni ] . attributes = 

} 



new^grove . contents [ni ] ) ; 

} 

pi + + ; 



else if (prev_tag. name > new_tag . name) 
pi+ + ; 

else 

ni++; 

} 

synch (prev_grove . contents [pi ] , 
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var win = external . menuArguments ; 

ExtMen = external . menuArguments; 
ExtMenTag = ExtMen . event . srcElement ; 
ExtMenDoc = ExtMen . document ; 

var url; 



function f indAnchor (el ) { 

while ((el!=null) && ( (el . tagName ! ="A" ) && (el . href !="")) ) 

el = el .parent Element ; 
return el; 

} 



function findUrl() { 
var re; 

var IMGinsideLink = false; 

//alert ("Tag name is " + ExtMenTag . tagName ) ; 

switch ( ExtMenTag- tagName ) { 

// if a "LINK", return the link's URL 

case "A" : 

url = ExtMenTag. href ; 

break; 

case "TD": 

var el = win . document . selection . createRange ( ) ; 
a = f indAnchor (el. parent Element (0) ) ; 
if (a != null) 
{ 

url = a. href; 
} 

break; 

// if it was an image, then this gets complicated; 
case "IMG" : 

b // check all links to make sure we aren't in one: 

for ( count = 0; count < ExtMenDoc . links . length; count ++ ) 
if ( ExtMenDoc. links ( count ). contains ( ExtMenTag ) ) { 
IMGinsideLink = true; 
break; 
} 



// if none was found, return the image URL: 
if ( ! IMGinsideLink ) 

url = ExtMenTag. src; 
else { 

url = ExtMenDoc. links ( count ).href; 

} 

break; 
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default : 

url = ExtMenDoc.href; 

break; 

} 

// Replace " . " 
re = /%2e/g; 

url = url . replace (re, " . " ) ; 

// Replace ": n 
re = /%3A/g; 

url = url . replace (re, "."); 

// See if from hotfiles ZD-Net 
if (url. indexOf ("hotfiles. zdnet") !=-l) 
{ 

var startlndex; 
var endlndex; 

startlndex = url . indexOf ( "ref resh_url=" ) ; 
if (startlndex != -1) 
{ 

startlndex += 12; 

endlndex = url . indexOf ( "&", startlndex); 

if (endlndex != -1) 
{ 

url = url .substring (startlndex, endlndex); 
) 

} 

} 

// see if from "download.com" C-Net 
else if (url.indexOf ("download.com") != -1) 
{ 

var indexHttp; 
var indexFtp; 

indexHttp = url . lastlndexOf ( "http: //" ) ; 
indexFtp = url . lastlndexOf ( "ftp ://") ; 
index = indexHttp; 
if (indexFtp > indexHttp) 
index = indexFtp; 

//alert ( "index is " + index ); 

if (index > 0) 
{ 

var tempUrl; 

tempUrl = url . substr (index) ; 

url = tempUrl; 

} 

> 

} 

findUrlO; 

//alert ("begin") ; 
//alert (url) ; 
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// Call X: Drive to perform actual copy 
xd_skip (url) ; 



237 30 of 76 



BNsnontrv <wn nn^Qim • 



WO 01/33381 



PCT/USOO/30536 



//sec u re_log i n . js 

// 

// Written 12/1/99 
// Description: 

// Allow users to login securely from the start 

// 

// 

function getState ( ) 
{ 

// 

//return the value of the checked item 

//called by checkSubmit 

// 

var state; 

if (document .Login. bSecurityfO] .checked) 
{ 

state = document . Login . bSecurity [0 ] .value; 

> 

else 
{ 

state = document .Login. bSecurity[l] .value; 

} 

return state; 

} 

function checkSubmit ( ) 
{ 

// 

// checks if secure toggle button is pressed or not 
// if it is don't allow the submition of the current 
// form but submit the secureLogin form 
// 

if (getState () == "on") 
{ 

document .secureLogin. user, value - document . Login . user . value ; 
document .secureLogin. pass, value = document . Login . pass . value ; 
document . secureLogin. submit ( ) ; 
return false; 

) 

else 
{ 

return true; 

) 

return false; 

} 



function writeForm() 
{ 

// 

// creates a the secure form 
// 

var fullHostName = XDGetFullHostName ( ) ; 

var cgiAction = "https://" + fullHostName + "/cgi-bin/login . cgi w ; 
var formStr; 

formStr = "<form name=\ "secureLoginV method=\"post\" action=\" H ; 
formStr += cgiAction; 
formStr += "\"> n ; 
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formStr += "<input t ype=\ M hidden\ " name=\"user\" value=\ " \ ">" ; 



formStr += "<input type=\"hidden\ " name=\ "pass\ " value=\"\">"; 
formStr += "<input type=\ "hidden\ " narne=\ "bSecurity \" 
value=\ "on\ ">\n</form>" ; 

document . writeln { formStr ) ; 

} 

function clickSecureState ( ) 
{ 

var tempL = new String (document . location) ; 
var start ~ -1; 

start = tempL. indexOf ("https") ; 

if (start != -1) 

{ 

if (document . Login . bSecurity [ 0 ] .value == "on") 
{ 

document .Login. bSecurity [0] . click () ; 

) 

else 
{ 

document .Login. bSecurity [1] . click () ; 

} 

} 
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//skip.js 

// xd_skip: Popup a skip the download window for the X: Drive skip 

// the download service. 

// 

// Inputs: 

// file_url : the absolute URL of the file to fetch 
// file_name : the name to call the stored file 
// file_size : the file size in KB 
// 

// Outputs: 
// none 

j ^+**+************************************** 

var skipPartner; 
var skipLanguage; 
var height = 200; 
var width = 57 5; 

function xd_change_location (url) 
{ 

document . location-url; 

} 



function xd_skip ( f ile_url, f ile_name, alt_url, catid, gid, sid, langauge, partner) 



var base_url = "http://www.xdrive.com/cgi-bin/skip__the_download.cgi"; 

if (! filename II file__name . length ===== 0) 
{ 

var ii; 

for (ii^O; ii<= file_url . length; ii++) 
{ 

if (file_url.charAt (ii) ~ V) 
{ 

f ile_name = ' ' ; 

} 

else 
{ 

file_name * file_name + f ile_url . charAt (ii ) ; 

) 

} 

} 

var params = ,, FILEURL=" + escape ( file_url) + 
"&FILENAME=" + escape ( file_name ) + 
"&ALTURL=" + escape (alt_url) ; 

if (langauge) { 

skipLangauge - langauge; 

} 

if (partner) { 

skipPartner = partner; 

} 

if (skipPartner) 
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if 



if 



if 



if 



if 



params = params + " & S T D PART N E R— " + escape ( skipPartner ) ; 

(skipLanguage) 

params = params + " & LANG= " + escape (skipLanguage ) ; 

(catid) 

params = params + "&CATID=" + escape (catid) ; 
(gid) 

params = params + "&GID=" + escape (gid) ; 
(sid) 

params = params + "&SID= n + escape (sid); 

skipPartner == 'cnet' ) 

height - 235; 
width = 600; 



} 



url = base_url + "?" + params ; 
var d = new Date ( ) ; 
var name = d. getTime ( ) ; 

window . open 
( 

url, 
name, 



1 toolbar=no,menubar=no, scrollbars=no, f ullscreen=no, resizable=no, width-' + 
width + ' ,height=' + height 
) ; 



return; 
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<SCRIPT LANGUAGE=" JavaScript" 

SRC="ht tp : //www . xdrive . com/ j s /skip . j s "></SCRIPT> 
<SCRIPT LANGUAGE— "JavaScript " defer> 

var win = external .menuArguments ; 

ExtMen = external .menuArguments; 
ExtMenTag = ExtMen . event . srcEl ement ; 
ExtMenDoc = ExtMen . document ; 

var url; 



function f indAnchor (el ) { 

while <(el!=null) && < (el . tagName ! ="A" ) && (el . href !="")) ) 

el = el .parentElement; 
return el; 

} 



function findUrl() { 
var re; 

var IMGinsideLink = false; 

//alert ("Tag name is " + ExtMenTag . tagName ) ; 

switch ( ExtMenTag. tagName ) { 

// if a "LINK", return the link's URL 

case "A" : 

url = ExtMenTag. href ; 

break; 

case "TD" : 

var el = win . document . selection . createRange ( ) ; 
a = f indAnchor (el -parentElement (0) ) ; 
if {a != null) 
{ 

url = a. href; 
) 

break; 

// if it wa s an image, then this gets complicated: 
case "IMG" : 

// check all links to make sure we aren't in one: 
for ( count « 0; count < ExtMenDoc . links . length; count + + ) 
if ( ExtMenDoc. links ( count ). contains ( ExtMenTag ) ) { 
IMGinsideLink = true; 
break; 
} 



//if none was found, return the image URL: 
if { ! IMGinsideLink ) 

url = ExtMenTag. src; 
else { 
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url = ExtMenDoc. links ( count ).href; 

} 

break; 



default : 

url = ExtMenDoc. href ; 

break; 

} 

// Replace 
re = /%2e/g; 

url = url. replace (re, " . " ) ; 

// Replace ": " 
re = /%3A/g; 

url =» url . replace (re, "."); 



// See if from hotfiles ZD-Net 
if (url. indexOf ("hotfiles. zdnet") != -1) 
{ 

var startlndex; 
var endlndex; 



startlndex = url . indexOf ( "ref resh_url=" ) ; 
if (startlndex != -1) 
{ 

startlndex += 12; 

endlndex = url . indexOf ("&" , startlndex); 

if (endlndex != -1) 
{ 

url - url. substring (startlndex, endlndex) ; 
) 

} 

} 

// see if from "download.com" C-Net 
else if (url. indexOf ("download.com") -1) 
{ 

var indexHttp; 
var indexFtp; 

indexHttp = url . lastlndexOf ( "http : //" ) ; 
indexFtp - url . lastlndexOf ( "ftp ://") ; 
index = indexHttp; 
if (indexFtp > indexHttp) 
index = indexFtp; 

//alert ( "index is " + index ); 

if (index > 0) 
{ 

var tempUrl; 

tempUrl = url . substr (index) ; 

url = tempUrl; 

} 



} 



findUrl () ; 
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//alert ("begin") / 
//alert (url) ; 

// Call X: Drive to perform actual copy 

xd_skip (url) ; 

</script> 
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+ 

* Submit. JS: This javascript class is for all the actions associated with 

* buttons. This class may either open a new window or submit an existing 

* form for server parsing. 

************************** ******************************************„ # + + + + „ 

/ 



/+*+*******+************************************************** +++ ^ 

* XDCheckFormlnput ( ) - check upload/rename/create input. 

* if there are errors, give then alert, if not, submit 

+**+++**+**+*********************************^ 

function XDCheckFormlnput ( ) 
{ 

//make sure user is not allowed to upload a blank file 

if (XD_gsAction === •Upload 1 ) 

{ 

sFormName = XD_goFrameFileExplorer . document . form_upload; 

if (sFormName. file__to_upload 01. value « 

{ 

alert (XD_gsAlertUploadEmptyFile) ; 
return false; 

> 

} 

//make sure user cannot create a blank file 

else if (XD__gsAction == 'Create') 

{ 

sFormName = XD_goFrameFileExplorer . document . f orm_create; 

if (sFormName. sFolderNew. value== ' •) 

{ 

alert (XD_gsAlertCreateEmptyFile) ; 
return false; 

} 

} 

else if (XD_gsAction == 'Rename') 
{ 

sFormName = XD_goFrameFileExplorer . document . form_renarae; 

//do not allow user to rename file the same name it already has 

//find just the file name to compare to what was input 

var lastSlash=sFormName. sltemCurrent .value. lastlndexOf ('/'); 

//if this is a folder of user may edit file extensions, use this 

code 

if ( (parent .parent . XDProf ileEditExtensions ) | | 
. (XD_gnSelectedFileCount==0) ) 
{ 

//allow user to edit extensions so check everything after 

the 

//last slash 
var 

f ileName=sFormName . sltemCurrent .value . substring (las tSlash+1 , sFormName . sltemCu 
rrent . value . length) ; 

if (fileName — sFormName . si temNew. value ) 
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{ 

alert (XD_gsAlertRenameSameNarae) ; 
return false; 

} 

} 

else 
{ 

//do not allow user to edit extensions so need to find last 

as well 

var lastDot=sFormName . sltemCurrent . value . last IndexOf { ' . *); 
var 

f ileName=sFormName . sltemCurrent . value . substring (lastSlash+1 , lastDot ) ; 

if (fileName == sFormName . sltemNew. value) 
{ 

alert ( X D_gs Alert Re name Same Name ) ; 
return false; 

} 

) 

//check to see if user is trying to name the file/folder nothing 
//give em an error message if so 
if (sFormName . si temNew. value =- •') 
{ 

alert (XD_gsAlertRenameNothing) ; 
return false; 

} 

} 

else { } 

XD_gsAction = ' ' ; 
//sFormName . submit ( ) ; 
return true; 



function XDSubmitView (sFormName) { 

// Always start by checking the status and if the status is not active 

then 

// return and do not perform any actions. 

//if ( ! XDfunctionStatus (parent .parent . XD_T00LBAR_BUTTON_VIEW) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON_VIEW) ) { 
return false; 

} 

var s Fixed = ' ' ; 

var sFileName = XDSelected ( ) ; 

for (i = 0;i <= sFileName .length; i++ ) { 
if (sFileName. charAt (i) — ' ') { 
sFixed +»»+'; 

} 

else { 

sFixed += sFileName. charAt (i) ; 

} 



// URL encode/escape string 
sFixed = escape (sFixed) ; 

var sURL = ' /cgi-bin/f ile_load . cgi/ ' +sFixed+ * ?sFileCurrent= 1 + sFixed + 
"&source=www . f ileExplorer . view" ; 
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XDReaderShow(sURL, 4 00, 4 00) ; 
return true; 

) 

// Justin's upload status stuff. 

function openUpload ( f orin_check, url, name, f) { 

if ( ! form_check) { 
return false; 

} 

var form_length = f. length; 
var cnt = 0; 

for {var i = 0; i < f. length; i++) { 
var e = f . elements [i ] ; 

if ( (e.type = "file") && {e . value . length > 0) ) { 
cnt++; 

} 

} 

var amp_nof = "&nof="; 
url += amp_nof + cnt; 

msgWindow = 

window, open (url, name, 1 width=350, height=190 , toolbar=no, resize=no, scrollbars=no 

' ) ; 

return true; 

} 

function createRandomID () { 

substr_rand_num. = new String (Math . random ()) ; 

return substr_rand_num. substring (2,14); 

) 

function XDSubmitDownload () 
{ 

// Always start by checking the status and if the status is not 

// active then return and do not perform any actions. 

//if ( ! XDf unctionStatus (parent .parent . XD_TOOLBAR_BUTTON_DOWNLOAD) ) 

if ( ! XDf unctionStatus (XD_T00LBAR_BUTTON_DOWNLOAD) ) 

{ 

return false; 

} 

var sFileName = XDSelected ( ) ; 

var oDocument - XD_goFrameData . document ; 

var sExtraPath; 

sExtraPath - 1 / 1 +sFileName; 

HTMLGenericStart (oDocument) ; 

oDocument .write ( ' <form name="f orrn_download" target="userData" 
method^'POST" action="/cgi-bin/f ile_load. cgi • + sExtraPath + 1 " 
enctype="multipart/form-data"> , +"\n") ; 

oDocument .write ( 1 <input type="hidden" name="sFileCurrent " 
value=" ' +sFileName+ • "> • ) ; 

oDocument .write ( '<input type=" hidden" name="mime" value="download"> • ) ; 

oDocument .write ( ' <input type="hidden" name="source" 
value="www. f ileExplorer . download">' ) ; 
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oDocument. write ( 1 <input type="hidden" name="sFolderCurrent " value-"' + 
XDSelectedFolder { ) +•">»); 

//johngaa test add 12/2/99 

oDocument . write ( T </form> 1 ) ; 

//end of johngaa add 
HTMLGenericEnd (oDocument ) ; 
oDocument . forms [0] . submit { ) ; 
return true; 

} 

function XDSubmitNewFolder (sFormName) 
{ 

var sNewFolderName « prompt (XD_gsRenamePrompt ) ; 
XDFormSetGeneric ( sFormName) ; 

XDFormSetFolderNew (sFormName, sNewFolderName) ; 
sFormName . submit ( ) ; 

} 

/********************** 

* XDItemDelete: Delete an item (no prompting here) 

******+****++****************** + + + + * + + + + + + + + + * + + / 

function XDItemDelete ( ) 
{ 

var sFileName = XDSelectedList ( ) ; 
XDFormSetGeneric (sFormName) ; 
XDFormSetThingName (sFormName) ; 
sFormName. submit () ; 

) 

* XDSubmit Delete: Verify they can delete the selected item and then 

* redirect to a web page that will prompt them to delete.. 

function XDSubmit Delete (sFormName) 
{ 

if (! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD_gsAlertDeleteFolder) ; 
return false; 

} 

location = "delete_prompt.html"; 
return true; 

} 

function XDBuf f erChange (sFormName, sType) 
{ 

// We popup a new window for them to select a folder from 
XDFormSetBuf f erAct ion (sFormName, sType) ; 
parent . parent . XDopenFolderSelectWindow ( ) ; 
XDFormSetSelectedFiles (sFormName) ; 

} 



function XDSubmitBuff erChange (sFolderTo) 
{ 

// This method is being access across frames so we cannot easily pass 
the form name 

//so instead we set a variable equal to what the object would have 

been. 

sFormName = window, frames [XD_gsControl Frame] . document . f ormjbuf f er ; 
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XDFormSetGeneric (sFormName) ; 
XDFormSetFolderNew (sFormName, sFolderTo) ; 
sFormName . submit ( ) ; 

} 

function XDSubmitMove (sFormName) 
{ 

XDFrameMove { ) ; 

BuildExplorer (grove, XD_gsRootDirectory) ; 

} 

/**************************************************************** ++++++ * +++ ^ 
* XDPopupShow: Show a popup browser 

******************************************** ****************************** w 

function XDReaderShow ( sURL, nHeight, nWidth) { 

nWidth = 500; 
nHeight = 600; 

var r = window . open (sURL, "reader", "location^no, toolbar=no, menubar=no, " + 

"status=no, resizable=yes, scrolling=yes, scrollbars=yes, " + 

"width=V+nWidth+",height=="+nHeight) ; 

//*** ma ke sure the opener knows who the parent is 
if (r. opener == null) r. opener = self; 

//*** focus on the newly created window 
//r . focus ( ) ; 

} 

function FrameObject ( ) 
{ 

return XD_goFrameFileExplorer . document ; 

} 

function HTMLGenericStart (oDocument) 
{ 

oDocument .open ("text /html") ; 
oDocument . write ( 1 <html> * ) ; 
oDocument . write ( "<head>\n" ) ; 

oDocument .write( "<link rel=stylesheet href = \/css/style_back . ess 1 
type=' text /ess' >\n") ; 

oDocument .write ( "</head>\n" ) ; 

oDocument .write ( *<body background=" ' + XDBackgroundlmage ( ) + * " 
bgcolor=" f + XDBackgroundColor { ) + '"> , +"\n"); 
oDocument .write ( ' <tablextr> 1 ) ; 

} 

/************************************************************** ************** 
* HTMLGenericEnd: 

************************** **************************************************/ 



function HTMLGenericEnd (oDocument) 
{ 

oDocument . write ( ' </table> 1 ) ; 
oDocument . write ( ' </body>* +"\n") ; 
oDocument . write ( * </html> 1 +"\n") ; 
oDocument . close ( ) ; 

} 
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function XDBuildForm < ) 
{ 

var form = ' ' ; 

var sSubmit Button = • /images/submit . gif • ; 

if (XDAction ( 'Move • ) ) 
{ 

form += '<form name="form_buf fer" action="/cgi- 
bin/buf f er_paste . cgi" • + 

' method="POST" target="centerview" * + 
' parent .parent .parent .XDReset () ; "> • +"\n"; 
form +- *<input type= "hidden" name="sFile " 
value=" ' +XD_gsMoveSelectedList+ • "> * ; 

sSubmitButton = ? /images/move . gif ' ; 
XD_gnFrameHeight = MO*; 

} 

form += *<input type=" hidden" name="sFolderCurrent " value="' + 
XDSelectedFolder ( ) +'">■; 

form += '<input type="hidden" name="type" value="move"> ' ; 
form += '<input type="hidden" name="sItemCurrent " value="">'; 
form += »<input type="hidden" name="sFolderNew" value=" "> • ; 

form += f <p><INPUT TYPE="button" VALUE=" ' + XD_gsButtonSubmit + 
onClick="parent .parent .parent . XDSetMoveForm (document . forms [0] ) ; ">' + 

•<INPUT TYPE="button" VALUE-"' + XD_gsButtonCancel + '" 
onClick="parent. parent. parent. XDReset () ; 
parent . parent . parent . XDRef reshExplorer ();">'+ 
•</td>» ; 
form += , </form>'; 

return form; 

) 

function XDSetMoveForm (oForm) 
{ 

oForm. sit emCurrent . value = XDSelectedToMove { ) ; 
oForm. s Folder New. value - XDSelectedFolder {) ; 

// adding check for target folder 

if (XD_gsSelectedFolderList .length > 0) 

{ 

//check to see if the user is attempting to move the file into 

//the folder it is already in - can't do that 

var slash=oForm. sit emCurrent . value . lastlndexOf ("/"); 

var f ileDirectory=oForm.sItemCurrent . value . substring (0, slash) ; 

if {oForm. sFolderNew. value == f ileDirectory) 
{ 

alert (XD_gsAlertMoveSameFolder) ; 

} 



else 
{ 



// makes sure that the target is not the same as 
// source 

if (oForm. sFolderNew. value ~ oForm. sltemCurrent . value ) 
{ 

alert (XD_gsAlertNoTargetFolder) ; 

} 

else 
< 
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//call reset and submit form only if they can actually move 

the file 

//else they only get the dialog warning box 
XDReset () / 
oForm. submit ( ) ; 
) 

} 

} 

else 
{ 

alert (XD_gsAlertNoTargetFolder ) ; 



} 



_ tt 
— i * 



function XDFormSubmitButtons (generic) 

var HTMLString = 
var FormString = 
var TotalString = ' '; 

// Grab the appropriate HTML 

if (XDAction ( 'Move' ) ) 

{ 

if (XD_gbExtraHelp) 
{ 

HTMLString = XDHelp(XD gsHelpMoveHTML) ; 

} 

FormString = XDBuildForm ( ) ; 
^ return HTMLString + "</TD></TR><TR><TD>" + FormString; 

else if (XDAction ( 'Rename' ) ) 
{ 

i f (XD_gbExt raHelp ) 
{ 

HTMLString = XDHelp(XD gsHelpFolderRename) ; 
> 

} 

else if (XD_gbExtraHelp) 
{ 



if (XD_gnSelectedCount > 0 && ! XDRootSelected ( ) ) 

if (XD_gnSelectedFileCount) 
{ 

HTMLString = XD_gsHelpFileSelected; 



} 

else 
{ 



} 

else 
{ 

HTMLString = XD gsHelpFolderSelected; 

) 



if (XD_gsFirstTime) 
{ 

HTMLString = XD_gsHelpFirstTimeEnter ; 

) 

else 
{ 

HTMLString = XD gsHelpEnter; 

} 
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// Format the help box 
HTMLString = XDHelp ( HTMLString) ; 

} 

if ( ! generic) 
{ 

var sSubmitButton; 

sSubmitButton = 1 /images /submit . gif • ; 
if (XDAction ( ' Rename ' ) ) 

sSubmitButton = XD_gsButtonRename; 
else if (XDAction ( 1 Upload 1 ) ) 

sSubmitButton = XD_gsButtonUpload; 
else if (XDAction { 'Create' ) ) 

sSubmitButton = XD_gsButtonCreate; 
else if (XDAction ( 'Delete' ) ) 

sSubmitButton = XD_gsButtonDelete; 



return 1 <p><input type="submit " value=" ' +sSubmitButton+ * ">\n ' + 
'<input type=button value="' + XD_gsButtonCancel + ' " 

onclick=" ' + 

• parent .parent .parent .XDReset ( ) ; ' + 

•parent .parent .parent .XDRef reshExplorer ( ) ; ">\n</FORM> ' ; 

} 

TotalString = HTMLString -f FormString; 
return TotalString; 

} 

function XDHelp (sHelp) 
{ 

return '<tr><td height=50 bgcolor=" ' + XD_gsExplorerHelpBackgroundColor 
+ '" colspan=3 valign=topXFONT FACE="arial, helvetica" size="-l" 
color="#666666"xb> ' + XD_gsInstruct ions + '</b>\n' + sHelp + ' \n</tdx/tr>; ' ; 
} 



***************** 

* XDFrameShare : Share a file with another user 
******************************************************* 

function XDFrameShare { ) 
{ 

//if ( ! XDfunctionStatus (parent .^parent . Xp_TOOLBAR_J3UTTON_SHARE) ) 
if (! XDfunctionStatus (XD_TOOLBAR__BUTTON_SHARE) ) 
{ 

return false; 
} 

var sFile = XDEscapeCharacters (XDSelected ( ) ) ; 
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frames [ ' centervieW ] . document . location = ■ /cgi- 
bin/share_a_f ile . cgi?help=* + 

XD_gbExtraHelp + ■ &sFi leName= * + sFile; 
return true; 

} 

function XDCheck (sName) 
< 

^ return "if (! XDAllowChange ( "+sName+ " ) {return false;)"; 

function XDSelectedThingName ( ) 
{ 

var r = ' • ; 

var s = XDSelectedO ; 

for (var i=0; i<s . length; ++i ) 

{ 

var ch=s.charAt (i) ; 

if (ch == »/' ) 

{ 

r = 

} 

else 
{ 

r += ch; 

} 

} 

return r; 

} 

function XDSelectedThingNameMinusExtension O 
{ 

var r = ' ' ; 

var b = false; // found first time 
var s = XDSelectedThingName () ; 
for (var i=s . length; i>=0; — i) 
{ 

var ch=s. charAt (i) ; 
if (ch ==».■&&! b) 

{ 

b = true; 
r = "; 

) 

else 
{ 

r = ch + r; 

} 

} 

return r; 

> 

function XDSelectedThingNameExtension ( ) 
var r = ' f ; 

var s = XDSelectedThingName () ; 

var bFoundDot = false; 

for (var i=0; i<s . length; ++i) 

< 

var ch = s.charAt(i); 

if (ch == ' . ■ ) 

{ 

r = 

bFoundDot = true; 
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} 

else 
{ 

r += ch; 

} 

if (bFoundDot == true) 
return ' . 1 +r ; 

else 

return 1 ■ ; 

} 

/*********************************************** ***^^ 

* XDFrameUpload: Refresh the action frame with a form to perform the file 

* upload and set the form values during the HTML creation itself. 

****************************************************** 

function XDFrameUpload (sCurrent Folder) 
{ 

//if { ! XDfunctionStatus (parent . parent . XD_TOOLBAR_BUTTON_UPLOAD) ) 

if ( ! XDfunctionStatus ( X D_TOOLBAR_BUTTON_U PLOAD ) ) 

{ 

return false; 

} 

XDActionStart ( 'Upload 1 ) ; 
XD_gnFrameHeight =» 'T; 

frames [ ' centerview 1 ] .document .location =» XDCenterView () ; 
return true; 

) 

function XDFrameFolderNew () 
{ 

//if ( 'XDfunctionStatus (parent . parent . XD_TOOLBAR_BUTTON_NEW FOLDER) ) 

if ( ! XDfunctionStatus (XD_TOOLBAR_BUTTON_NEW FOLDER) ) 

{ 

return false; 

} 

XDActionStart ( • Create ' ) ; 
XD_gnFrameHeight = ' 1 ■ ; 

frames [ 1 centerview ' ] . document . location = XDCenterView () ; 
return true; 

} 

function XDFrameRename ( ) 
{ 

if (! XDAllowChange(XDSelected() ) ) 
{ 

alert (XD_gsAlert RenameFolder ) ; 
return false; 

> 

//if ( ! XDfunctionStatus (parent .parent . XD_TOOLBAR_BUTTON_RENAME) ) 

if ( ! XDfunctionStatus (XDJT0OLBAR_BUTTON_RENAME) ) 

{ 

return false; 

} 
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XDActionStart (' Rename • ) ; 
XD_gnFrameHeight = '1'; 

frames [ ' centerview • ] . document . location = XDCenterView () • 
return true; ' 

) 

function XDFrameDeletePrompt ( ) 

if (! XDAllowChange(XDSelected() ) ) 
{ 

alert (XD_gsAlertDeleteFolder ) ; 
return false; 

) 

//if (! XDfunctionStatus (parent. parent. XDJTOOLBAR BUTTON DELETE) ) 
ir {! XDfunctionStatus (XD_T0OLBAR_BUTT0N_DELETE) )~ 

return false; 

} 

XDActionStart ( 1 Delete 1 ) ; 
XD__gnFrameHeight = ' l f ; 

frames [ • centerview • ] . document . location = XDCenterView f ) • 
return true; 



} 

function XDsetSelectedToMove { tag) 

if (tag. attributes . selected) 
{ 

tag. attributes . selected = 0; 
tag . attributes .move = 1; 

} 

for (var i = 0; i < tag . contents . length; i++) 
if (tag. contents [i] .type == "element") 

XDsetSelectedToMove (tag. contents [i] ) ; 

} 

) 

function XDFrameMove ( ) 
{ 

if (! XDAllowChange (XDSelected ( ) ) ) 

alert <XD_gsAlertMoveFolder) ; 
return false; 

) 

// XXX 

XD_gsMoveSelectedList = XD_gsSelectedList ; 
XD_gsSelectedList = ""; 
XDsetSelectedToMove (grove) ; 

XDActionStart ( 'Move* ) ; 
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XD_gnFrameHeight = 'l 1 ; 

frames [ ' centerview ' ] .document. location = XDCenterView ( ) ; 
return true; 



/*********************** **************************************************** 

* XDBrowserDownloadSupported: Returns true if the browser supports the 

* download button. This includes all Netscape versions and IE 5 or later. 

*************************************** *************************************/ 

function XDBrowserDownloadSupported ( ) 
{ 

return !( (navigator . appName == "Microsoft Internet Explorer") && 
(parselnt (navigator .appVersion) <= 4 )); 

) 

function XDProf ile ( f orm) 
{ 

XDProf ileEditExtensions = form. elements [ * bFileExtEdit ■ ] .checked; 
XD_gbExtraHelp « form. elements [ 1 bExtraHelp 1 ]. checked; 
XD_gbMarketing = form. elements [• bMarketing 1 ]. checked; 
XD_gbNewsletter = form. elements [ ■ bNewsletter • ]. checked; 

} 

function XDLogout ( ) 
{ 

var sUrl = • /cgi-bin/logout . cgi • ; 
parent .parent. location. href = sUrl; 
} 

/******************************************* ********************************* 
* 

* XDSelected: Return the currently selected file or folder and remove the 

* plus that appears at then end — used the separate elements in a multi 

* file/folder list. 



/ 

function XDSelected () 
{ 

return XD_gsSelectedList . substring (0, XD_gsSelectedList . length-1 ) ; 
} 

function XDSelectedFolder ( ) 
{ 

alert (XD_gsLengthof Folder + XD__gsSelectedFolderList . length) ; 
return 

XD_gsSelectedFolderList . substring (0, XD_gsSelectedFolderList . length-1) ; 

function XDSelectedToMove ( ) 
{ 

return 

XD_gsMoveSelectedList . substring (0, XD_gsMoveSelectedList . length-1 ) ; 
} 

/******************************* ******************************** + *^^ + *** +++ifc+ 

* XDCleanupPath: Cleanup the passed path by removing the "/X: drive/" prefix 

* and the + postfix. 

********************************** **************************** +#+lfr ^ A ^^ ++ ^ + ^ +/ 
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function XDPathCleanup (sPath) 
{ 

var sCopy = sPath; 

sCopy = sCopy. substring(9, sCopy. length) 
//sCopy = sCopy. substring (0, sCopy . length- 1 ) ; 
return sCopy; 
} 

function XDDomain () 
{ 

baseAddress = java . net . InetAddress . getLocalHost { ) ; 
userDomain = baseAddress . getHostName () ; 
alert (userDomain . toString { ) ) ; 
} 

function XDXdrive () 
{ 

XDDomain ( ) ; 

return • /cgi-bin/explorer_user_data . cgi ' ; 
} 

function XDCenterView () 
{ 

return * /cgi- 

bin/f rame_generic . cgi?thtml=centerview. thtml&sFrameHeight= ' + 
XD_gn Frame Height ; 
} 



function XDReset () 
{ 

XD_gnSelectedCount = 0; 
XD_gnSelectedFileCount = 0; 
XD_gnSelectedFolderCount = 0; 
XD_gsSelectedList = ""; 
XD__gnSelectedFolderID = ■ •; 
XD_gsMoveSelectedList = 
XD_gsSelectedFolderList = ""; 
XD_gsTarget Folder = 
ControlsEnabled - true; 
XDresetAllMovedSelected ( ) ; 
XDActionEnd{) ; 
} 



f| sFolder == 'public' II sFolder 



function XDAllowChange (sFolder) 
{ 

if (sFolder == ' • | | sFolder == 
=== 'private') 

{ 

return false; 
} 

return true; 
} 

function XDAction (sAction) 
{ 

if (XD_gsAction sAction) 
{ 

return true; 
} 

return false; 
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// Register a new action 
function XDActionStart (sAction) 
{ 

XD_gsAction = sAction; 
) 

// Clear the current action 
function XDActionEnd () 
{ 

XD_gsAction = • 1 ; 
} 

function XDRef reshExplorer ( ) 
f 

//reset the action before calling this function 
//or the action screen will be drawn 
XDActionEnd () ; 
XD_gnFrameHeight = 1 40' ; 

//also reset if a move has been started but never finished 
XDresetAllMovedSelected{ ) ; 
^ frames [ 'centerview'] . document . locat ion=XDCenterView { ) ; 

function XDGetButtonFrameHeight (oDocument ) 

oDocument. open ("text /html") ; 

oDocument . write (XD_goButtonFrameHeight ) ; 

oDocument . close; 

} 

function XDSetButtonFrameHeight (height) 
^ XD_gnButtonFrameHeight=height; 

/**************** ****************^ 

** XDRefreshBanner: Refresh the banner with a new advertisment 
**************** *****************^ 

function XDRefreshBanner!) 
{ 

if (XDBannerOn ( ) ) 
{ 

frames [ 'banner 1 ] . document . location = • /cgi-bin/ads . cgi 1 ; 
// WIP; parent 3 twice removed (from the above line) 

) 

/*********** ***************************************** ************^^ 

XDBannerOn: Return true if we should display the banner. 
**************** + + + * + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ^^^^^ ^ ^ 

function XDBannerOn ( ) 
{ 

if (XD_gsPartner == 1 xdrv') 
{ 

return true; 
} 

else 

{ 

return false; 
} 

) 

51 of 76 

258 



3NSDOCID: <WO 



WO 01/33381 



PCT/US00/30536 



function XDTellAFriend ( ) 
{ 

var sUrl = ' /cgi- 
bin/tell_a_f riend. cgi?numFriends= 1 +XD_gnNumFriendsToTell ; 
frames [ * centerview' ] .document . location=sUrl ; 

} 

function XDAddSpace ( ) 
{ 

var sUrl = ' /cgi-bin/addspace . cgi?action=intro • ; 
frames [ 'centerview 1 ] . document . locat ion=sUrl ; 

} 

function XDDownloadClient ( ) 
{ 

var sUrl = 1 /cgi-bin/download_client . cgi ' ; 
frames [ 'centerview' ] .document. location=sUrl; 

} 
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//uploadStatus.js 

< ! — 

function openUpload < f orm_check, url, name, f) { 

if { ! form__check) { 
return false; 

} 

var form_length = f. length; 
var cnt = 0 ; 

for {var i = 0; i < f. length; i++) { 
var e = f. elements [i] ; 

if { (e.type == "file") ( e . value . length > 0) ) { 

cnt++; 

} 

) 

var amp_nof = "&nof="; 
url += amp_nof + cnt; 

msgWindow = 

window, open (url, name, ' width=350, height=190, toolbar=no, resizes, scrollbars=n 



return true; 

} 

function createRandomID () { 

substr_rand__num = new String (Math . random ()) ; 

return substr_rand__num. substring (2, 14) ; 



//--> 
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//utils.js 

/** ********* ************** ************************************************** 

* XDFormSetThingName: Set the name for the thing in the passed form 

************************** ************************* *** ++ ^ +++ +++ ^,,; ++ ^^^ +++ ^ 

function XDFormSetThingName (sFormName) 
{ 

sFormName . sThingName . value = XDSelectedList () ; 

function XDFormSetBuf f erAct ion { sFormName, sType) 

sFormName . type . value = sType; 
} 

function XDFormSet FolderCurrent (sFormName) 
{ 

sFormName. s FolderCurrent. value = XDSelectedFolder ( ) ; 

function XDFormSet SelectedFiles (sFormName) 
{ 

sFormName. sFile. value = XDSelectedList () ; 
) 

function XDFormSet FolderNew ( sFormName, sFolderNameNew) 

sFormName. sFolderNew. value = sFolderNameNew; 
) 

/*************************************************** ^ 

* XDFormSet ThingOld: Set the old name attribute for the rename CGI. 
********************** ****************************** ******* lfr + + + + + iArifr + ^ + ^ it + iir + + / 

function XDFormSet ThingOld (sFormName, sThingName) 
sFormName. sThingNameOld. value = sThingName; 

/************************** ********************************* 

* XDFormSetThingNew: Set the new name attribute for the rename CGI. 
*************************************************** ***^^ 

function XDFormSetThingNew ( sFormName, sThingName) 
sFormName. sThingNameNew. value = sThingName; 

function XDFormSetGeneric (sFormName) 
{ 

XDFormSet FolderCurrent (sFormName) ; 
} 

/************************ **************************************** ** ++ **^* + ^^ + 

* XDPopupShow: Show a popup browser 



function XDPopupShow ( 

sURL, //*** (i) The URL to open in the popup window 
nHeight, //*** (i) The height of the popup 
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nWidth) //*** (i) The width of the popup 

var w = window.openlsURL, "viewer", "location-no, toolbar-no.nienubar-no, " + 
status-no, resizable-yes, scrolling=yes, scrollbars=no # 
"width="+nWidth+",height="+nHeight) ; 

//*** make sure the opener knows who the parent is 
if (w. opener «» null) w. opener = self; 

//*** focus on the newly created window 

w. focus ( ) ; 

} 

function XDSelectedList ( ) 
{ 

return XD_gsSelectedList ; 
} 

function XDBackgroundColor ( ) 
{ 

return XD_gsExplorerBackgroundColor ; 
} 

function XDBackgroundlmage ( ) 
{ 

return XD_gsBackgroundImage; 
} 

function XDSelectedFolder ( ) 
{ 

return 

XD_gsSelectedFolderList . substring (0, XD_gsSelectedFolderList . length-1 ) ; 
/*********************************************** ^ 

* XDCleanupPath: Cleanup the passed path by removing the "/X:drive/'» prefix 

* and the + postfix. H 
*********** ***************************************************** *** + + ^^ + + + + + / 
function XDPathCleanup (sPath) 

{ 

var sCopy « sPath; 

sCopy = sCopy. substring (9, sCopy. length) 

//sCopy = sCopy. substring (0, sCopy. length-1 ) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
{ 

if (sValue != 'null' && sValue != "") 
{ 

m_sMultiSelect = sValue; 
} 

else 

{ 

return m__sMulti Select ; 
} 

} 

function HTMLNavigation () 
{ 

var sHTML = HTMLStartO 

+ '<table width="100%" border="0" cellspacina= , '0 ,, 
cellpadding^O";^ 

55 of 76 

262 



3NSDOCID: <WO nimmui ( > 



WO 01/33381 PCT/US00/30536 

+'<tr align="left n valign=" top" bgcolor="#5EB114 "> ■ 
+ 1 <tdximg src= , Vimages/main/logo_top. gif " width="153" 
height="28"x/td> • 

+ • </tr><tr> 1 

+ ' <td><img src=" /images /ma in/logo_center . gif" width= M 171 " 
height="97" alt="X : drive" x/td> r 
+ 1 </trxtr> • 

+ ■ <tdximg src=" /images /ma in/race_logo_bot torn, gif " 
width="171" height="3S"x/td>' 

+ 1 </trx/table>' 

+'<a target="toolbar" href="http : //www.mit . edu">MIT</a> • 

+ ■ </BODY>\n</HTML> • ; 
return sHTML; 
} 

function HTMLStart () 
{ 

return "<HTML>\n" 

+'<body bgcolor="#6961AB" topmargin="0 " lef tmargin="0" marginheight="0 " 
marginwidth="0" text="#FFFFFF" link="#FFFFFF" {onload}>' 
+"\n"; 
} 

function HTMLEnd () 
{ 

return 11 \n</BODY>\n</HTML>\n" ; 
) 

function RedrawToolBar ( ) 
{ 

var sWindow = ■ window. toolbar ' ; 

sWindow. document .write (HTMLStart ( ) + • test • +HTMLEnd ( ) ) ; 
) 

function XDEscapeCharacters (str) 
{ 

var A = new Array (); 

A = str. split ("+") ; 
str = A. join ( "%2B" ) ; 

A = str. split (" ") ; 
str = A. join ( " + " ) ; 

A = str .split ("%"); 
str - A. join ("%25") ; 

A = str. split ("&"); 
str - A. join ( "%2 6" ) ; 

return str; 

) 
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//verify_lib.js 

<!-- Begin Hiding from older browsers 

/ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 

*** Javascript library of functions commonly 

*** used in HTML forms. 

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 

validateForm ( form) 

attaches to the submit button and takes the 
form as an argument. Validates all the 
fields and will only let the form be submitted 
if all the fields validate. 

checkForm ( ) 

attaches to nothing. Is used by the script 
internally to allow compel ( ) to function w/o 
calling alert () , which would cause an infinite 
loop . 

requireElements (num) 

attaches to onLoad to initialize the array 
of required fields in the form. 

addRequiredElements ( ) 

attaches to nothing. Is used internally to 
construct a array of the names of all the 
required fields in a form. For this to work 
the form needs a "requiredElements" hidden 
input tag. It should be of this format: 

<INPUT TYPE="hidden" NAME="requiredElements " VALUE=" name : email : "> 

List the required field names in order that 
they appear in the form. End each name with 
a ' : • and lead the whole value with a blank 
space. If this tag is not used, then 
validateRequiredElements will identify a 
missing required field by its number in liue 
of the name . 

compel (textf ield) 

attaches to an onBlur event on a textfield. 
This causes focus to be kept on a textfield 
until checkForm () determines that they user 
has filled it out correctly. 

required (textf ield, num) 

attached to an onBlur of a field is required. 
The number is it's location on the 
required_elements array, i.e. 

<INPUT TYPE="text" NAME="name" onBlur="required { this, 0) "> 

This tag declairs "name" as the first 
required field in the form. 

validatePhone (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
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validateEmail (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains an @ 

validateDate (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a date in 
the format DD-MON-RRRR 

validateDate_old (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a date in 
the format DD/MM/YY 

validateNum ( textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a number 
between -1 and infinity 

validateMoney (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a number 
between with two decimal places (ie 2.56) 

conf irmDelete (textfield) 

attaches to an onClick on a submit button 
used as a delete button that you want the 
user to confirm before engaging. 

reset_b ( ) 

attaches to an onClick on a submit button. 
If you have a reset button, used conf irmDelete 
or have a button that needs to override the 
validity of the form, this function should 
be attached to these buttons to allow them 
to function . 



emailOK = true; 
phoneOK = true; 
dateOK - true; 
lengthOK = true; 
all_numOK = true; 

all_moneyOK = true; , 
deleteOK = true; 
yearOK = true; 

required_elements - new Array (); 
required_elements_names = new Array () ; 
blurred - ""; 
in_required = false; 
submitted = false; 
var submitCount; 
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runction va lidate Form ( form) { 

addRequiredElements ( form) ; 
if (!emailOK) { 
alert (XD_gsValidateEmail ) ; 
return false; 
} else if HphoneOK) { 
alert (XD_gsValidatePhone) ; 
return false; 
} else if ( !dateOK) ( 
alert (XD_gsValidateDate) ; 
return false; 
} else if (JlengthOK) { 
alert <XD_gsValidateLength) ; 
return false; 
} else if (!all_numOK) { 
alert (XD_gsValidateNumber ) ; 
return false; 
} else if ( ! all_moneyOK) { 
alert (XD_gsValidateMoney) ; 
return false; 
) else if ( JyearOK) { 
alert (XD_gsValidateYear ) ; 
return false; 
) else if (ideleteOK) { 
return false; 

) else if ( ! validateRequiredElements () ) f 
return false; 

} 



function compel (textfield) { 
if (blurred == "") { 
^ blurred = textfield; 

if { !checkForm() ) { 
blurred. focus ( ) ; 
blurred . select ( ) 

} 

if (checkForm() && ! in_required) { 
blurred = ""; 

} 

) 



function checkForm() { 
if ( lemailOK) { 

return false; 
} else if ( JphoneOK) { 
return false; 
) else if ( JdateOK) { 

return false; 
) else if ( !lengthOK) { 

return false; 
) else if ( !all_numOK) ( 

return false; 
} else if ( !all_moneyOK) { 

return false; 
} else if ( !yearOK) { 

return false; 
} else if ( ideleteOK) { 
return false; 
} else { 

return true; 
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function requireElements (num) { 
var i; 

for (i=0; i < num; { 

required_elements [i] = false; 

} 



function addRequiredElement s ( f orm) { 
var found = false; 

for (var n=0; n < form. length; n++) { 

if ( form. elements [n] . name =- "requiredElements") { 
found — true; 

} 

} 

if (found) { 

var length =* form. requiredElement s . value . length; 
var start_index =0; 
var end_index = 0; 
var num = 0 ; 

for (var i=0; i < length; i++) { 

var theChar = form. requiredElements . value . charAt (i) ; 
if (theChar -=":"){ 

start_index = end_index + 1; 

end_index = i; 

var string = 

form. requiredElements . value . substring (start_index, end_index) ; 

num = required_elements_names . length; 
required__elements_naraes [num] = string; 

} // end of if " : " 
} //end for loop 
} // end of found 

} 



//check to see if the year is a 4-digit value greater than 1900 

function validateYear (textfield) 

{ 

yearOK = true; 

//make sure the file contains only numbers 
for (var n=0; n < text field. value . length; n++) 
{ 

var theChar = text field . value . charAt (n) ; 
if ((theChar >= "0") && (theChar <= "9")) 

{ 

//do nothing, assume it's still true 

} 

else 
{ 

//contains non numeric elements 
yearOK=f alse; 

} 

} 

if (!yearOK) 
{ 
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if (textfield. value < 1900) 
{ 

yearOK = false; 

alert (XD_gsValidateGreaterl900 ) ; 



if (textfield. value. length != 4) 
{ 

yearOK = false; 

-alert (XD_gsValidateFourDigit s ) ; 



// Checks for a properly formated email 
function validateEmail (textfield) 

emailOK = true; 



if ((textfield. value == "») || ( text field .value . indexOf ( »@ » ) < 0) 

emailOK = falser- 
alert (XD_gsValidateEmailFormat) ; 
return false; 

} 

return true; 
} 



function required (textfield, num) 

var alert^show » false; 
in_required = true; 
if (blurred "") 
{ 

alert_show = true; 
blurred = textfield; 

} 



if (textfield. type "select-one") 

//if the first option is chosen, assume that is not a real 

//choice, simply a default 

if (textfield. selectedlndex == 0) 

{ 

if (alert_show) 
{ 

„ alert <XD_gsValidateField + text field . name + 

XD _gsValidateRequired) ; 

} 

blurred . focus ( ) ; 

blurred . select ( ) ; 

required_elements [num] = false; 
)//end if selectedlndex empty 
else if (textfield. selectedlndex > 0) 

blurred = 

required_elements [num] = true; 
in_required = false; 
}//end else 
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if (textfield. type == "text" II text field . type — "textarea" II 
textf ield. type == "password") 
{ 

if (textf ield .value . length==0) 
{ 

if (alert_show) 
{ 

alert (XD__gsValidateField + blurred. name + 
XD_gsValidateRequired) ; 

)//end alert_show 
blurred. focus < ) ; 
blurred. select () ; 
required_elements [nuxn) = false; 
} //end if length empty 
else if (textf ield. value . length > 0) 
{ 

blurred = ""; 

required_elements [nuiti] = true; 
in_required = false; 
) //end else 
} //end if text 

} 



function validateRequiredElements ( ) { 

var length = required^elements . length; 
for (var i = 0; i < length; i++) { 
if ( !required_elements [i] ) { 

if (required_elements_names [i] ==""){ 
alert (XD_gsValidateAllRequiredField + i + 
XDgsValidateNotFilled) ; 

return false; 
} else { 

alert (required_elements_names [i] + XD_gsValidateNot Filled) ; 
return false; 

) 

} // end of false element 
) // end of array 
return true; 

} 



function validatePhone (textf ield) { 
phoneOK=t rue ; 
var digits = 0; 

//Number can only contains ten digits and proper characters 
for (var' i =0; i < textf ield. value . length; i + + ) { 
var theChar » textf ield. value . charAt ( i) ; 
if ((theChar. >= "0") && (theChar <= "9")) { 
digits++; 
continue; 

} 

if (theChar == " ") continue; 
if (theChar == "-") continue; 
if (theChar == "(") continue; 
if (theChar == ")") continue; 

//else 
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phoneOK = false; 
} //end for 

phoneOK = phoneOK && (digits 10); 
if (text field. value == "") { 
phoneOK = true; 

} 

if ( ! phoneOK) { 

alert (XD gsValidatePhoneFormat ) ; 

} 

return phoneOK; 



"0") ) 



'0") } 



"0") > 



"0") ) 



■0") ) 



< "0") 



//Check that the date is in the form of DD-MON-YY 
function validateDate(textfield) { 
dateOK=true; 

if < (textfield. value. charAt(O) > "3") ,, ( textfield . value . charAt ( 0) < 



(textf ield. value. charAt (0) < 



dateOK=f alse; 

if ( (textf ield. value . charAt ( 1) > "9") 
dateOK=false; 

if ((textfield. value. charAt (7) > » 9 ») ,, (text field . value . charAt ( 7 ) < 
dateOK=false; 

if ((textfield. value. charAt (8) > "9") || (textf ield. value . charAt (8 ) < 
dateOK-false; 

if ((textfield. value. charAt (9) > "9") || (text field. value . charAt ( 9) < 
dateOK=false; 

if ((textfield. value. charAt (10.) > "9") || (textf ield. value. charAt (10) 
dateOK=false; 



if (textf ield. value. charAt (2) '= 
dateOK=false; 



') { 



if (textfield. value. charAt (6) != "-") { 
dateOK=false; 



var month = textfield. value. substring (3, 6) ; 
month = month. toUpperCase () ; 

if (! (month "JAN" || month "FEB" II 
month == "MAR" j | month "APR" | | 
month == "MAY" | | month 
month == "JUL" | | month 
month « "SEP" J | month 
month == "NOV" | | month 
dateOK= false; 

> 

if (textf ield. value == "") { 
dateOK = true; 

} 

if (i dateOK) { 

alert <XD_gsValidateDateFormat ) ; 



"JUN" | | 
"AUG" | | 
"OCT" | | 
"DEC") ) { 
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} 



//Check that the date is in the form of DD/MM/YY 
function validateDate__old { text field) { 
dateOK=true; 

if ( (textfield. value. charAt (0) > "9") l| { text field . value . charAt ( 0 ) < 



"0")) { 



'0")) { 



"0")) ( 
"0")) { 

} 

"0")) { 
"0")-) { 



dateOK= false; 

} 

if ( {textfield. value. charAt (1) > "9") || (textfield . value . charAt < 0 ) < 
dateOK=false; 

} 

if (textfield. value. charAt (2) != "/"){ 
dateOK=f alse; 

} 

if ( (textfield. value. charAt (3) > "3") I I ( textfield . value . charAt ( 3 } < 
dateOK=false; 

} 

if ( (textfield. value. charAt (4) > "9") II (textfield . value . charAt ( 4 ) < 
dateOK=f alse; 

} 

if (textfield. value. charAt (5) != "/"){ 
dateOK=false; 

if ( (textfield. value. charAt (6) > "9") I I ( textfield . value . charAt ( 7 ) < 
dateOK=f alse; 

} 

if ( (textfield. value. charAt (7) > "9") I! { textfield . value . charAt (7 ) < 
dateOK=f alse; 

} 

if (textfield. value == ,f ") { 
dateOK = true; 

} 

if (IdateOK) { 

alert (XDgsValidateDateFormat ) ; 

) 



// checks to see that the textfield contains only numbers 

function validateNum (text field) 

{ 

all_numOK = true; 

for (var i=0; i < textfield. value . length; i++) 
{ 

var theChar = textfield . value . charAt ( i ) ; 
if ((theChar < "0") I I (theChar > "9")) 
{ 

if (textfield. value != "-1") 
{ 

all_numOK = false; 
alert (XD_gsValidateContainNums) ; 
break; 
) // end of if not - 
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} //end if not # 
} //end for 

return all_numOK; 

// checks to see that the textfield contains two decimal places 
function valida teMoney ( text field) { 

all_moneyOK = true; 

for (var i=0; i < textfield . value . length; i++) { 
var theChar = text field . value . charAt (i ) ; 
if {(theChar < "0") I I (theChar > "9")) { 
if (theChar !=".») { 

all_moneyOK = false; 
alert (XDjgsValidateMoneyFormat ) ; 
break; 

} 

} //end if not # 
} //end for 



} 



return all__moneyOK; 



function validateLength ( text field, len) 
{ 

lengthOK = true; 

if (textfield. value . length < len) 
{ 

lengthOK = false; 

alert (textfield. name + XD_gsValidateLengthFormat + len + 
XD_gsValidateChars) ; 
) 

} 

// attache to delete buttons to confirm 
function conf irmDelete ( text field) { 

deleteOK = conf irm ( text field . value + Are you sure?"); 

// attache to other buttons, such as add, to allow them to submit 
// after a failed delete confirm 
function reset_b() { 
deleteOK - true; 
emailOK =*true; 
phoneOK = true; 
dateOK = true; 
lengthOK = true; 
yearOK =» true; 
all_numOK = true; 
deleteOK = true; 
var length = required_elements . length; 
for (var i=0; i < length; i++) { 

required_elements [ i] = true; 

) 

} 

// a function to error check with 
function test ( ) { 
alert ("Testing! M ) 
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} 

// checks to see that the textfield contains only numbers and is 
//between 13 and 16 characters in length 

function validateLengthandlnput (textfield, minLength, maxLength, dateType) 
all_numOK = true; 

if ( (textfield. value. length<minLength) | | 
(textfield. value. length>maxLength) ) 

all_numOK = false; 

if (minLength ~ maxLength) 
{ 

if (dateType "ExpDate") { 
alert (XD_gsValidateExpDateFormat ) ; 

} 

else { 

alert (XD__gsValidate Date Format + maxLenqth + 
XD_gsValidat eChars ) ; 

} 

} 

else 
{ 

alert (XD_gsValidateCard + minLength + XD qsValidateAnd + 
maxLength + XD_gsValidateChars ) ; 
} 

return all_numOK; 

} 

for (var i=0; i < text field. value . length; i++) 

var theChar = textfield. value . charAt (i) ; 
if ((theChar < "0") j| (theChar > "9")) 

if {textfield. value != "-1") 
( 

all_numOK = false; 
alert (XD_gsValidat eContainNums ) ; 
break; 
} // end of if not - 
} //end if not # 
} //end for 

return all_numOK; 

} 

function checkRequired ( f orm) 
{ 

var complete = true; 

var length = form. elements. length; 

addRequiredElements (form) ; 
for (var i=0; Klength; i++) 
{ 

for (var j-0; j < required_element s_names . length; j++) 

if ( form. elements [i] .name required_elements - names [ j ] ) 
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if ( (form. elements [i] . type == "text") II 

( form. elements [i] . type — "password") II 
{ form. elements [i] . type — "textarea") 

) 

{ 

if .(form. elements [i] .value ' ') 

{ 

complete = false; 
break; 

} 

} 

else if ( form . elements [ i ]. type == "select-one") 
{ 

if ( form . elements [i] . selectedlndex — 0) 
{ 

complete = false; 
break; 

} 



else 
{ 

//don't worry about radio button 

} 



} 

} 

if ( ! complete) 
{ 

//Temp bug fix: could not read any variable from english_text . j s 
(scope problem?) 

//was : alert (XD_gsValidateAllRequired) 

alert ("A required field is not filled out. Please make sure 
all required fields are filled out before hitting submit."); 
return false; 

} 

else 
{ 

/* 

Check if we've already submitted 
*/ 

if ( ! submitted) 
{ 

submitted = true; 

submitCount =0; 
//took this line out because it was breaking IE 
// and it's not used for submitting the form anyway 

//form. submit () ; 

return true; 

) 

} 



submitCount += 1; 



{ 

var gender = f 
var message = 
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if { form. gender . value == "1" II form . gender . value "2") 
{ 

var gender; 

if ( form. gender . value == "1") 
{ 

gender = "Dude" 

) 

else 
{ 

gender = "Lady" 

} 

} 

if (submitCount — 2) 
{ 

message - " Hey " + gender + " give me a second while I send 



info"; 



} 

if (submitCount — = 3) 
{ 

message = "Okay... now your just pressing too much"; 

} 

if (submitCount > 1 && submitCount < 4) 
{ 

alert (message) ; 

} 

} 

return false; 



} 



function CheckPassword ( form) 
{ 

var length = form. elements . length; 
var change=l; 
//Make sure passwords match 
if (form. elements [ 1] . value != 

form. elements [2) .value) 

{ 

alert (XD_gsValidatePasswords) , 
change=0; 
return false; 

} 

if (change==l ) 
{ 

form. submit ( ) ; 

} 

return true; 
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//xparse.js 

function ^element () 
{ 

this. type = "element"; 
this. name = new StringO; 
this . attributes = new ArrayO; 
this .contents = new ArrayO ; 
this.uid = _Xparse_count++; 
_Xparse_index [this . uid] =this; 

// Added by Martin Hald 
this . attributes . folder = 0; 
) 

function __chardata() 
f 

this. type = "chardata"; 
this, value = new StringO; 
) 

function _jpi ( ) 
{ 

this. type - "pi"; 

this, value = new StringO; 

} 

function _comment ( ) 
{ 

this. type = "comment"; 
this, value = new StringO; 
} 

// an internal fragment that is passed between functions 
function _frag ( ) 
i 

this.str = new String (); 
this.ary = new ArrayO; 
this. end - new StringO; 
} 

///////////////////////// 

// global vars to track element OID's for the index 

var _Xparse_count ~ 0; 

var _Xparse_index = new ArrayO; 



///////////////////////// 

//// Main public function that is called to 

//// parse the XML string and return a root element object 

function Xparse(src) 
{ 

// Hack added by Martin Hald to fix the grove [x] not an object error 
// where the grove object array indexes was shifted up by the previos 
// parsing 
_Xparse_count = 0; 

var frag = new f rag ( ) ; 
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// remove bad \r characters and the prolog 
frag.str = _prolog(src) ; 

// create a root element to contain the document 
var root = new ^element ( ) ; 
root.name= XD__gsRoot Path; 
root . attributes . folder = 1; 
root. at tributes. show = 1; 

// main recursive function to process the xml 
frag = _compile ( f rag) ; 

// all done, lets return the root element + index + document 
r oot. contents = frag.ary; 
root. index = _Xparse_index; 
_Xparse_index = new Array () ; 

return root; 
} 

///////////////////////// 
///////////////////////// 

//// transforms raw text input into a multilevel array 
function _compile ( f rag) 
{ 

// keep circling and eating the str 
while (1) 
{ 

// when the str is empty, return the fragment 
if (frag. str . length 0) 
{ 

return frag; 
) 

var TagStart = f rag . st r . indexOf ( "<" ) ; 

if (TagStart != 0) 
{ 

// theres a chunk of characters here, store it and go on 
var thisary = f rag . ary. length; 
f rag. ary [thisary] = new _chardata ( ) ; 
if (TagStart -1) 
{ 

frag.ary [thisary] .value = ^entity ( frag . str) ; 

frag.str = " H ; 

} 

else 

{ 

frag.ary [thisary) . value = 
_entity (frag.str. substring (0, TagStart) ) ; 

frag.str = frag . str . substring (TagStart, frag . str . length) ; 

) 

else 

{ 

// determine what the next section is, and process it 
if (frag. str. substring ( 1 , 2) == "?") 
{ 

frag = _tag_pi ( f rag) ; 

. } * 
else 
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{ 

if (frag.str.substring(l,4) == ") 
{ 

frag = _tag_comment ( f rag) ; 
} 

else 

{ 

if ( frag. str .substring (1, 9) == "![CDATA[") 
{ 

frag = _tag_cdata ( f rag) ; 
} 

else 

{ 

if ( frag . str . substring ( 1 , frag . end . length + 3) == "/" 
+ frag. end + "> M II _remove_escapes ( frag . str . substring ( 1 , frag . end . length + 
3)) «» »/" + frag. end) 

{ 

// found the end of the current tag, end the 

recursive process and return 

frag. str = frag . str . substring ( frag . end . length + 

3, frag. str . length) ; 

frag. end = ""; 
return frag; 
} 

else 

{ 

frag = _tag_element ( f rag ) ; 
} 

> 



) 

} 

return MM ; 
} 

/////////////////////// 



/////////////////////// 

//// functions to process different tags 
function XDTrueSpacelndex ( f rag) 
{ 

var length = frag. length; 
for (var i=0; i < length; i++) 
{ 

if { (frag.charAt (i) == " ") 

&& (frag.charAt (i-1) != "\\ M ) 

) 

{ 

break; 
} 

} 

return i; 
} 



function _tag_element ( f rag) 
{ 
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// initialize some temporary variables for manipulating the tag 
var close = f rag . str . indexOf (">") ; 

var empty = ( frag . str . substring (close - 1, close) == "/"); 
if (empty) 
{ 

close -= 1; 
} 

// split up the name and attributes 

var starttag = ^normalize ( frag . str . substring ( 1 , close) ) ; 
//var nextspace = starttag . indexOf ( " H ) ; 
var nextspace = XDTrueSpacelndex ( starttag) ; 
var attribs = new String (); 
var name = new String ( ) ; 
if (nextspace != -1) 
{ 

name = starttag. substring (0, nextspace) ; 

attribs = starttag . substring (nextspace + 1 , starttag . length ) ; 
} 

else 

{ 

name = starttag; 
} 

var thisary = f rag . ary. lengths- 
frag, ary [thisary] - new ^element () ; 
frag. ary [thisary] .name - _r emove_e scapes (name) ; 

if (attribs. length > 0) 
{ 

frag. ary [thisary] .attributes = _attribut ion (attribs ) ; 
) 



if ( ! empty) 
{ 

// ! ! ! ! important, 

// take the contents of the tag and parse them 
var contents = new _f rag ( ) ; 

contents.str = frag . str . substring (close + 1, frag. str . length) ; 

contents. end = name; 

contents = _compile (contents) ; 

frag. ary [thisary] .contents = contents . ary; 

frag. str = contents.str; 

} 

else 

{ 

frag. str = frag . str . substring (close + 2, frag . str . length) ; 
} 

return frag; 
) 

function _tag_pi (f rag) 
{ 

var close = f rag . str . indexOf {"?>") ; 
var val = frag . str . substring (2 , close) ; 
var thisary = frag. ary . length; 
frag. ary [thisary] = new _pi ( ) ; 
frag. ary [thisary] .value = val; 

frag. str = frag . str . substring ( close + 2 , frag . str . length) ; 

return frag; 

} 



function _tag_comment (f rag) 
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{ 

var close = frag.str.indexOf (" — >"); 
var val « frag . str . substring ( 4 , close) ; 
var thisary = f rag . ary. length; 
frag. ary [thisary] = new ^comment ( ) ; 
frag. ary [thisary] .value = val; 

frag. str = frag . str . substring (close + 3, frag . str . length ) ; 

return frag; 

} 

function _tag_cdata (frag) 
{ 

var close = f rag . str . indexOf ("]]>") ; 
var val = frag . str . substring ( 9, close) ; 
var thisary = f rag . ary . length; 
frag, ary [thisary] = new _chardata(); 
frag. ary [thisary] .value » val; 

frag. str = frag . str . substring (close + 3, frag . str length) ; 

return frag; 

} 

///////////////////////// 



////////////////// 

//// util for element attribute parsing 
//// returns an array of all of the keys « values 
function _attribution (st r ) 
{ 

var all = new Array (); 
while (1) 
{ 

var eq = str . indexOf ("=") ; 
if (str. length ==0 || eq == -1) 
{ 

return all; 
} 

var idl = str . indexOf ( ft \ ' M ) ; 
var id2 = str . indexOf ( "\" ") ; 
var ids — new Number ( ) ; 
var id = new StringO; 

if ((idl < id2 && idl != -1) || id2 « -1) 
{ 

ids = idl; 
id = "\ ' "; 
} 

if ((id2 < idl || idl -1) && id2 ' = -1) 
{ 

ids = id2; 
id =» »\«»; 

1 

var next id = str . indexOf (id, ids + 1); 
var val = str . substring (ids + l,nextid); 

var name = xstrip (str . substring (0, eq) ) ; 
var entity = new StringO; 
entity = _ent ity ( val ) ; 
all [name] = entity; 

str = str. substring (nextid + 1, str . length) ; 

return all; 
} 
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////////////////////// 

//// util to remove \r characters from input string 
//// and return xml string without a prolog 
function _prolog(str) 
{ 

var A = new Array (); 

A = str. split ("\r\n") ; 
str = A. join ( "\n" ) ; 
A = str .split ("\r") ; 
str = A. join ( "\n" ) ; 

var start = str . indexOf ("<") ; 

if (str . substring (start , start + 3) == "<?x" II str . substring ( start , start 
+ 3) "<?X" ) 

{ 

var close = str . indexOf ("?>") ; 

str = str . substring (close + 2 , str . length) ; 

} 

var start = str. indexOf ( " < ! DOCTYPE H ) ; 
if (start 1= -1) 
{ 

var close = str . indexOf (">", start ) + 1; 
var dp = str. indexOf ("[", start) ; 
if (dp < close && dp !=.-l) 
{ 

close « str . indexOf ("]>", start) + 2; 
} 

str = str . substring (close, str . length) ; 
} 

return str; 
} 

////////////////// 



function _remove_e scapes (str) 
{ 

var A — new Array ( ) ; 
A - str. split ("\\") ; 
str - A. join<"") ; 
return str; 
) 

////////////////////// 

//// util to remove white characters from input string 
function xstrip(str) 
{ 

A = str. split (" ") ; 
str = A. join ( " n ) ; 
A = str. split ("\n") ; 
str - A. join ( " " ) ; 
A = str. split ("\t") ; 
str = A. join( H ") ; 

//A = str. split (" ") ; 
//str = A. j oin ( "  " ) ; 
//A = str. split ("\n") ; 
//str = A. join ("") ; 
//A = str. split (" ,r ) ; 
//str = A. join ("") ; 
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//A = str. split ("\t") ; 
//str « A. joint"") ; 

return str; 
) 

////////////////// 



////////////////////// 

//// util to replace white characters in input string 
function _normalize ( str ) 
{ 

var A = new Array {); 

A = str. split ( lf \n") ; 

str = A. join ( " ") ; 

A = str. split ("\t") ; 

str = A. j oin ( " " ) ; 

return str; 
} 

////////////////// 



////////////////////// 

//// util to replace internal entities in input string 
function _entity(str) 
{ 

var A - new ArrayO; 

//A = str. split ("Sit; w ) ; 
//str = A. join {"<") ; 
V/A = str. split ("> ") ; 
//str = A. j oin ( ">" ) ; 
//A = str .split ("" ") ; 
//str = A. join ("\" ") ; 
//A = str . split ("iapos; ") ; 
//str = A. join <"\ • ") ; 

//A = str.split("&") ; 
//str = A. join ("&") ; 

//Get rid of any escapes 
A = str. split {"\\ M ) ; 
str ~ A. join( Mrt ) ; 

return str; 
} 

////////////////// 
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CLAIMS 

What is claimed is: 

A shared computer network storage system, comprising: 
a first database containing file data; 

a second database containing information (metadata) about said file data of said first database; 

a server, said server executing file commands on said first file database, said server 
contemporaneously updating said second metadatabase upon executing said file commands; and 

a client application, said client application communicating with said server, said client application 
invoking file commands upon said server, said server executing said file commands and updating 
information regarding said first file and second metadata databases displayed by said client application; 
whereby 

said client application controls flies in said first file database and information regarding status of 
said first database files is more readily available by reference to said second metadatabase. 



2. 



6. 



7. 



8. 



The shared computer network storage system of claim 1 , wherein said first file database is distributed 
over at least two physical storage devices. 



3 * The shared computer network storage system of claim I, wherein said second metadatabase is 

distributed over at least two physical storage devices. 

4 ' The shared computer network storage system of claim 1 , wherein said client application communicates 

with said server via a proxy. 

5 ' The shared computer network storage system of claim 1 , wherein said server comprises a non-routable 

network. 



9. 



10. 



The shared computer network storage system of claim 1 , wherein said server comprises a transaction 

processor. 

The shared computer network storage system of claim 6, wherein said transaction processor guarantees 
access to and transactions on said first and second databases. 

The shared computer network storage system of claim 1 , wherein said server comprises an enterprise 
java bean cluster (EJBC). 

The shared computer network storage system of claim 8, wherein said enterprise java bean cluster 
(EJBC) handles business logic and resource access methods a well as memory caching for common resources. 

The shared computer network storage system of claim 1, wherein said server further comprises an 
application network. 
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The shared computer network storage system of claim 10, wherein said application network further 
comprises a java application cluster. 



1 2 - Tne shared computer network storage system of claim 1 0, wherein said application network handles 
display functions and resource requests. 

1 3 - The shared computer network storage system of claim 1 , wherein said server further comprises a web 
server. 

1 4 * The shared computer network storage system of claim 13, wherein said web server handles all requests 

for static content and proxies requests for dynamic content. 

1 5 - The shared computer network storage system of claim 1 , wherein said server further comprises a load 
balancer, said load balancer proxying requests to a sub-server having the highest degree of availability or 
functionality. 

1 6- The shared computer network storage system of claim 1 wherein said server further comprises a DNS 
redirector, said DNS redirector proxying requests to a resource having a highest degree of functionality. 

17- The shared computer network storage system of claim 1 wherein said server further comprises: 

a transaction processor, said transaction processor on a non-routable network, said transaction 
processor guarantees access to and transactions on said first and second databases; 

an enterprise java bean cluster (EJBC) on a non-routable network, said enterprise java bean cluster 
(EJBC) coupled to said transaction processor and handling business logic and resource access methods a 
well as memory caching for common resources; 

an application network on a non-routable network, said application network coupled to said 
enterprise java bean cluster, said application network including a java application cluster and handling 
display functions and resource requests; 

a web server, said web server coupled to said application network and handling ail requests for 
static content and proxies requests for dynamic content; 

a load balancer, said load balancer coupled to said web server and proxying requests to a sub- 
server having the highest degree of availability or functionality; and 

a DNS redirector, said DNS redirector coupled to said load balancer and proxying requests to a 
resource having a highest degree of functionality. 

1 8- The shared computer network storage system of claim 1 , wherein said client application is web-based. 

1 9* The shared computer network storage system of claim I , wherein said client application interacts with 

an operating system running upon a computer upon which said client application is also running, said client 
application adopting and implementing a visual display format similar to said operating system. 
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A shared computer network storage system, comprising: 

a first database containing fi le data, said first database distributed over at least two physical storage 
devices; 

a second database containing information (metadata) about said file data of said first database, said 
second database distributed over at least two physical storage devices; 

a server, said server executing file commands on said first file database, said server 
contemporaneously updating said second metadatabase upon executing said file commands, said server 
including: 

a transaction processor, said transaction processor on a non-routable network, said transaction 
processor guarantees access to and transactions on said first and second databases; 

an enterprise java bean cluster (EJBC) on a non-routable network, said enterprise java bean cluster 
(EJBC) coupled to said transaction processor and handling business logic and resource access methods a 
well as memory caching for common resources; 

an application network on a non-routable network, said application network coupled to said 
enterprise java bean cluster, said application network including a java application cluster and handling 
display functions and resource requests; 

a web server, said web server coupled to said application network and handling all requests for 
static content and proxies requests for dynamic content; 

a load balancer, said load balancer coupled to said web server and proxying requests to a sub- 
server having the highest degree of availability or functionality; and 

a DNS redirector, said DNS redirector coupled to said load balancer and proxying requests to a 
resource having a highest degree of functionality; and 

a client application, said client application communicating with said server via a proxy, said client 
application invoking file commands upon said server, said server executing said file commands and 
updating information regarding said first file and second metadata databases displayed by said client 
application; whereby 

said client application controls files in said first file database and information regarding status of 
said first database files is more readily available by reference to said second metadatabase. 



ibased. 



The shared computer network storage system of claim 20, wherein said client application is web- 



The shared computer network storage system of claim 20, wherein said client application interacts 
with an operating system running upon a computer upon which said client application is also running, said client 
application adopting and implementing a visual display format similar to said operating system. 

A method for providing private file space and information transfer over a public computer network, 
the steps comprising: 

providing a publicly-available private file space system coupled to the public computer network; 

providing a client program in communication with the public computer network; 

sending a request from said client program to said publicly-available private file space system 
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("private system"); 

evaluating said request; 
authenticating said request; 
satisfying said request; and 

returning a success indicator to said client program indicating the success or failure of said request; 
whereby 

said client program may create and control files held by said private system. 

24. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, wherein the step of evaluating said request further comprises evaluating said request for 
static content and returning an appropriate response if said request is for static content. 

25. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 24, the steps further comprising: 

providing an application network within said private system; 
proxying said request to said application network; and 
parsing a header of said request. 

26. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, wherein said step of authenticating said request further comprises: 

authenticating a user using said client program; and 

authenticating said request made by said client program to ensure that it conforms with an account 
associated with said user. 

27. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, further comprising: 

parsing multipart form data associated with said request; 
determining said request's type; and 
submitting said request. 

28. A method for providing private file space and information transfer over a public computer network, 
the steps comprising: 

providing a publicly-available private file space system coupled to the public computer network; 
providing a client program in communication with the public computer network; 
sending a request from said client program to said publicly-available private file space system 
("private system"); 

evaluating said request for static content and returning an appropriate response if said request is for 
static content; 

providing an application network within said private system; 
proxying said request to said application network; and 
parsing a header of said request 
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authenticating said request by authenticating a user using said client program and authenticating 
said request made by said client program to ensure that it conforms with an account associated with said 
user; 

parsing multipart form data associated with said request; 
determining said request's type; 
submitting said request; 
satisfying said request; and 

returning a success indicator to said client program indicating the success or failure of said request; 
whereby 

said client program may create and control files held by said private system. 

A data structure for effecting file operations on a private file space and information transfer system 
over a public computer network, comprising: 
a user data object; 
a process request object; and 
a recovery object; 

said user information object, said process request object, and said recovery object associated within 
a file action object. 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said user data object further comprises: 
a user information object; and 
a security object. 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said process request object further comprises: 
a file operation object comprising said recovery object and a database IO object, a file IO object, 
and an administration object. 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said recovery object further comprises: 
a recovery IO object; 
a mount status object; 
a recovery administration object; and 
a recovery process object. 

A data structure for effecting file operations on a private file space and information transfer system 
over a public computer network, comprising: 

a user data object, said user data object having a user information object; and a security object; 
a process request object, said process request object including a file operation object, a database IO 
object, a file IO object, and an administration object^and 



287 



WO 01/33381 PCT/US00/30536 

a recovery object, said recovery object incorporated in said file operation object, said recovery 

object including a recovery IO object, a mount status object, a recovery administration object, and a 

recovery process object; 

said user information object, said process request object, and said recovery object associated within 

a file action object; whereby 

file operations may be facilitated by the data structure including recovery from resource failure. 

A shared file storage resource for a computer network, comprising: 
an allocatable file storage resource; 

a server, said server coupled to said storage resource, said server: 

allocating individual user file space for a plurality of users on said storage resource; 

receiving files for storage on said storage resource; 

transmitting files stored on said storage resource; 

generating control-protocol codes for transmitting said files; 

receiving file commands for controlling files on said storage resource; and 

transmitting display codes indicating file status on said storage resource, said display codes 
representing said storage resource as a network drive; 

a first network connection, said first network connection coupling said server to the computer 
network; 

a workstation, said workstation: 

receiving files for storage on said storage resource; 

transmitting files stored on said storage resource; 

receiving file commands for controlling files on said storage resource; and 

transmitting display codes indicating file status on said storage resource, said display codes 

representing said storage resource as a network drive; whereby 

a user may store, retrieve, and control files in a unique and secure file storage area on said 

allocatable storage resource available throughout the computer network and detached from said 

workstation. 

The shared file storage resource for a computer network as set forth in claim 34, wherein said display 
codes further comprise: 

a browser-interpretable object, such as a JavaScript object, said object displaying file status on said 
storage resource as a web page. 

The shared file storage resource for a computer network as set forth in claim 34, further comprising: 
a standalone program running on said workstation, said standalone program interpreting said 
display codes and providing a seamless interface to said user, said seamless interface presenting said 
storage resource as a local or network resource to said user and allowing said user to manipulate files on 
said storage resource in the same manner as local storage resources such as a floppy disk drive or a local 
hard drive. 
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37. The shared file storage resource for a computer network as set forth in claim 34, wherein said 
2 computer network, further comprises: 

the Internet. 

38. A method for transferring data from a first network resource to a second network resource at the 
2 direction of a user, the steps comprising: 

submitting a first file location indicating data to be transferred to the second network resource; 
4 the second network resource requesting said data at said first file location from the first network 

resource; 

6 the first network resource transmitting said data to the second network resource; and 

the second network resource notifying the user of successful transfer upon successful reception of 

s said data; whereby 

the user may use the first and second network resources to obtain and control said data. 

39. The method for transferring data as set forth in claim 38, wherein the second network resource 
2 comprises a subscriber-based system of network-available storage space. 

40. The method for transferring data as set forth in claim 38, wherein the first and second network 
2 resources are coupled to the Internet. 

41 . The method for transferring data as set forth in claim 38, the steps further comprising: 

2 displaying to the user a status of transmission of said data from said first network resource to said 

second network resource. 

42. The method for transferring data as set forth in claim 38, the steps further comprising: 
2 verifying the user as a subscriber to or member of the second network resource. 

43. A method for transferring data from a first network resource to a second network resource at the 
2 direction of a user, the steps comprising: 

submitting a first file location indicating data to be transferred to the second network resource, the 
4 second network resource being a subscriber-based system of network-available data storage space; 

verifying the user as a subscriber to or member of the second network resource; 
6 the second network resource requesting said data at said first file location from the first network 

resource; 

s the first network resource transmitting said data to the second network resource via Internet; 

- displaying to the user a status of transmission of said data from said first network resource to said 
io second network resource; and 

the second network resource notifying the user of successful transfer upon successful reception of 
12 said data; whereby 

the user may use the first and second network resources to obtain and control said data. 
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45. 



46. 



47. 
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A client-server system for a network-based data storage and manipulation system, comprising: 
a client system, said client system having a file access service and a file manipulation service; 
a server, said server providing network-based data storage resources and responding to requests 
transmitted by said client system, said server effecting said requests; 

said server determining if a client request is one for metadata regarding data stored upon said 

server; 

said server providing said metadata if said client request is for metadata and transmitting said 
metadata to said file manipulation service; and 

said server performing a file action if said client request is not for metadata, said server updating 
said metadata and transmitting said metadata to said file manipulation service; whereby 

said server operates, and said client system presents, operations on said server in a manner similar 
to operations local to said client system. 

The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said file access service further comprises: 

a request processing layer for processing requests; and 

a first network I/O layer for transmitting said requests to said server. 

The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said file manipulation service further comprises: 

a parser, said parser parsing said metadata from said server; 

a data structure, said data structure receiving and preserving parsed data from said parser; and 
a data display layer, said data display layer operating upon ™d displaying said parsed data; 
whereby 

metadata may be displayed to inform about data stored upon said server. 

The client-server system for a network-based data storage and manipulation system as set forth in 
claim 46, wherein said parser is an XML parser. 

The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said server further comprises: 

a second network I/O layer, said second network I/O layer engaged when said requests are not for 
metadata, sasd second network I/O layer transmitting requests for file action; and 

a resource access layer, said resource access layer receiving transmissions from said second 
network I/O layer and effecting said requests, said resource access layer engaged when said requests are 
for metadata, said resource access layer obtaining and transmitting said metadata; and 

a metadata compiler, said metadata compiler receiving said metadata from said resource access 
layer, compiling said metadata, and transmitting said compiled metadata to said client system. 

The client-server system for a network-based data storage and manipulation system as set forth in 
claim 48, wherein said metadata compiler is an XML generator. 
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A client-server system for a network-based data storage and manipulation system, comprising: 
a client system, said client system having a file access service and a file manipulation service; 
a server, said server providing network-based data storage resources, said server creating and 
maintaining metadata regarding stored data, said server responding to requests transmitted by said client 
system, said server effecting said requests; 

said server determining if a client request is one for metadata; 

said server providing said metadata if said client request is for metadata and transmitting said 
metadata to said file manipulation service; 

said server performing a file action if said client request is not for metadata, said server updating 
said metadata and transmitting said metadata to said file manipulation service; 

said file access service having a request processing layer for processing requests and a first 
network I/O layer for transmitting said requests to said server; 

said file manipulation service having an XML parser, said XML parser parsing said metadata from 
said server, said file manipulation service having a data structure, said data structure receiving and 
preserving parsed data from said parser, and said file manipulation service having a data display layer, 
said data display layer operating upon and displaying said parsed data so that metadata may be displayed 
to inform about data stored upon said server; and 

said server having a second network I/O layer, said second network I/O layer engaged when said 
requests are not for metadata, said second network I/O layer transmitting requests for file action, said 
server having a resource access layer, said resource access layer receiving transmissions from said second 
network I/O layer and effecting said requests, said resource access layer engaged when said requests are 
for metadata, said resource access layer obtaining and transmitting said metadata, and said server having a 
metadata compiler in the form of an XML generator, said metadata compiler receiving said metadata from 
said resource access layer, compiling said metadata, and transmitting said compiled metadata to said client 
system; whereby 

said server operates as and said client system presents operations on said server in a manner similar 
to operations local to said client system. 
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SHARED INTERNET STORAGE RESOURCE, USER 
INTERFACE SYSTEM, AND METHOD 



TECHNICAL FIELD 

This invention relates to resources on computer networks, particularly the Internet, and more particularly to a file 
storage and retrieval system that is available worldwide via the Internet which additionally allows a direct transfer of 
Internet files to an Internet storage, retrieval, and sharing resource. The present invention acts in the manner of a 
"Internet hard disk" or "Internet hard drive" to provide online storage and retrieval resources for users. 

BACKGROUND ART 

The Internet is the worldwide computer network making available a vast number of computer and information 
resources to institutions and individuals. A significant part of the Internet is the worldwide web that allows for web 
pages to be written in HTML and transmitted upon demand throughout the Internet. Recent developments have better 
established the use of XML (Extensible Markup Language) as a subset of SGML (Standard Generalized Markup 
Language, ISO standard 8879: 1986). FTP (File Transfer Protocol) provides means by which files may be transferred 
over the Internet. AH of these protocols are generally well known in the art, and collateral resources can easily be 
obtained to describe these further. 

Patents relevant to the present invention include U.S. Patent No. 5,771,354 issued to Christopher Crawford on 
June 23, 1998 for an Internet Online Backup System, and U.S. Patent No. 5,90 1 ,228 issued to Christopher Crawford on 
May 4, 1999 for a Commercial Online Backup Service. 

Additionally, portable programming systems such as Java®, JavaBeans, and JavaScript have been extensively 
developed with an anticipation of future portability across the vast network that is the Internet. Java<&-related systems 
allow for object-oriented programming whereby objects or "beans" allow the passing of self-contained modules with 
associated processing methods that are used to act upon the accompanying data. Consequently, the "bean" can travel 
through a network and, under appropriate circumstances, have certain processes activated allowing manipulation of the 
information contained in the bean. 

Advancements in Java<£>-related systems have given rise to the Enterprise JavaBean™ (EJB). The Enterprise 
JavaBean™ allows for clustering of servers such that the bean is given independence from specific servers on the 
system, yet can be activated or "instantiated" such that error recovery is easier, the system as a whole is more robust, and 
processing of the bean can be performed asynchronously so that all events do not have to happen at a pre-set time or 
serially/one after the other. 

Enterprise JavaBea*is™/EJBs allow serialization of beans. Such serialization allows the bean to be represented as 
a data stream of determined length. In essence, this is just a data file that is interpreted in the proper context, much the 
same as any electronic information file. Such serialization of the EJB allows it to be replicated and stored in case of 
catastrophic failure of a preferred server or the like. 

If the server upon which the instantiated EJB dies, goes down, or fails, a previously replicated twin can be used to 

continue the process and allow for error recovery. More information about Enterprise JavaBeans™ technology can be 

found in the white paper, "Enterprise JavaBeans™ Technology: Server Component Model for the Java™ Platform*' by 

Anne Thomas, revised December 1998, prepared for Sun Microsystems, Inc. and published/made available by the 

Patricia Seybold Group of Boston, Massachusetts. 

Due to the nature of new technologies, terms such as "bean" or "instantiated" may seem unfamiliar to those new 
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to the pertinent art. Reasons for this include the difficulty of communicating quickly new and complex subjects as well 
as the good-humored nature of those who intensely pursue the establishment of new technology, particularly software 
systems. Consequently, for Java<g>-related systems, a coffee theme is often present that indicates to those knowledgeable 
in the art the general subject matter of interest. While distinctions may be subtle in the art, they can be very important 
and serve the ends of those attempting to establish, share, and forward the technology. 

Generally, home pages or other web pages are requested by the user through designation of the URL (Uniform 
Resource Locator). With the transmission to the user via TCP/IP protocol, the information present at the URL (and 
generally a file located somewhere on a computer) is transmitted to the user. The file may have links, or pointers, to 
other resources including images, graphics, audio or video streams, or other resources. Mark-up language is used on the 
Internet in an attempt to provide an open-ended structure by which information of any sort that can be stored 
electronically (or perhaps even otherwise) can be made available to an end user on demand. As such, the Internet is seen 
as a powerful tool making almost any information resource available to any computer or to any person using a computer. 

Over the past several years, the personal computer has increased in power and capacity as commercial demand 
has driven the research and development of producers and vendors. It is now not uncommon to be able to easily find an 
Intel-manufactured 500 megahertz Pentium®-based system having well over 1 0 gigabytes of hard disk space, as well as 
32 - 256 megabytes of RAM. As such, the power by which files may be received and acted upon by the local user 
through his or her PC has kept pace with the advances in technology. 

However, there currently remain obstacles to universal access to an individual's own information stored on his or 
her computer. First of all, computers are very heavy. They are bulky. They generally weigh several kilograms and are 
not easily transportable. Lightweight laptop computers or the like generally do not have the same resources available to 
the user as a regular PC. Additionally, access to local area networks (LANs) is generally not available once the 
computer leaves the premises occupied by the LAN. Additionally, Internet access is often restricted by the use of a 
modem. Modems generally provide data transmission speeds on the order of 56 kilobits per second. This is 
approximately the same as 7 kilobytes per second. However, headers and other information are required to properly 
transmit information over the Internet and increase the effective size of files. 

Even with the increased availability of broad band access to the Internet, it becomes an important feature of 
electronic information processing and the like in order to provide resident resources on the Internet Such resources 
could include the sharing of files and the like in a manner that are easy to use and understand. 

Due to these and other restrictions regarding data transport, transmission/and reception, a need has arisen for 
means by which files and other data may be available worldwide through the Internet and not tied to a local computer. 
The present invention addresses this demand by providing means by which files and other data may be stored on the 
Internet and made available worldwide through the Internet. 

DISCLOSURE OF INVENTION 



The present invention provides an "Internet hard drive" or "Internet hard disk" to arid from which files may be 
stored and retrieved. Denominated commercially as "X:Drive," the present invention allows users to store files of 
foreseeably any type on a resource available throughout the Internet. Once available to the Internet, the files stored on 
the user's X:Drive are available to the same extent as the Internet, namely worldwide. 

Note should be made that the term "X:Drive" refers both to the system as a whole and to the individual space 
allocated to an individual user. Consequently, reference is sometimes made herein to the X:Drive system or to X;Drive 
to refer to the system as a whole. At other times, the term XzDrive indicates the user's individual XrDri ve, or allocated 
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space. The different uses are indicated by context. 

In order to effect the Shared Internet Storage Resource of the present invention, a centra! or distributed storage 
facility is provided. First and foremost is the high-speed access storage facility where files are actually stored. Such 
individual storage areas may be allocated in individual limited allotments, or be left open-ended and limited only by the 
capacity of the physical devices responsible for storage. Metadata, that is data about the files stored on the network hard 
drives or other storage devices, is generated and stored in a separate database. The database of metadata (the 
metadatabase) and the network-attached storage facility may be linked by an internal network. It is possible for the 
database to be stored on the same network storage facility or device on which user files are also stored. System 
management may select whether or not to distribute or consolidate the database with the network storage. 

Also attached to the internal network is a web server that serves to generate and transmit the information to the 
Internet, and ultimately the user. The web server files may pass through a load balancer and/or firewall before 
proceeding on to the Internet The same is similarly true for information coming into the web server from the Internet. 

XML may be used in combination with JavaScript or the like to provide two means by which the Shared Internet 
Storage Resource of the present invention may be achieved. The first is a JavaScript object which may be transmitted to 
a browser program running on the user's computer. Such browsers may include ones that are well known, including 
Netscape® Communicator and Microsoft® Internet Explorer. Alternatively, a stand-alone application may be installed 
and stored upon the user's computer. This stand-alone application serves to intermediate the user commands with the 
web server and ultimately the metadatabase in the Internet storage device. 

As an additional enhancement, the user interface may be a client program that meshes seamlessly with standard 
user presentations in WYSIWYG (what you see is what you get) graphic user interfaces (GUIs). As such, a drive may 
be shown on the user's computer and may be denominated "x:" (or "y:" or "z:" etc., depending upon user preferences). 
The user can then read from or write to the x:\ Shared Internet Storage Resource drive much in the same way as you 
would the local a:\ and c:\hard drive. 

When the user shuts down his or her computer, information that is stored on the Shared Internet Storage Resource 
of the present invention remains on the Internet. The user can then access such information from another computer, 
another geographic location, or even give permission to share files on the Shared Internet Storage Resource with others. 
Password protection or other security protocols may be used to limit or discriminate access to the user's files. 

The Shared Internet Storage Resource of the present invention allows for direct Internet-to-internet file transfer to 
a user's allocated X:Drive file space in a process referred to as "Skip the Download" or "Save to My Xdrive." 

BRIEF DESCRIPTION OF DRAWINGS 

Figure 1 is a schematic view of the XrDrive system of the present invention. The different tier levels are shown, 
along with the marking indicia of a circle, triangle, square, and star/asterisk corresponding to the same indicia in Figure 
3. 

Figure 2 is a schematic view of Java® library objects operating in the transactions or data exchanges occurring in 
the present invention. 

Figure 3 is a detailed flow diagram showing the operation of the present invention. Indicia including a circle, a 
triangle, a square, and a star/asterisk correspond to tier levels shown in Figure 1 and indicate the level of operation of the 
steps shown in the flowchart of Figure 3. 

Figure 4 is a flowchart showing the operation of the XDFile Enterprise JavaBean™ (EJB) used in the present 
invention. 
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Figure 5 is an overview of the Java® architecture used to effect transactions in the present invention. 
Figure 6 is an alternative schematic diagram of the Java® architecture shown in Figure 5. 
Figure 7 is a schematic and flowchart diagram showing the IO (input/output) for the database transactions of the 
present invention. 

Figure 8 is a schematic diagram of the data recovery process as effected by the FilelO component of the XDFile 
object used in the present invention. 

Figure 9 is a schematic depiction of failure recovery elements. 

Figure 10 is a schematic and flowchart diagram showing virus protection effected in the present invention. 
Figure 1 1 is a schematic and flowchart diagram of the Internet-to-resource transfer ("Skip the Download'VSave 
to My Xdrive") as set forth in the present invention. 

Figure 12 is a schematic and flowchart diagram of the client system used in the present invention. 
Figure 13 is a Windows™ desktop display showing both the client and web-browser applications. 
Figure 14 is a display of a web browser pointing to a user's X:Drive. 

BRIEF DESCRIPTION OF APPENDICES 

Appendix 1 is a listing of web site/server code use to achieve the present invention. 

Appendix 2 is a listing of the code used on the client side to achieve the present invention in a Microsoft® 
Windows™ environment 

Appendix 3 is a listing of the JavaScript code used to achieve the present invention in a Sun Microsystems® 
Java® environment (including one on a browser). 

M ODE(S) FOR CARRYING OUT THE INVENTI ON 

The detailed description set forth below in connection with the appended drawings is intended as a description of 
presently-preferred embodiments of the invention and is not intended to represent the only forms in which the present 
invention may be constructed and/or utilized. The description sets forth the functions and the sequence of steps for 
constructing and operating the invention in connection with the illustrated embodiments. However, it is to be understood 
that the same or equivalent functions and sequences may be accomplished by different embodiments that are also 
intended to be encompassed within the spirit and scope of the invention. 

Appendices 1 , 2, and 3 provide the source code for, respectively, the Web Site/Server Code of the X:Drive Shared 
Internet Storage Resource system of the present invention; the Windows Client Code; and the JavaScript Listings forme 
present invention. These Appendices are incorporated herein by this reference thereto as if set out in their entirety. It is 
contemplated that these Appendices provide a tul!, complete, and enabling disclosure to those of ordinary skill in the art 
or less by which the present invention may be achieved. 

Additionally, the reference numbers used in conjunction with the figures are numbered such that the 1 OO's place 
of the number indicates the number of the drawing figure. For example, the 600 series of reference numbers refers to 
Figure 6, while the 200 series refers to elements shown in Figure 2. 

The present invention provides a method by which an Internet hard disk or hard drive may be achieved in a 
manner similar to a hard disk or hard drive available locally to the individual on the local computer. Additionally, as 
Internet use becomes a more familiar and everyday event for people, the resources provided by the present invention 
may allow the actual use of the Internet hard drive or XrDrive set forth herein to act as such a resource with the files 
being called up for execution for programs available and processed either locally and/or over the Internet. In light of the 
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foregoing, it can be seen that the present invention may act as a bridge or may pave the way towards a more inter- 
networked community for the use and processing of electronic information. 

The virtual disk drive provided by the present invention may be selectively shared with others or kept entirely 
private. Additionally, and as set forth in more detail below, the use of a metadatabase provides Quicker access and the 
ability to distribute the information regarding the legion of XrDrive accounts over a wide geographic area, enabling 
redundant preservation of user information by server clusters implementing Enterprise JavaBeans® (EJBs), or otherwise. 

The Shared Internet Storage Resource, User Interface System, and Method set forth herein is generally referred to 
as "X:Drive." Context reveals whether or not the term X:Drive is referring either to the system as a whole or the 
individual's own account. 

The XrDrive system of the present invention uses network application practices and may rely upon Java® 
Enterprise JavaBeans™ (EJBs) to enable distributed and clustered computing and file management environment. Along 
with such Java®-based and network-oriented design, the XrDrive system of the present invention also contemplates the 
use of open programming standards such as XML and Web-DAV (Web-based Distributed Authoring and Versioning). 
The use of such technology is foreseen as providing wide support by the user community as well as speed and 
development, refinement, and polishing. 

As shown in Figure 1 , the X:Drive system 100 has a multi-tiered, network-based application infrastructure. The 
multi-tiered nature of the system allows it to separate operations in an efficient manner. The network-based aspects of 
the XrDrive system allows it to disperse resources geographically as well as allow a high degree of communication 
between different aspects or facets of the system. 

The XrDrive system may be considered enabling technology as a medium that is independent of the applications 
and uses to which it is applied. The XrDrive system is currently based on object-oriented principles with each 
application layer responsible for a discreet functionality or aspect of operation. Both hardware and software resources 
may then successfully experience heavy re-use with both scalability and flexibility inherently provided. While these 
advantageous aspects of the XrDrive system are achieved, as a multi-tiered system, XrDrive involves a higher cost of 
complexity and planning. Thus, those who would seek to wrongly copy the XrDrive system would do so without 
accruing the great expense in time and money necessary to achieve the present XrDrive system. They would ride on the 
backs of those who not only developed the system, but also those who got it to work right and in a commercially-reliable 
manner. 

The use of tiers in the XrDrive system of the present invention is realized in both the network systems and the 
application systems involved in achieving XrDrive. 

. As shown in Figure 1, a variety of tiers, or layers, are present between the client 102 and the ultimate data 
resources 104. Between the client 102 and the data resources 104, are one or more layers or tiers, accomplishing the 
following. 

The client 1 02 may be coupled to a public network 1 06 (such as the Internet) that may include a DNS redirector 
108 as well as a load balancer 110. The public network 106 may then lead into a web server network 120. The web 
server may then lead into an application network 122, which in turn leads into an EJB (Enterprise JavaBeans™) network 
124. The EJB network 124 may lead into a transaction network 126, which in turn leads into the data resources 104. 

The client 102 may be either a web- or browser-based application or an application resident on a Windows™ X 
system (the X indicating the version of Windows applicable, i.e., Windows® 95, Windows® 98, Windows® 2000, etc.). 
Requests generally originate from the client as the XrDrive system 100 is one that operates at the command of users 
directing the client program. Client requests may be made versus the Hypertext Transfer Protocol (HTTP) GET/POST 
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function. In a preferred embodiment, the GET/POST operation may be augmented with Web-DAV extensions to the 
HTTP protocol. Commands are transmitted by the client 102 are sent to the DNS redirector 108, which then isolate the 
request via a proxy server process. A proxy server process prevents a direct connection between the client 1 02 and the 
other downstream resources in the X:Drive system 100. Such proxy serving prevents inadvertent or mischievous 
disruption of service by allowing only certain commands or information to be propagated through the XrDrive system 
100. This prevents mischievous users from disrupting the system as such rogue commands are intercepted by the proxy 
server and denied further propagation. 

After the client command has passed through the DNS redirector/proxy server 108, the request by the client 102 is 
then directed to the most appropriate facility. As the XrDrive system is scalable, facilities may be distributed 
geographically, even over the face of the globe. This allows, at the outset, more efficiencies to take place in the XrDrive 
system 1 00 of the present invention so that more users may be served more quickly and so that the advantageous features 
of the XrDrive system may be realized by the widest number of users in the quickest way possible. 

Due to the construction and architecture of the X: Drive system 100, a number of machines/servers running a 
number of different processes may be distributed over a wide area. Broad band or high-speed access as provided by 
Internet backbone or the like may allow the XrDrive system to be effectively carried out over the entire face of the 
planet. The scalability and flexibility of the present invention augments its utility. Such advantages are further advanced 
by efficient use of the resources so that greater and better service can be provided. 

Upon receiving the request from the client 102, the DNS redirector 108 transmits the requests on to a load 
balancer which may provide a second proxy process under HTTP protocol and transmit the request to the least-loaded 
and most-available web server on an internal, non-routable, or other server network 120. 

The web server network 120 may be non-routable and may comprise a number of individual machines or servers 
processing the HTTP or other requests from one or more load balancers 1 1 0. Each of the web servers 1 40 in the network 
120 may handle HTTP requests for static content, such as HTML and graphic files. The web servers may proxy all 
requests for dynamic content to a Java® application network 122. 

As used in the X: Drive system 1 00 of the present invention, the Java® application networks may be non-routable. 
The use of non-routable facilities in the XrDrive system 1 00 of the present invention indicates their operation in a local 
area network (LAN). However, between tiers, the individual networks themselves may be available such that a web 
server 140 in Illinois may pass requests for dynamic content to Java® application clusters 122 in Wisconsin. 

Each Java® application cluster 122 may be composed of a number of Java® application servers 142 with each 
server 142 handling display functions necessary for user accounts, including the generation of XML, HTML, and other 
instructing displays for either browser or application clients 102. If a Java® application cluster 122 receives a resource 
request from the web server tier 1 20, the Java® application cluster 122 will pass the resource request onto the Enterprise 
JavaBean™ EJB network tier 124. 

As for the web server 120 and Java® application networks 122, the EJB network 124 may also be non-routable 
and operate upon a LAN. The EJB network may be an EJB cluster having a number of EJB servers 144. Each EJB 
cluster handles the business logic and resource access methods and protocols required for the resource requests and 
management. The EJB cluster (EJBC) caches memory of common resources such as the pooling of data connections and 
the like, as well as data objects. Resource access requests and transmissions are then passed out to the transaction 
network tier 126, which may also be non-routable. The transaction network tier 126 has a transaction processor 146 
which controls, operates, and guarantees access and transactions on different resources. These different resources are the 
ultimate data resources 104 that may include NFS (Network File Server) disk arrays 150 and databases 152. The NFS 
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disk anrays 150 may supply the actual storage capacity for the files of generally any size. The databases 152 comprise 
records of information regarding each of the files (metadata) stored by the NFS disk arrays 150 under the XrDrive 
system 100. 

By bifurcating the file information in databases 152 separate from the actual files themselves on the NFS disk 
arrays 150, file information and user queries can be handled much more quickly as display components of the present 
invention are important to provide the user information regarding the status and availability of the files stored on the 
XrDrive system 1 00. Consequently, although a user may have a hundred separate files in an XrDrive directory, he or she 
may be only interested in one. Consequently in order to provide the user the information necessary to make the decision 
as to which file to receive, move, rename, delete, or store, the use of the database provides a very quick and easy means 
by which such user requests can be satisfied. It is anticipated that the actual use of the file storage facilities on the NFS 
disk arrays 150 or the like may comprise only a part of the operations of the present invention. Having the ability to 
display, select, and determine file operations is one of the useful advantages provided by the XrDrive system 100 of the 
present invention. 

Note should be taken of the non-numerical indicia present in Figure I . Most notably, a circle is associated with 
the client 102, a triangle with the Java® application cluster 122, a square with the EJB network 124, and a star/asterisk 
with the transaction network. These non-numerical indicia correspond to those set forth in Figure 3. As different actions 
are performed at different tiers in the present invention, the non-numerical indicia provide an easy or visual means by 
which the operation of the different tiers can be indicated in Figure 3. 

Figure 2 shows a logic diagram in sequence structure for the Java® library objects used in the XrDrive system 
1 00 of the present invention. Generally, throughout the description of the XrDrive system 1 00 of the present invention, 
the prefix XD indicates "XrDrive." For example, in Figure 2 the steps/status indicators of XDError stands for XrDrive 
Error, and XDXML stands for XrDrive Extensible Markup Language. Likewise, the use of the term XDFile indicates 
XrDrive File as a Java® library object effecting and intermediating the file operations of the present invention. 

In Figure 2, the Java® system 200 allows operations to be performed on the metadatabase 202 and the operating 
system (OS) File System 204. Additionally, the XDFile object 210 may activate or instantiate the Database.Search 
object 216. The XDFile object 210 may be activated, or invoked, by the FileAction object 220. The FileAction 
object 220 may also activate the Database.Search 216 and Database.BigSearch 222 objects. Operations of the Java® 
library objects in the system 200 as shown in Figure 2 may be contingent upon the SessionSecurity object 224, which 
may instantiate or use the Database.Search object 216 and/or the Database.Transaction object 214. The SessionSecurity 
object 224 may return a separate object 226 to the UserData object 230. The Database object 236 may inherit or transmit 
from its Transaction 214, Search 216, and/or BigSearch 222 objects. 

The information generated may then be transmitted to the Database 202 for meta-information and the OS File 
System 204 for the actual data. If an error is generated during the operation of the Java® library object system 200, an 
XDError object 240 may serve to handle the error while a successful operation may be returned in the form of the 
XDXML object 242. In the Java® library object system 200 of Figure 2, the Database 202 may contain intelligence or 
programming for connection to SQL databases and the like. Options regarding the operations of the database 202 may 
be read from a configuration file. The Database object 236 may be able to connect multiple databases for redundancy in 
the case of repeated or redundantly archived information, or for functionality in order to connect to that database which 
responds most quickly to the requests and commands. 

The Database object 236 determines which database operation to perform and/or to which database to send 
operations based on the type of request it receives. For example, transaction requests may demand a separate database 
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from those of regular query and BigSearch 222 requests. In order to maintain more efficient operation, the Database 
object 236 generally sends session users to the same database whenever possible so that latency and database replication 
is not passed on to the user. 

The Database.Transaction object 214 is able to handle larger SQL statements such as those that would cause a 
load on the database. The Database.Transaction object 214 may spawn children classes that handle the transaction logic 
in order for more efficient operation. 

The Database. Search object 216 is designed to handle smaller SQL statements and has children classes for 
specific search types, such as those along anticipated and common fields or types of information. 

The Database.BigSearch object 222 handles larger, non-transactional SQL statements such as those used for 
reports in system accounting, monitoring, or otherwise. Children classes of the Database.BigSearch object 222 would 
handle specific large searches such as those that might be implemented on a monthly or other periodic basis. 

The FilelO object 212 inherits and overrides Java®'s data file object. The file object contains logic to engage 
multiple disks or resources for redundancy and/or functionality and contains the functionalities necessary to manipulate 
files on the OS File System 204. The FilelO object 212 may react to the JMS (Java Messaging Service) events triggered 
by events on the disks of the OS File System 204. 

Alternatively, one or more monitoring objects may be used to gather pertinent status information regarding the 
OS File System 204. When monitoring objects are used, the FilelO objects then query the common monitoring objects 
to determine the state of the system. In the present system, the monitoring object is denominated the Mount Point Status 
bean, or MPS bean, 534 (Figures 5 and 9). 

Additionally, disk level transactions are carried out by the FilelO object 212. Under the management of the 
FilelO object 212, user accounts are able to span or traverse several disks. The spanning of such several disks enables 
better recovery from failure should an error occur or system resources become unavai lable in an unpredictable manner. 
The XDFile object 210 uses FilelO 212 to handle the file system transactions. By using the Database.Transaction file 
object, the XDFile object 210 handles database file transactions. ? The XDFile object 210 coordinates transactions for 
both the FilelO object 212 and the Database.Transaction file object 21 4 to keep both synchronized and to handle failure 
should it occur. 

The UserData object 230 holds user data for a session of the XrDrive system. A session is basically a span of 
time for which a user engages the XrDrive system. Methods are included in the UserData object 230 to manipulate the 
user status, so that the activity may be monitored, as well as whether or not the user has logged in. 

The SessionSecurity object 224 uses web logic session mechanisms to create the UserData object 230. It does 
this by returning a separate object 226. The SessionSecurity object 224 authenticates a user's login and expires old 
sessions with re-direction of such old sessions to appropriate pages. 

The FileAction object 220 may have children classes and contain logic for determining request types such as user 
requests, administration requests, etc. Tests for file action requests such as quotas and permissions, etc., may also be 
handled by the FileAction object 220. The FileAction object 220 accesses the file methods in the XDFile object 210. 

The XDError object 240 reads a configuration file of error lists which gives each error an I.D. number. Such 
error lists preferably pivot on the language in which the X: Drive system 100 of the present invention is programmed. 
Such lists should also be able to pivot on the partner with which the X:Drive system 1 00 operates. Default values for the 
lists may be to XrDrive errors in the English language. The XDError object 240 preferably holds errors in a stack and 
returns any such errors from the stack. Additionally, the XDError object 240 preferably accepts new errors by code or 
by message. 
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The XDXML object 242 accepts an object and delivers as output an XML representation of a transaction or status 

requested by the user or client software. 

Figure 3 shows the data flow through the XrDrive system 100 of the present invention, particularly that as 

reflected by the tiered configuration shown in Figure 1 . From a starting point 300, a request is sent by HTTP POST/GET 

command at step 302. Web-DAV protocol may also be used and is currently considered preferable. The send request is 

implemented on the client 102 and is evaluated by the web server 120 as a request for static content in step 304. If the 

request is for static content, the file is served by the web server 120 at step 306, and the file is displayed at step 308 by 

the client 102. 

If at step 304 the request for static content is evaluated as negative, a proxy request is issued by the web server 
network 120 to the Java® application cluster 122 at step 312. The request is received by the Java® application cluster 
(J AC) 122 and submitted to a servlet at step 314. The Java® application cluster (J AC) 122 then parses the request 
header at step 316. The Enterprise JavaBean™ (EJB) network 124 then authenticates the request at step 318. If 
authentication cannot be achieved, process control is then re-directed to the re-login page via the J AC network 122 at 
step 320. If authentication succeeds at step 318, the JAC network 122 then parses the multi-part form data at step 324. 

The JAC network 122 then determines the type of request at step 326. The request is then submitted to the 
FileAction EJB 220 at step 328. The EJB network 124 then evaluates the request at step 330 in order to ensure that all 
the business rules and other applicable limitations are met, such as quota limitations, permissions, and the like. If the 
evaluation is successful at step 330, the EJB network 1 24 then submits the request to the XDFile EJB 210 at step 332 and 
on to the transaction processor 146. The appropriate actions are then taken via the transactional database 152 and the 
disk arrays 1 50. If the business rule evaluation 330 fails, an error may be generated and, as for other errors in the data 
flow process of Figure 3, a session error object 334 may be generated in a session error stack 336. 
•£„ In effecting the data transfer to the ultimate system resources 104, evaluation is made as to the operation in 

step 340. If the operation is not a data read operation such as a directory listing or file read, the error stack is checked at 
step 342. If an error has occurred, the error status is sent to the client 102 at step 344. The client 102 then accepts the 
transmitted XML code and renders the appropriate display for the user at step 346. If the error stack evaluation step 342 
does not reveal any error, a success message is generated at step 350, and the subsequently-generated XML is received 
by the client 1 02 and displayed by the user at step 346. 

If at the evaluation step 340, the operation is not a data read action, the error stack is checked at step 352 much in 
the same way as it was at step 342. If an error has occurred, the error status is sent to the client 1 02 at step 354. The 
error status message is then received as XML code by the client 102 at step 346 and displayed to the user. If at 
evaluation step 352 the error stack reveals no errors, the evaluation is then made by the EJB cluster as to whether or not 
the operation is a file read at step 360. If the operation is a file read, the data stream is converted to a network stream and 
transmitted as a file to the client 102 by the Java® application network 122 at step 362. The data is then accepted by the 
client 102 and served to the user at step 364. 

If at evaluation step 360 the operation is not a file read (see Figure 4), then by elimination, the action is a request 
for file metadata such as a directory listing indication of file attributes or the like. At step 366, the metadata retrieved 
from the database 152 is then translated into XML format by the EJB cluster 124. The XML data is then transmitted to 
the JAC network 1 22, which encapsulates the XML from the network and sends it on to the client at step 368. The JAC 
network 122 then sends the encapsulated XML to the client 102 for rendering and display at step 346. 

As indicated in the description above with regards to Figure 3, users utilizing the client system 102 to connect to 
the XrDrive system 100 do so via the public Internet and then submit requests and receive replies effecting or indicating 
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the user's requests. Requests for file manipulations, such as uploads, downloads, copies, moves and updates travel 
through each functional layer of the X:Drive system 100. 

The core of the EJB cluster, and as indicated in Figure 2, the XDFile EJB provides core effectiveness in the 
present X:Drive system 100. The XDFile EJB 210 is a multi-tiered component. The X:Drive system 100 stores file 
metadata (such as directory structure, file name, file attributes, etc.) in the database 152 for fast retrieval, sorting, 
searching, linking, and other capabilities beyond standard file systems. The actual file data is stored by the XrDrive 
system 100 in network-attached storage units or storage area networks such as those shown in Figure 1, the NFS disk 
arrays 150. 

To access files that exist in this hybrid environment (bifurcated between file information and file data), XrDrive 
uses the XDFile object 21 0 to manipulate both files and file data in two-phase committal transactions. Figure 4 shows 
the details of these transactions. 

In Figure 4, the XDFile EJB system 400 allows entry at any one of the five darkened triangles. If the action is to 
be a copy, entry is made at the copy entry point 402. If the action is a file read, entry is made at the file read point 404. 
If the action is a file write, entry is made at the file write point 406. If the action is a file delete, entry is made at the 
delete point 408. If the action is a file move, entry into the XDFile EJB 210 is at the move entry point 410. 

Beginning first with a file copy action beginning at the copy point 402, the evaluation of the operation occurs at 
step 420, where determination is made whether or not the action is a read transaction. If the action is a read transaction, 
program flow proceeds onto the read action and entry point 404. The corresponding database action 424 is then taken. 
As the action is a read transaction, the corresponding database record is read and evaluation is made as to whether or not 
the database action, in this case read action, has been successful at step 428. If the read action is not successful, the 
changes are then rolled back, if any, at step 432. An error is then returned at step 436 and the XDFile object awaits 
further instructions. If the evaluation at step 428 regarding the database action was successful, action can then.be taken 
on the actual file itself on the OS File System 204 at step 440. In the present case, the FileOS Action 440 is a read 
action, and the file may be read into a temporary buffer or other memory space. The FileOS Action is evaluated for 
success at step 444. If the FileOS Action step 440 was unsuccessful, a fatal error is returned at step 448, and the 
changes, if any, are rolled back at step 452. If the evaluation at step 444 was successful, evaluation is made as to 
whether or not the action was a copy read at step 456. If the action was a copy read, return is made to the copy entry 
point 402 at step 464 in order to perform the write portion of the copy function. If the evaluation at step 456 indicates 
that the action was not a copy read action, evaluation is made at step 468 to determine if the action was a move/copy 
action. If the action was a move/copy action, control is then directed towards the move entry point 410 via step 472 in 
ordertpdeletetheoriginal file as the success ofthe move/copy transaction at evaluation step 444 indicates the success of 
the file write step of the FileOS Action step 440. Program control is then turned over to the move/action entry point 410 
so that the original file may be deleted at its original location via the delete entry point 408. 

If the move/copy evaluation step 468 indicates that not only was the action not a copy read, it was also not a 
move/copy, then the action is committed to the system at the ultimate system resource level 104 at step 480 and an 
indication of success is then returned at step 484. 

Upon reaching the move entry point at 410, evaluation is made at step 490 to determine whether or not the 
transaction is a copy transaction. If it is a copy transaction, the program then enters and executes the copy entry point 
402. If not, the delete entry point 408 is activated to effect the remainder ofthe move transaction. 

Consequently, it can be seen that a variety of actions take place depending upon the state ofthe XDFile EJB 210 
at the database action 424 and FileOS action 440 steps. 
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In performing file reads and writes, simple one-step actions are taken because neither of these read or write 
actions are either copy reads 456 or move/copy 468 and so they fall into the system commit 480 and return a successful 
indication at step 484. The same is generally true for the one-step delete action. Consequently, whenever a user wants 
to read, write or delete a file, entry can be made into the respective entry points at 404, 406, and 408. Errors are returned 
when necessary. 

However, the copy action 402 and the move action 410 require multiple loops through the XDFile EJB 210 in 
order to effect their operations. For the copy function 402, the initial read must be made successfully with the evaluation 
step 456 then prompting the write step to occur by the return to the copy entry point at step 464. The read transaction 
step 420 is then evaluated in the negative and the write entry point/action 406 is invoked with the database action 
occurring at step 424 to write the new information to the transactional database 152 and, if successful, the FileOS write 
action for the data at step 440. If the file write is successful, the evaluation at step 456 as to whether or not the action is a 
copy read is answered in the negative as is the evaluation of the transaction as to whether or not is a copy transaction 
executed under the move action at step 468. The resources are then committed, temporary resources are released, and 
the success indication is returned at step 484. 

Consequently, for a copy transaction 402, the loop is first made through the read function 404 and then the write 
function 406. For the move action at entry point 410, a copy transaction is first executed with the two-loop operation as 
set forth previously. Upon completion of the copy action, the delete action 408 is implemented in order to erase the 
original file and its file data. Upon the third loop through the delete step 408, the transaction is neither a read under the 
copy command at step 456 nor a copy under the move command at step 468. Consequently, the move function has 
successfully completed, the system resources are committed at step 480, and a success indicator is returned at step 484. 

In Figure 5, an overview of the Java® architecture of the X:Drive system 100 of the present invention is shown. 
The Java® architecture 500 shown in Figure 5 may generally arise from the client 102. A file action container 504 has 
certain attributes and operations as do the other beans of the architecture 500. Contained within the file action container 
504 are a number of stateful, stateless, and entity beans, as well as other containers having other beans. The file action 
container 504 contains two stateful beans: a user date stateful bean 506 and a process request stateful bean 508. The 
user data stateful bean 506 has a user info entity bean 510 and a security stateless bean 512. 

The process request stateful bean 508 contains a single container, the XDFile container 520. The XDFile 
container 520 contains three (3) beans and a container. The three beans of the XDFile container 520 are: a database IO 
stateful bean 522, a file IO stateful bean 524, and an admin stateful bean 526. The container is a recovery container 530 
which contains a recovery IO stateful bean 532, a mount status stateful bean 534, a recovery admin stateful bean 536, 
and a recovery process stateful bean 538. 

As indicated by the nature of the beans carried by the containers, stateful beans generally carry information about 
the state of the bean, process, or otherwise as useful information for the ends and operations of the X:Dri ve system 100 
of the present invention. Stateless beans generally carry no state information, and entity beans are generally for 
information or identification only. As Java® beans are objects intended to carry both data and processes in association 
with one another, it is up to the operations of the X:Drive system 100 of the present invention to selectively and 
appropriately activate the beans and enable the proper actions to take place. The file action container 504 is shown in 
alternative representation in Figure 6. In Figure 6, a client 102 issues a user authentication request 602 and an operation 
request 604. The user authentication request 602 is passed into the user data stateful bean 506 in the file action container 
504. The operation request 604 is passed into the process request stateful bean 508. The user information entity bean 
510 then transmits information to a user information database 610, as does the security stateless bean 512. The process 
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request statefijl bean uses a first property file 612 that is loaded upon deployment of the XDFile container 520. The 
property file is loaded into the admin stateful bean 526 for use with the OS file system 204. A Java® transaction server 
620 may operate in conjunction with the database 152 as well as theOS file system 204 in order to process the operation 
request 604. The second property file 630 may be loaded by the recovery admin stateful bean 536 upon the bean's 
deployment. The recovery IO stateful bean 532 and the recovery admin stateful bean 536 both transmit information to 
the recovery queue storage buffer 640. The mount status bean 534 operates in conjunction with the mount status of the 
system 650. 

The recovery container 530 is called when once a failed resource begins to recover. Further description of the 
recovery process is given below. However, Figures 5 and 6 operate in tandem to show linearly (Figure 5) and 
organically (Figure 6) the structure and operation of the XDFile object 210. 

Figure 7 shows the detail of the XDFile database component. A transaction processor (such as Tuxedo from 
BEA) works in conjunction with the database transaction object 214 as well as the FilelO object 212 to provide a robust 
and reliable system. Both the database transaction 214 and the FilelO 212 objects include logic and/or programming to 
handle situations where database or disk array access cannot be guaranteed. The database.transaction object 214 handles 
the inherent doubt present in the system by using replicated or repeated clusters of databases. The replication process 
creates latency or delay, in the system. In order to accommodate this latency, the database transaction object 214 uses a 
session object (a data construct representing a user session on the XrDrive system 100) to determine if the user's request 
can be transferred, or replicated, from one database cluster to another, in case of future system failure. 

An important aspect with respect to the reliable operation of the X:Drive system 100 is the need to separate 
databases into functional groups. While the query database may be optimized for quick and small queries and while a 
transaction database might be optimized for fewer, larger, more time consuming updates, the database layer 236 in the 
X:Drive system 100 allows for associating SQL commands with different database clusters based on functionality. 
Additionally, the X:Drive database layer 236 is configured for consolidation and addition of databases on the fly. 

As shown in Figure 7, the SQL command 71 0 is issued and passed to a SQL command evaluator 712. A SQL 
evaluator determines the SQL type so that the SQL can be sent to the appropriate database type (that is, in the X:Drive 
system 100, the transaction database 150, the query database 152, or both). 

Upon determining the database type of the SQL statement 712, the database preference is evaluated at step 714 to 
determine if the user should be sent back to the same database. If the user is not to be sent back to the same database, the 
database currently bearing the least load is found in step,716, and query is then made in step 718 to ensure that the 
selected least-loaded database is still up, running, and available. If it is, a specification regarding the pooling of database 
resources is created 720 and transmitted to the database object 236. Database object 236 then takes the SQL command 
and passes it to the appropriate database, either the transaction database 150 or the query database 1 52 via associated 
connecting pools 730. 

If at step 718 the least loaded database is not available, an alternative database must be used and query is made at 
step 736 to determine whether or not the alternate database is up. If the alternate database is not up and the evaluation 
step 736 fails, additional databases may be queried or, as indicated in Figure 7, a fatal error may be generated at step 738. 
If the alternate database is up, a pool specification 720 is generated and passed to the database object so that the SQL 
command may be implemented upon the transactional 152 databases via the connection pools 730. 

If at step 714 the user must be sent back to the same database, query is made at step 740 to determine if that 
database is still up. If it is, the request is passed to the pool specification 720 where it is subsequently passed to the 
database object 236; on to the connection pool 730, and the appropriate database, either the transaction database 150 or 
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the query database 1 52. If the same database is not up and the evaluation at step 740 fails, an alternative database must 
be used, but the SQL request is queried at step 744 to determine if the SQL command is transferable to the alternate 
database. If not, a fatal error occurs at step 746. If the SQL command is transferable, query is made at step 750 to see if 
the alternate database is up and active. Should the evaluation fail, subsequent databases may also be queried if the SQL 
command is transferable. However, as shown in Figure 7, if the second database is unavailable, a fatal error may be 
generated at 746. Otherwise, the database is up, and the evaluation at step at 750 is successful and the command is made 
available to the database object 236 via the pool specification standard 720 and on to the databases through the 
connection pools 730. 

In order to ensure proper operation of the XDFile database object 210, a database status monitor 760 persistently 
and on-goingly queries the databases 150, 152. The status is then returned to a database status object 762. the database 
status object may provide information to the recovery container 530 of the XDFile object 210. 

The recovery mechanism for the X:Drive system 100 of the present invention is shown in Figure 8. The FilelO 
object 212 uses a recovery object such as the recovery container 530 to handle write transactions 406 (as opposed to read 
transactions 404) when the transaction processor 214 fails. The recovery object is transparent to the user, making it 
easier and more convenient for the user to use the XrDrive system 100 while decreasing the concern that such a user 
would have in case of a power outage or other failure in one part of the XrDrive system 100. 

The FilelO object 212 reports an error to the user, but informs the user that her request was stored in the X:Drive 
system 100 and that the X:Drive system 100 will try to apply the change as soon as possible. If the storage unit, 
represented as a mounting point in the EJB cluster becomes unavailable for write transactions 406, the monitoring 
client 760 updates the EJB network 124 that the status of the mounting point is "down." Once the mounting point is 
available and checked for data integrity, the status is updated from "down" to "recovery" and the recovery object 530 is 
called to apply all queued requests for the file action container 504. This keeps the user from catastrophically losing 
uploads and other file writes, but may cause some delay in file reads. 

In die recovery system 800 of the present invention, the multi-connected pooled database object, the 
recovery-enabled FilelO object 212, and the transaction processor 146 work together to create a resource layer offering 
high availability, recovery, and scalability. Additionally, this resource layer (encapsulated in the XDFile EJB 210) lends 
itself to replication of the data, both geographically and locally. Such replication preferably has the three essential traits 
of being off-site, application-driven, and accessible. With this level of controlled replication, secondary X:Drive clusters 
are enabled in geographically diverse locations in order to enhance the reliability of die XzDrive system 100. 
Consequently, data loss from one data center or even the physical loss of an entire data center would not cause loss of 
customer data or access; Re-direction would occur dynamically and this information would be replicated in a plurality of 
sites across the XrDrive system 100, the query or metadata databases provide multiple pointers to die user's data. 

> In the recovery system 800 ©f Figure 8, the recovery system is initially initiated when the MPS Bean 534 is set for 
a mode to detect mount point recovery at step 804. At step 804, a recover method is called and the external mount point 
is checked. Query is made at step 806 to evaluate whether or not recovery is already occurring. If recovery is already 
occurring, an exception is thrown at step 808 and exit is made at this finish point. If recovery is not already occurring, a 
list of mount points in recovery mode is generated in step 81 0. Additionally, at step 81 2 a list of mount points which are 
down is also generated. Query is made at the evaluation step 818 as to the presence of available recovery objects in the 
recovery queue. If no such objects are available in the queue, the disk or other database is set into the **up" mode at step 
820. The queue for that disk is then unlocked in step 822, and the recovery process is complete at step 824. If at 
evaluation step 818 recovery objects are still in the queue, evaluation is made as to whether or not the system has gone 
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past the lock count at step 830. If so, the queue for the disk in recovery is locked at step 832 for both the lock count 
evaluation 830 and the queue lock 832 step, control is then directed to the evaluation step as to whether or not the target 
file exists 834. If the target file does not exist and the evaluation at step 834 fails, the recovery object is removed from 
the queue at step 840. The status of the recovery is subsequently put in the request for alert queue at step 842 and return 
is then made to the query step 818 to determine whether or not objects are still available for recovery in the queue. 

If the target file does exist when evaluated at step 834, evaluation is made as to whether or not the request is more 
current than the file at step 850. If the request is older than the current file, the recovery object is removed from the 
queue at step 840, and the status for the request is put in the request or alert queue 842 and control returns back to the 
evaluation step 818 to see if any further recovery objects are available in the recovery queue. 

If, in evaluating the request, it is found that the request is more current than the file, the request is submitted to the 
XDFile object 210 at step 852. The submission of the request to the XDFile object 210 is not recoverable. If the 
submitted request is successful as indicated by the evaluation at step 854, the recovery object is removed from the queue 
at step 840, its status is put into the request for alert queue at step 842 and evaluation is made at step 818 as to the 
presence of any additional recovery objects in the recovery queue. However, if in submitting the request to the XDFile 
object 210 at step 852 the submission fails, query is made at step 860 as to whether or not the mount point has gone 
down. If at step 860 the mount point is still up, the request from this mount point is ignored at step 862 and the queue 
for the disk is unlocked at step 864. Control of the program is then returned to the recovery object availability query in 
evaluation step 818. 

As shown in Figure 9, the mount point status bean 534 has UP, DOWN, and RECOVERY states. This bean is 
applicable to the file database 150, as well as user disks 970, 972 as well as recovery disks 974, 976. Additionally, the 
recovery admin stateful bean 536 is directed towards the recovery database 980 in order to effect the recovery process 
800. 

In order to effect virus scanning and repair features, the X:Drive system 100 preferably uses the Java® JNI (Java 
Native Interface) to access a Norton Ami- Virus or other dynamically linked library (NAV.DLL) to scan files for viruses 
via a Java® servlet. The Java® servlet runs on a Windows™ version x server and can use JNI to make calls to the 
NAV.DLL dynamically linked libraries. In effect, the Windows™ X machine becomes a specialized NAV.DLL server 
located at the EJB network layer 124 of the X:Drive system 100, on a sub-network of the resource network. The logic 
integrating the NAV.DLL dynamic linked libraries with all XrDrive file writes is shown schematically in the flow 
diagram in Figure 10. 

As shown in Figure 1 0„the virus scanning sub-system 1000 takes the file/transaction ID 1002 and a transaction 
ID 1004 from a user 1006. The file/transaction ID 1002 is passed toa file write process 1008 executed by a SUN® or 
other web server 1010. The file is written to both the database genetically indicated at reference 1020 and to a temporary 
file storage area 1022. The file write process 1008 passes the file transaction ID to the Norton Anti-Virus (NAV) 
process 1024. Within the NAV process 1024 is NAV scanner 1026. The NAV scanner monitors the data stream or 
otherwise to determine and detect the presence of any viruses. If upon evaluation the NAV process 1024 detects a virus 
at evaluation step 1028, data sink action is taken with respect to the database 1020. If no virus is detected, the sequence 
moves to its final termination at step 1030 and data sink action is taken with respect to a temporary file on medium 1032. 

While both the file and transaction ID 1002 are delivered to the file write process 1008, the transaction ID alone 
1004 is transmitted to a fetch location info step 1040 on a SUN® or other web server 1010. The fetch location info step 
1040 transmits its results to an evaluation step 1042, which determines whether or not the file is in the temporary storage 
area 1022. If the file is in the temporary area, the file's upload status is shown in step 1044. If the file is not in the 
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temporary medium 1022, virus information is fetched at step 1050 in the file status process 1036. 

Once the virus information has been fetched, it is evaluated as to whether or not there is a virus present at step 
1052. If there is no virus detected, then the virus evaluation terminates and a display of same may be made at step 1054. 

However, if evaluation step 1052 indicates the presence of one or more viruses, a plurality of virus options may 
be shown and presented to the user at step 1 060. Among the virus options available are: the cleaning of the virus at step 
1 062, moving the virus to a different location at step 1064, and/or deleting the virus in step 1066. If step 1064 is taken 
with the move of the virus-laden file despite its infectious nature is made, movement of the file with its final destination 
is made in step 1070. 

As shown in Figure 10, a number of data sink actions are taken with respect to information. Additionally, as 
indicated by Figure 10, the NAV process 1024 is a separate entity and may be considered to be a JAVA® 
servlet/daemon living on specialized Windows® NT or other servers. 

In order to make resources available on an on-going basis to the virus scanning sub-system 1000 of the present 
invention, a chron file 1074 (a file executing commands on a periodic basis according to the time) is used to remove old 
files from, a first temporary storage resource 1 002. 

Figure 1 1 shows the Skip the Download/Save to My Xdrive system where a file on the Internet can be transferred 
over to an individual's X: Drive at generally data speeds far faster than those available to the end user. This allows the 
user to exercise dominion and control over the file without having to bear the burden of downloading it to the local 
computer at the present moment. Once the transfer has taken place across the Internet from the host to the XiDrive 
system 1 00, then the user may download the file stored in his X:Drive directory to his local computer at his convenience. 

As X:Drive exists on the Internet network, transferring a file from one network resource (such as a web or FTP 
server) to the user's XrDrive is made much faster from the user's standpoint by by-passing the local connection to the 
user and allowing the user to submit the transfer request directly to the X:Drive network for execution. The X: Drive 
system 100 then downloads the requested data from the target server to the user's XrDrive over the presumably higher 
speed connections of the public Internet 

As shown in Figure 1 1 , the Save to My Xdrive system 1 1 00 first has the user 1110 submit the URL at step 1 1 1 2. 
In order to access the XtDrive system 100 of the present invention, the user submits the URL as well as his or her user 
name and password at step 1114. Upon submitting the URL and the appropriate verification information, evaluation is 
made of the information for authentication purposes at step 1 1 16. If the evaluation fails and authentication is not 
achieved, a login form is displayed in conjunction with the previously-indicated URL at step 1 1 18. If die request is 
authenticated, it is submitted to the STD/STMX (Skip the Download/Save to My Xdrive) queue 1132 at step 1130, 
A status process is then spawned at step 1 134. 

Save to My Xdrive status is then checked on an on-going basis by using the queue in the temporary^torage area 
at step 1 136. Query is made as to whether or not the transfer is complete at step 1 140. If the transfer is complete at step 
1 140, then the successful completion is indicated to the user at step 1 1 42. However, if the transfer is not complete, query 
is made as to the presence of any transfer errors at step 1 146. If an error has occurred, an error message is displayed to 
the user at step 1 148. However, if the transfer is incomplete but no errors have occurred, the same is then displayed to 
the user at step 1150, and a short pause is taken at step 1 152 for re-invoking the check STD process at step 1 136. 

Once the STD queue 1 132 receives the request, a daemon process processes the request from the STD queue at 
step 1160. Query is made as to the business logic of the queued request at step 1162. If the request fails the business 
logic check 1 162, the status is updated at step 1164. Control may transfer back to the STD queue 1132. 

If the business logic check succeeds at step 1162, the URL site is contacted by the X:Drive system 100 at step 
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1 1 70 and the download process is activated. The data transmitted by the URL is then saved in temporary XrDrive space 
in step 1 172, with the data being transferred then to the user data space at step 1174. The URL site 1180 may exist 
anywhere on the Internet so long as it is available to the X.Drive system 100. In a similar manner, a temporary storage 
space 1182 may also exist anywhere on the Internet so long as it is accessible and controllable by the X:Drive system 
100. 

Upon transferring data to the user's data space as shown in step 1174, query is made as to the success of the 
transfer at step 1188. For either success or failure of the successful file transfer at evaluation step 1 188 the status is 
updated at step 1 164 and is passed on to the STD queue 1 132 until either success or an error is finally achieved The 
status process spawned at step 1 130 monitors the update status generated by step 1 164 and displays the status to the user 
dunng and after the download of the file from the Internet to the user's XrDrive system. 

Figure 12 shows a schematic and flowchart diagram for the client system generally used under Microsoft® 
Wmdows™ for achieving the present invention. The XrDrive system offers its clients two basic services- a file access 
serv.ce by which files can be uploaded and downloaded to and from X.Drive, as well as a file manipulation service from 
wh.ch file metadata can be obtained and manipulated. Both of these services rely upon the context of their usage For 
example, the web client of the present invention uses native upload and download features as well as dialogs in the user's 
web browsers to facilitate the service. 

With the use of the web browsers on the local machine, Windows® X clients use the Windows™ TCP/IP stacks 
inherently present with the Windows® version X operating system. All the file transfers effected by the XDrive system 
can take place as HTTP POST/GETor, preferably, Web-DAV transfers. Generally, two basic .ayers are present in the 
file man.pulation servers of the XrDrive system 100 of the present invention. An XML parser operates in conjunction 
with an XML data displayer. By coordinating the two basic layersof the file manipulation service, the server is able to 
respond with generally the same XML code to all clients. The client is then responsible for converting the XML to a 
relevant data structure and displaying the XML in an appropriate context. In Represent invention, the JavaScript web 
client receives the XMLcodeand parses it into a JavaScript data structure. A display layer in association with the client 
and/or browser renders the data structure as an HTML document The Windows® X client parses the same XML code 
but the display layer renders the data structure into a device listing that is understood by the Windows® version X 
operating system. The importance of this layered architecture is that it generally makes trivial the creation of new 
clients. Instead of simply creating dynamic web pages (and thus limiting service to web browsers alone), the X.Drive 
system lOOcan enable many platforms, such as operating systerr«, withow altering me server stn.cau^ Most platforms 
come wi* some sort qf XML parsing layerc^ ^ 

the time to market may generally be considered low and efficient establishment and implementation of the XrDrive 
system 100 of the present invention can be achieved fairly quickly. Additionally, expansion into new platforms 
generally becomes much quicker as no alteration of the server structure generally needs to occur as Java® and related 
program functionalities are highly portable from one system to another. 

In the client system 1200, as shown in Figure 12, the client 102 has a file access service 1202, including a request 
processing layer 1204 coupled to a network I/O layer 1 206. Commands and data are then transmitted to the server side 
of the XrDrive system 100 where the server side request processing layer 1210 transmits the data to a query evaluating 
whether or not the request is one for metadata at step 1212. If the evaluation fails and the request is not one for 
metadata, the network I/O layer 1216 and the resource access layer 1218 are invoked in order to provide access to and 
operation of the transaction database 152. 

If the request for metadata query at step 1212 succeeds, the request is passed on to the resource access layer 1218 
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and on to the XML generation layer 1220. The response to the request from the metadatabase 1 50 is transmitted to the 
file manipulation service system 1230 of the client 120. The XML transmitted by the XML generation layer 1220 is 
received by the file manipulation service 1230 as well as its XML handler 1232. The XML is then passed on to the 
XML parser layer at step 1234 to arrive at a data structure 1236 that is then ready for display and so is passed on to the 
data display layer 1238 for display to the user who may then re-initiate the process by implementing the file access 
service 1202. 

Figure 13 shows the X:Drive system 100 as implemented on a Windows™ X machine, in this case, a Windows 
•98 machine (an Intel-based personal computer running the Microsoft Windows f 98 operating system). 

The second frontmost window 1310 of Figure 13 is headed by the inscription "My Computer" and shows the 
presence of a drive at logical letter X: 1312 with the X:Drive logo and the label www.xdrive.com (X:). This is an 
example of the user interface provided by the client application. The X:Drive system is transparent to the user and 
functions as any other drive present on the system. 

If the user were to click on or activate the X;\ drive on the My Computer window 1310, the second window 1320 
appears (partially obscuring the "My Computer" window 1310) and shows the listing under the X:\ Drive. The address 
of the window 1320 shows the location of the directory as being at X:\ 1322. 

Also shown in Figure 13 is the desktop icon 1330, the start menu icon 1336, and the system tray icon 1340. 
These icons accompany the client program 102 and provide greater functionality for the user. Each icon serves to 
activate the client program in accordance with user-settable preferences. 

Figure 13 also shows the web-based application 1350 in the background, behind the My Computer 1310 and X:\ 
1320 windows. The web-based application window 1350 is shown in Figure 14. Note should be taken of the exact 
correspondence between the directory structures of web-based application window 1350 and the client-based application 
window 1320. This correspondence provides the user with a uniform, familiar, and dependable interface upon with the 
user can rely. 

As set forth above, the three accompanying Appendices are incorporated herein in their entirety, as is the 
previously filed provisional application. 

While the present invention has been described with regards to particular embodiments, it is recognized that 
additional variations of the present invention may be devised without departing from the inventive concept. 

INDUSTRIAL APPLICABILITY 

It is an object of the present invention to provide a Shared Internet Storage Resource on which users may store 
and retrieve files to make them available to themselves, or possibly others, throughout the Internet. 

It is an additional object of the present invention to provide all manner of file access and control generally 
available to flies local to the users for such Internet-stored files. 

It is an additional object of the present invention to provide an easy-to-use and readily understood user interface 
through which files may be stored, retrieved, and manipulated on the Internet. 

It is an additional object of the present invention to gather metadata regarding such files and to store such 
metadata in a database. 

It is yet another object of the present invention to provide a plurality of means by which Internet-stored files may 
be manipulated and controlled. 

It is yet another object of the present invention to provide a browser-based access to Internet-stored files. 
It is yet another object of the present invention to provide stand-alone application access to Internet-stored files. 
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It .s yet another object of the present invention to provide means by which Internet file, may be stored on an 

Internet resource by a direct Internet-to-Internet transfer subject to the control of a remote or limited-resource user 
These and other objects, advantages, and the industrial utility of the present invention will be apparent from a 

review of the accompanying specification and drawings. 
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Web Site/Server Code 

###addspacexgi 1 

###client_infoxgi 9 

###cookiexgi 12 

###download_clientxgi 19 

###emai1_change.cgi 21 

###errorxgi 23 

###explorer.cgi 24 

###explorer_user_dataxgi 28 

###fileJoadxgi 30 

###file_savexgi 34 

#! fi!e_upload_statxgi 36 

###folder_createxgi 42 

###forgot_passwordxgi 44 

###forgot_usernamexgi 47 

###frame_j>enericxgi 50 

###get_a shared_filexgi .„.. 52 

###get_a_shared_file_downloadxgi 54 

###login.cgi 57 

###logoutxgi 65 

###navbarxgi 66 

###password_changexgi 68 

###promoxgi 71 

###removespace.cgi 74 

###selected_deletexgi 79 

###selected_rename.cgi 80 

###settings_savexgi 82 

###share_a_file.cgi 85 

###signup_accountxgi 91 

###signupform.cgi 105 

###signup_successxgi 1 1 1 

###signup_tocxgi , 1 13 

###skip_the_downloadxgi 1 15 

###skip_the_download_statusxgi 122 

###tell Ji_friendxgi 1 3 1 

###web_unauthorizedxgi 135 
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###addspace.cgi 

# ! /usr/bin/perl 

#################################################### # # ###############3 
## addspace . cgi - processes additional space requests using Epoch's 
## do_approval library function 
#§ written by Karen Eppinger 

################################################## ############t######3 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use XDrive :: Error; 

use XDrive: :DatabaseO; 

use XDrive: :DatabaseO: : Table: : Deal; 

use XDrive: :DatabaseO: : Table: : Item; 

use XDrive: :DatabaseO: : Table: :UserData; 

use XDrive: :DatabaseO: : Table: : DiskAccount ; 

use XDrive : :Client :: Actions; 

use XDrive: : Client :: Quota ; 

use XDrive :: Sale: : Purchase; 

use Mail: : Sendmail; 

use CGI:: Carp qw ( f atalsToBrowser) ; 
use CGI; 

use XDrive :: Template; 
use XDrive:: CGI qw(:MAIN); 
use XDrive :: Client :: Security; 
use XDrive: : CGI: : Cookie; 
use EpochClient_ssl; 

use strict; 

$ENV{ ■ PATH 9 } « '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
Smain ( ) ; 



########################################################### ##############t## 

## main: main function calls all others 

## 

## 

sub main 
{ 

##the hash that will be filled in and send to the Epoch function 
my %hData; 

my $oCGI = CGI->new(); 

my $oErrors = new XDrive: : Error; 

my $oDBH = XDrive :: DatabaseO->new {) ; 

my $oCookie = XDrive: : CGI : : Cookie->new { * x_jsession_inf o ' , $oCGI) ; 
#### 

## Validate the user and if an error happens during 

## the validation process die redirect to the error cgi 

#### 

my $oToken = xd_security — check <$oDBH, SoCGI , $oErrors) ; 
if ($oErrors->Occurud) 
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{ 

xd_f atal_error ( SoCGI , $oErrors ) ; 
} 

$hData{ 'ipaddr 1 } = $oCGI->remote_addr { ) ; 

if ($hData{ ' ipaddr * }=~/^192 . 168 . 2/) 
{ 

$hData{ 'ipaddr' }='0. 0.0.0' ; 

} 

my $sUserNarae = $oToken->data ( 1 user • ) ; 
# my $sPartnerCode = $oToken->data { ' partner_code 1 ) ; 
my $sPartnerCode = $oCookie->getElement (' partner ') ; 
my $oTemplate = new XDrive :: Template 
({ 

•partner_code' -> SsPartnerCode 
}); 

##used to figure whether to give user the form or process the form 
my $sAction = $oCGI->param { "action" ) ; 

## if the action is a request type, we give the user the form 

if {$sAction eq 'process') 

{ 

##get the date from the form already pre-screened by javascript 
my $returnValue = GetFormData { \%hData, $sUserName, $oCGI , $oDBH) ; 
if ($returnValue) 
{ 

##call the Epoch function that processes the transaction 
my $sReturnCode = do_approval <%hData) ; 

##if we've been approved $return will contain a number that 

##7 characters and starts with a Y followed by 7 digits 
##only change user's quota if approved 

##else let them know there was a problem; all problems 



start with N 
tranactions 



##return code could be logged in our database to track 

##truncate expressions longer than 32 characters 

if (length ( $sReturnCode ) >32 ) 

{ 

SsReturnCode = substr ($sReturnCode r 0, 32) ; 
> 

if ($sReturnCode— m/^Y/) 
{ 

##if transaction went through, give them more space 
#4 and show them the ok screen 
my $error - 

&WriteToPurchaseDatabase($sReturnCode, \%hData, $sUserName, $oDBH) ; 

if ($error) 
{ 

&TransactionOK($sReturnCode, 
\%hData, $sUserName, $oTemplate, $oDBH, ?oToken, $oCGI, $oErrors) ; 

$oDBH->commit ( ) ; 

} 

else 
{ 

4#error inserting into the database 
&TransactionBad( • 141 • , $oTemplate, $oErrors) ; 
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$oDBH->rollback ( ) ; 

} 

} 

elsif ($sReturnCode==~m/'W) 
{ 

##tell them there was a problem 

##for some reason we get this returned with 

$sReturnCode=-s/~//; 

my $error = 

&WriteToFailedDatabase(S S ReturnCode, \%hData, $sUserName, $oDBH) ; 

STransactionBad ($sReturnCode, $oTemplate, $oErrors ) ; 
$oDBH->conunit ( ) ; 

) 

else 
< 

##There was a problem connecting to server 
my $error = 

&WriteToFailedDatabase ( ■ COULDNOTCONNECT\n • , UhData, SsUserName, $oDBH) ; 

&TransactionBad( ' COULDNOTCONNECT\n f , $oTemplate, $oErrors) ; 

$oDBH->commit ( ) ; 

} 

> 

else 
{ 

##this is someone trying to use the 
llbogus card numbers and isn't one of us 
##don't bother writing to database because 
##it is caught before going to Epoch 
^ &TransactionBad( ' NMYBADCARD\n ' , SoTemplate, $oErrors ) ; 

$oDBH->disconnect ( ) ; 

} 

elsif ($sAction eq 'intro') 
{ 



rs) 



&ShowIntroPage ($oTemplate / $sPartnerCod e/ $sUserName, $oToken, $oCGI, $oErro 
} 

else 
{ 

&ShowForm($oTemplate, $sUserName,$oErrors) ; 

} 

exit; 



} 



#####$############^ 

## GetFormData: Fills in the hash that is required by Epoch's function 

## Fill m one field at a time because not all fields on the page should go 

## into hash plus a few fields don't come from form 

sub GetFormData (\%, $,$,$) 
I 

-my $hData - shift; 
my $sUserName =shift; 
my $oCGI = shift; 
my §oDBH » shift; 

my $ value = 1; 

ttthese are mandatory to process the tranaction 

##javascript checks insure users fill the fields with the proper data 
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$hData->{ 'transtype' )=' approve' ; 
$hData->{ ' co_code' }='xdr ' ; 

$hData~>( 'pi^code' >= $oCGI->param ( "pi_code" ) ; 
$hData->{ , cardnum , }= $oCGI->param ( "cardnum" ) ; 
$hData->{ ' cardexp ' }=$oCGI~>param ( "cardexp" ) ; 

tisomeone is trying to access from a site other than ours and use the 
free credit card 

if ( ($hData->{ 'cardnum' } eq ' 4 12137 1122223333 ' ) II ($hData-> { • cardnum ' } 
eq M111111111111H4 ' ) ) 
{ 

if ($hData->{ 'ipaddr' } ne '0.0. 0.0') 
{ 

$value=0; 

} 

} 

ffnot required but used to check for fraud 
$hData->{ 'cardname' }= $oCGI->param ( "cardnarae" ) ; 
$hData->{ 'street 1 }=$oCGI->param ( "address" ) ; 
$hData->{ 'city' } =$oCGI->param( "city") ; 
$hData->{ 'state' } =$oCGI->param ( "state" ) ; 
$hData->{ 'zip' } =$oCGI->param ( ,f zip" ) ; 
$hData->{ 'phone' } =$oCGI->param ( "phone" ) ; 

##get email out of the database 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: Dis kAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere { ' USERNAME' , $sUserName) ; 

my SsUserSeq = $oDiskAccount->f etchColumn ( • USER_SEQ' ) ; 

$oDiskAccount->f inish ( } ; 

ray $oUserInfo =» XDrive :: DatabaseO: : Table :: UserData->new (undef , $oDBH) ; 
$oUserInf o->loadWhere { • SEQ' , $sUserSeq) ; 

$hData->{ 'email' }«$oUserInf o->f etchColumn < ' EMAIL_ADDRESS 1 ) ; 
$oUserInfo->f inish ( ) ; 

return $value; 



#########################################*########§######################### 
## ShowIntroPage: called to show the intro page 
% ft 

#############i######i######m 

sub ShowIntroPage ($,$, $) 
{ 

my $oTemplate = shift; 

my $sPartnerCode = shift; 

my $sUserName = shift; 

my $oToken = shift; 

my $oCGI = shift; 

my $oErr = shift; 

ray ($nUserSeq, $oUserData) ; 

my $oAction = new XDrive : rClient :: Actions ($oToken, SoCGI) ; 
my SquotaAvailable = $oAction->QuotaFree ( ) ; 
$quotaAvailable = sprintf ( w %2 . 2f ", $quotaAvailable/1024 ) ; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 

>new (undef, undef ) ; 

$oDiskAccount->loadWhere ( ' USERNAME ' , $sUserName) ; 
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my $nUserSeq = $oDiskAccount->f et chColumn ( "USER SEQ" ) ; 

my $oSearch = XDrive : : DatabaseO: : Search->new {$oDiskAccount- 
>fetchDBO() ) ; 

my $items = $oSearch->XDGet ItemsForSale ( $nUserSeq) ; 

my $itemString=' ' ; 
my $i; 

for $i <0. . $#{$items} ) 
{ 

##now using the code, get the description for the item in the 
##proper language- This is kept in List.pm 
my $code = "EPOCH_$items-> [$i] [ 1] ; 

my ^description = $oErr->ReturnMessageGivenCode ( $code) • 
^ SitemString .= "<LI>$description" ; 

## Load the required template HTML files. 
$oTemplate->load ( • addspace_intro . thtml • ) ; 
$oTemplate->tags 
({ 

•products' => $itemString / 
•quota' => $quotaAvailable 
}); 

$oTemplate->clear; 

print "Content-type: text/html\n\n" ; 
print $oTemplate->get { ) ; 



tl*lV*i* *##**#f########################################### ################# 

#t ShowForm: called to show the user the blank form 
## 

ftM*ffflt»l#f»t#ittfHff«fHiHffllltl|fHfffttHfttflfllfffn»r»iHi|ffiti|| 

sub ShowForm {$,$) 
{ 

my $oTemplate = shift; 
my $s User Name = shift; 
my $oErr « shift; 

V 

my $oDiskAccount - XDrive :: DatabaseO: : Table: : Dis kAccount - 
>new (undef , undef ) ; 

$oDiskAccount->loadWhere ( ' USERNAME' , $sUserName) ; 
my $nUserSeq = $oDi s kAccount ->fet chColumn ( "USER^SEQ") ; 

my $oSearch - XDrive :: DatabaseO: : Search->new ($oDiskAccount- 
>fetchDB0( ) ) ; 

my $items = $oSearch->XDGetItemsForSale ($nUserSeq) ; 
>fetchDBOO) > ; al " XDrive::Database0::Table::Deal -> n ^(undef, SoDiskAccount- 

my $itemString=' • ; 
my $i; 

for $i (0. .$#{$items) ) 
{ 

$oDeal->loadWhere("ITEM_SEQ", $items->[$i] [0] ) ; 

my $pi_code = $oDeal->fet chColumn ( "PRODUCT CODE"); 

my $code = • , EPOCH_$items-> [$i] [1] «• ~* 

my ^description = $oErr->ReturnMessageGivenCode ($code) ; 
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if ($i = 0) 
{ 

$itemString .= '<input type="radio" name= f, pi_code" value="' . 
$pi_code . • " CHECKED> ■ . $description . '<BR>'; 
} 

else 
{ 

$itemString .= '<input type=" radio" name= tt pi_code" value="' . 
$pi_code . , ">' . $description . ^BR^; 
> 

} 

$oDeal->disconnect ( ) ; 

## Load the required template HTML files. 
$oTemplate->load { ' addspace_request . thtml ' ) ; 
$oTemplate->tags 
({ 

'products* => $itemString 
)); 

$oTemplate->clear; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get () ; 

} 

#t#»#ft#i#««ff###it*f*ff#«#*#*###*t***##**t-t#**#*###t##*ttt#«t*t*#**#*#**#*t#« 

## WriteToFailedDatabase: if the transaction fails write it to the failed 
## transactions table 

############################################################################ 

sub WriteToFailedDatabase ($, \%, $, $) 
{ 

my $sTransCode = shift; 
my $hDash = shift; 
my $sUserNarae = shift; 
my $oDBH = shift; 

my Uranslnfo; 

f#write transaction info into database 

my $oDiskAccount = XDrive :: DatabaseO: ; Table :: Dis kAccount- 
>new(undef , $oDBH) ; 

$oDiskAccount->loadWhere ( • USERNAME • , $sUserName) ; 

$transInfo{ 'use^seq' } = $oDiskAccount->f etchColumn ( , USER_SEQ f ) ; 
$oDiskAccount->f inish { ) ; 

$transInfo{ ' trans_code • > = $sTransCode; 
$transInfo{ ■ product_code ' } » $hDash->{ 'pi_code' }; 
Stranslnfoi 'TP* } » $hDash-> { • ipaddr ' } ; 

my $intoDB = XDrive :: Sale :: Purchase->new ($oDBH) ; 

my $error = $intoDB->FailedTransaction (\%transInfo) ; 

return Serror; 

) 

###################################################################***###### 
## WriteToPurchaseDatabase: write the user transaction info to th 
user_pur chase 
## table 

#######################################################*####«############### 
sub WriteToPurchaseDatabase ($, \%, $, $) 
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my SsTransCode = shift; 
my $hDash = shift; 
my $sUserName = shift; 
my SoDBH = shift; 

my Itranslnfo; 

##write transaction info into database 

my $oDiskAccount « XDri ve :: DatabaseO :: Table :: Dis kAccount- 
>new (undef , $oDBH) ; 

$oDiskAccount->loadWhere( • USERNAME * , $sUserName) ; 

$transInfo{ 'user^seq* } = $oDiskAccount->f etchColumn ( • USER SEQ ■ ) • 
$translnfo{'account_seq'> = $oDiskAccount->f etchColumn (■ USER SEQ-)- 
$oDiskAccount->finish ( ) ; - 
$transInfo( 'trans_code' } = SsTransCode; 
$translnf o ( , product_code 1 } - $hDash-> { 'placode 1 } ; 

my $intoDB - XDri ve :: Sale :: Purchase->new ($oDBH) ; 
my $error = $intoDB->Checkout ( \%translnf o) ; 
return $error; 

} 

ff* TransactxonOK: if the tranaction was processed and ok'ed, we add the 
proper space to the 

## user's xdrive and let them know the space has been added 
#######################^ 

sub TransactionOK($, \%, $,$) 
{ 

my $sTransCode = shift; 
my $hDash = shift; 
my $sUserNan»e - shift; 
my $oTemplate = shift; 
my $oDBH = shift; 
my $oToken = shift; 
my $oCGI = shift; 
my $oErr = shift; 

my $oDiskAccount - XDrive: : DatabaseO :: Table :: Dis kAccount- 
>new (undef, $oDBH) ; 

$oDiskAccount->loadWhere ( ' USERNAME $sOserName) ; 
my $userSeq= $oDiskAccount->f etchColumn ( • USERSEQ* ) ; 

my @aCodes=split (/\|/, $sTransCode) ; 
$aCodes[l)=- s/-//; 
my $sNewQuota; 
my SsAddedSpace; 

my $oDeal - XDrive :: DatabaseO: : Table :: Deal->new (undef , $oDBH) • 
$oDeal->loadWhere ( • PRODUCT_CODE • , $hDash-> { ' pi_code • ) ) ; 
my $itemSeq = $oDeal->f etchColumn (• ITEM_SEQ' ) ; 

my $oItem = XDrive :: DatabaseO: : Table :: Item->new (undef , $oDeal- 
>ietchDBO ( ) ) ; 

$oItem->loadWhere ( 1 SEQ 1 , $itemSeq) ; 

my $sCode = w EPOCH_" . $ olt em- >f etchColumn ( 'CODE •) ; 
my $sDescription = $oErr->ReturnMessageGivenCode ($sCode) ; 

my $sSpaceToAdd - $oItem->f etchColumn ( * NAME' ) ; 

my SoAction = new XDrive: .-Client :: Actions <$oToken, $oCGI) ; 
$sNewQuota = $sSpaceToAdd + $oAction->QuotaLimit { ) ; 
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##now set: the new quota 

##in the database and in the ncftpd database 
##used during testing to reset occasionally 
##$sNewQuota = 25600; 

XDQuotaLimit ($sUserName, $sNewQuota) ; 

##insert into the spool to update ftp account 

## Load the required template HTML files. 
$oTeraplate->load( • addspace_ok. thtml 1 ) ; 
$oTemplate->tags 
({ 

' transact ionCode' $aCodes[l], 
•addedSpace 1 => SsDescription 
}); 

$oTemplate->clear ; 

print "Content-type : text /html\n\n" ; 
print $oTemplate->get ( ) ; 

} 

########t ######################«############################################ 
## TransactionBad: If we get an error code beginning with and N, it's a 
declined tranaction 

## get the error code and give user the bad tranaction page with error code 
########t################^^ 

sub TransactionBad ($,$ ) 
{ 

my $sTransCode = shift; 
my $oTemplate = shift; 
my $oErrors = shift; 

if ($sTransCode W\d+$/) 
{ 

##error codes contains 
$sTransCode="EPOCH_" . $sTransCode; 
chop ($sTransCode) ; 

) 

##$oErrors->AddErrorByErrorCode ($sTransCode) ; 

$oErrors->AddErrorByCodeIncludes ($sTransCode) ; 
my $sReturnError=$oErrors->Message($sTransCode) 

i f ( ! $sReturnError ) 

$sReturnError = "The was an problem processing your transaction. 
Please try again."; 
) 

## Load the required template HTML files. 
$oTemplate->load( • addspace_bad . thtml • ) ; 
$oTemplate->tags 
({ 

•error* => $sReturnError 
}); 

$oTemplate->clear; 

print "Content-type: text/htral\n\n" ; 
print $oTemplate->get ( ) ; 

} 
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###client_irifo.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

exit &raain; 

sub main () 
{ 

my $oCGI = CGI->new(); 

##get this info from Michael. Ryan's or Gavin's client 
my SsUsername - $oCGI->param ( ■ username ' ) • 

my $sClientType - $oCGI->param <• client type')- 
my $sClientVersion - $oCGI->param (' client version'}- 
my SbFirstTime - $oCGI->param ( ' f irstjirae ' ) ; 

##hash of NT info for current version of client 
##version 1.0 is 0 in the array of upgrades 
my %infoNT; 
my efeaturesNT; 

$infoNT{ 'current_version' } = '1.0 1 ; 
$infoNT{ 'force_upgrade' } = 0; 

Mh^^K 11 ^-" 1 ' 1 = ,htt P-'//www.xdrive.com/download/xdrivent exe ' ■ 

l^rT.o f "'.\T Ii,v " bsc=ript ln " hich UP9 " de is *•>* 

$featuresNT[0] [0] = 'beta release'; 

#S $featuresNT[0] {!] = 'First new feature'; 

## $featuresNT[0] [2] « 'Second new feature'; 

##hash of 95 info for current version of client 
ffversion 2.03 is 0 in the array of upgrades 
my %info95; 
my @features95; 

$info95 { 'current_version' } = '2.03'; 
$inf o95 { • f orce_upgrade 1 } = 0; 

nnf o95 ! ' 2^00 • r=^ ! ' = ' http = //www ' xdri ve • com/download/xdrive . exe • ; 
$info95{ '2.01 1 } = 1; 
$info95{ '2.02' > = 2 
$info95{ '2. 03' } - 3 
$info95{ '2.04 » } = 4; 

$features95[3] [0] = 'automatic proxy support. 

## examples of other features 

## $features95[0] [1] = '2.03 feature 1" 

## $features95[0] [2] = '2.03 feature 2' 

## $features95[l] [0] - '2.04 feature 1' 

## $features95[l) [1] = '2.04 feature 2' 

my $returnString=' ' ; 
ray $ref_to_hash; 
my $ref_to_array; 

##point to hash and array for type of client 
##this way no need to create separate functions 
if ($sClientType /~xdwin9x/) 
{ 

$ref_to_hash=\%info95; 
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$ref_to_array=\6f eatures95; 

} 

elsif ($sClientType =~ / A xdwinnt/) 
{ 

$ref_to_hash=\%infoNT; 
$ref_to_array=X@f eaturesNT; 

} 

else { } 

if ( ($sClientType / A xdwin9x/) || (SsClientType /^xdwinnt/) ) 
{ 

##if the user's version of the client is older than the 
##current version,, ask them to upgrade and tell them 
##about new features 
my $f eature_text= ' ' ; 

if ($ref_to_hash->{ * current_version ' } > $sClientVersion) 
{ 

##get all features from the version 1 above the user's 
##to the current version 

my $array_number_start = $ref_to_hash-> { $sClientVersion } + 

1; 

my $array_number_end = $ref_to_hash-> { $ref_to_hash- 
> { ' current_version • } } ; 

##Assemble a big string of new features for 
##newer versions than user has 
my ($i,$j); 

for $i ($array_number_start . . $ a r r a y_numbe r^end ) 
{ 

for $j (0 $#{$ref_to_array-> [$i] } ) 
{ 

$feature_text .= " - " . $ref_to_array-> [$i] [ $ j ] 



I"; 



) 

else 
{ 



} 

} 

} 

$returnString = join ("Xn", 

"client_version«$ref_to_hash->{ • current_version' 
"force_upgrade=$ref_to_hash->{ ' f orce_upgrade 9 }", 
n client_url=$ref_to_hash-> { ■ client_url • } " , 
n client_text=$feature_text n , 
) ; 



$returnString = join ("Xn", 
n client_version=0 . 0", 
" f o r ce_upg r ade = - 1 w , 

"client_url=No url. Please contact X:drive", 

"client^ext^" , 

); 



} 



print $oCGI->header { ) ; 
print $returnString; 



##if ($bFirstTiine) 
## { 

## Record the version number 

## XDClientFirstTimeUse 
## ( 

## $sOsername, 
## SsClientType, 
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## $sClientVersion 
## >; 
## > 

} 
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###cookie.cgi 

#! /usr /bin/perl 

# Written by Martin Hald <mhald@geotribe . com> to verify that the user xs 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 

use strict; 

use lib ($ENV{ PERL_XDRIVE_LIB} ) ; 
use XDrive: : DatabaseO: :Table: : DiskAccount ; 
use XDrive: : DatabaseO: :Table: : OserSettings; 
use XDrive: : DatabaseO: : Table: :UserQuota; 
use XDrive: : DatabaseO: : Table: : Language; 
use XDrive : : DatabaseO: : Search; 



use CGI; 

use XDrive :: CGI :: Cookie; 

use CGI::Carp qw < f atalsToBrowser ) ; 

use XDrive: :CGI; 

use XDrive : : Client : : Security; 

use XDrive: : Error; 

use XDrive: : Template; 

use XDrive: : Library ; 

use XDrive: : DatabaseO; 

use Mail : : Sendmail; 



&main; 
exit; 



new CGI; 

new XDrive: : Error; 
new XDrive: : DatabaseO; 

new XDrive: : CGI : : Cookie ( f x_session_inf o 1 , SoCGI) ; 

my $oToken; 
my $sToken; 
my $sUsername; 
my $sPartnerCode; 

my $bSecurity = $oCGI->param ( 'bSecurity » ) ; 

my $sPartnerToken = $oCGI->param{ f partner_token 1 ) ; 

my $passed_lang - $oCGI->param( ' language f ) ; 



sub main 
{ 

my $oCGI 
my $oErr = 
my $oDBO 
my $oCookie = 



##### 

## Attempt to authenticate the user by using one of the following two 
## authentication methods: username/password pair or partner token 
## authentication, 
##### 

if (! defined $sUsername && length ($sPartnerToken) > 20) 

luthPartnerUser ($oCGI, $oErr, $oDBO, \$sUsername f \$oTokeh, 

\$sPartnerCode r $sPartnerToken) ; 
$sToken = $oToken->name ( ) ; 
} 

else 

authWebSiteUser ($oCGI, $oErr,$oDBO/ \$sUsemame, \$oToken) ; 
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} 

##### 

## If an error occurud while tryinq to create +u 

## the user to the error page create a token then redirect 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect; 
xdfatalerror ($oCGI, $oErr) ; 
exit ; 
} 

##### 

## If we have gotten here then we have an ^.^k^,^ ■ 

- ## „„ * e «-«en we nave an authenticated user. 



##### 

## Build and print out cookies 
##### 

my $sLanguage = get Language ($oDBO, SsUsername) ; 

##check if user's language is the same as passed languaae 

xf C (length ($P assed_lan g > > 0) &S SsLanguage ne Splsf ^% ng , 

##update db here to new language 
setLanguage ($oDB0, $sUsernaine, $passed lang) ; 
##update session to new language ~* 
^ $sLanguage = $passed_lang; 

«£i?5 6 th ! P rom ^ cooki e; this will not be set here and we 
##don f t want an old one hanging out 
##promo cookies should be set in promo. cgi 

$oCookie->deleteElement ( -promo' ) if $oCookie->getElement ( •promo ' ) ; 

SoCookie->setElement 
({ 

•language' => SsLanguage, 
'partner' => SsPartnerCode, 
}); 

print "Set-Cookie: » . SoCookie->asString ( ) - 

print "Set-Cookie: SST=$sToken; domain-. xdiive.com; path=/\n" 
if SsPartnerCode ne 'xdrv'; 

##### 

## write user login to the database 
##### 

iincrementLoginNumber ($oDBO, SsUsername, SsLanguage, SsPartnerCode) ; 
#*### 

!Lf* nd thS USSr ° ff into thier file explorer 

w ft ft ft ft 

if ($ENV{ •HTTP_USER_AGENT t ) — /^xdwin/) 

print $oCGI->redirect ( w ?sst=» . $oToken->name ( ) .»&sid=0») ; 

else 
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{ 

xd_web_open ($oCGI, "", nn , \%ENV, $bSecurity) ; 
} 

$oDBO->disconnect ; 

return 0; 

} 

sub incrementLoginNumber ( ) 
{ 

my $oDBO = shift; 
my $sUsername = shift; 
my $sLanguage = shift; 
my $sPartnerCocle - shift; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new(undef, $oDBO) ; 

$oDiskAccount->loadWhere ( "USERNAME**, $sUsername) ; 
$oDiskAccount->f inish; 

my $timesLoggedIn = $oDiskAccount->f etchColumn ( "LOGIN__NUM" ) ; 
my $user_seq = $oDiskAccount->f etchColumn ( "USER^SEQ" ) ; 

if (StimesLoggedln) 
{ 

$timesLoggedIn++; 
} 

else 

{ 

$timesLoggedIn=l ; 
} 

$oDiskAccount->setColumn ( "L0GIN_NUM w , $timesLoggedIn) ; 
$oDiskAccount->setColumn{ ,, LAST_LOGIN" # XDToday () ) ; 

my $status = $oDiskAccount->update ( ) ; 

if ($status > -1) 
{ 

$oDiskAccount->comrait () ; 
$oDiskAccount->f inish ( ) ; 

##give user extra 10MB if 10th login 

if (StimesLoggedln == 10) 

{ 

my $oUserQuota « XDrive :: DatabaseO: : Table :: UserQuota- 

>new(undef , $oDBO) ; 

$oUserQuota->loadWhere ("USER^SEQ", $user_seq) ; 
my $additional_quota = $oUserQuota- 
>incrementQuota ($user_seq, 10240) ; 

if ($additional_quota > 0) 
{ 

&send_email ($user_seq, $oDBO, 
$additional_quota , $sLanguage, $sPartnerCode) ; 

} 

} 

} 

else 
{ 

# $oDiskAccount->rollback ( ) ; 
J 
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sub send_email 
{ 

my $user_seq = shift; 

my $oDBO = shift; 
my $additional_quota - shift; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

##comes in as k, change to megabytes 
my $mbs = $additional_quota/1024 ; 

my $oUserData = XDrive :: DatabaseO: : Table :: UserData->new (undef, $oDBO) 
$oUserData->loadWhere ("SEQ", $user__seq) ; 

my $email_address = $oUserData->f etchColumn { "EMAIl^ADDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_FIRST" ) ; 
my $name_last = $ oUser Da ta->f etchColumn ( "NAME_LAST" ) ; 

my $oTemplate = new XDrive :: Template 

({ 

•language* => $sLanguage, 

'partner_code» =*> $sPartnerCode, 
}); 

$oTemplate->load( 1 received_10MB_101ogins . thtral • ) ; 
$oTemplate->tags ( { 

' mbs* => $mbs, 
)) ; 

$oTemplate->clear { ) ; 

my $message = $oTemplat e->get ; 

my %toXdrive = 
( 

To => "$name_ first $name_last <$email_address>" , 

Bcc => • ■ , 

From => "support \0xdrive. com" , 
Message =>" $message, 
Subject => "Congratulations!" 
) ; 

sendmail (%toXdrive) ; 



sub authPartnerUser 
{ 

my $oCGI = shift; 

my $o£rr = shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $rsPartnerCode = shift; 

my $sPartnerToken = shift; 

my $oCookie = new XDrive: : CGI :: Cookie { • x_session_inf o • , $oCGI); 

my SoPartnerToken = new Token 
({ 

"err* => $oErr, 
•dbh 1 => $0080, 

)); 

$oPartnerToken->load($sPartnerToken) ; 
return if $oErr->Occurud; 
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$$roToken = new Token 
( I 

•dbh' => $oDBO, 
•err' => $oErr, 

■ user_sequence ' ~> $oPartnerToken->data ( 'user_seq' ) , 
}); 

$$roToken->create{) ; 
return if $oErr->Occurud; 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
$$rsPartnerCode = $oPartnerToken->data ( ' partner__code ' ) ; 
##$$rsPartnerCode = $oCookie->getElement < 'partner ') ; 
$$rsUsername = $oPartnerToken->data ( ' user ' ) ; 

$$roToken->data ( 1 ip' , $ENV{ REMOTE_ADDR) ) ; 
$$roToken->data ( 'browser* , $ENV{ HTTP__USER_AGENT } ) ; 
$$roToken->data ( 'user ' , $$rsUsername) ; 

$$roToken->data ( 'user_seq' , $oPartnerToken->data { 'user seq' ) ) ; 
$$roToken->data ( *partner_code ' , $$rsPartnerCode) ; 
$$roToken->data ( , disk__account_seq f , $oPartnerToken~ 
>data ( *disk_account_seq' ) ) ; 
$$roToken->save; 

$oPartnerToken->delete ( ) ; 



sub authWebSiteUser 
{ 

my $oCGI = shift; 

my $oErr - shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $rbToken = shift; 

my $sPassword = $oCGI->param ( 'pass ' ) ; 
$$rsOsername ^ $oCGI->param ( ' user * ) ; 

$oCGI->param ( ' user ' ) ; 

if (xd_auth_password($$rsUsername, $sPassword, $oDBO) ) 
{ 

## Login the user info X: drive and get the session token 
$$roToken =» xd_ login ($oCGI , $$rsUsername, $oErr, $oDBO) ; 
} 

else 

{ 

$oErr~>AddErrorByErrorCode ( ' 501 ' ) ; 
} 

} 

sub getLanguage 
{ 

my $oDBO = shift; 

my $sUsername = shift; 

my $language; 

## get the user's language out of the database 
my $oDiskAccount » XDrive :: DatabaseO :: Table :: DiskAccount- 
>new(undef, $oDBO) ; 

$oDiskAccount->loadWhere { "USERNAME" , $sUsername) ; 
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SoDiskAccount->f inish; 

my SuserSeq = SoDiskAccount->fetchColumn ( "USER_SEQ" ) ; 



my $oUserSettings = XDrive :: DatabaseO: :Table :: UserSettings- 
>new(undefi $oDBO) ; 

SoUserSettings->loadWhere ( "USER_SEQ" , $userSeq) ; 
SoUserSettings->f inish ; 

my $language - SoUserSettings->f etchColumn ( "LANGUAGE" ) ; 

if (Slanguage eq ,f ) 
{ 

Slanguage = 1 english'; 
) 

else 

{ 

## Get language from database given code 
my $oLanguage » XDrive :: DatabaseO: : Table :: Language- 
>new (undef , $oDBO) ; 

SoLanguage->loadWhere { n SEQ", Slanguage) ; 
$oLanguage->f inish ; 

Slanguage = $oLanguage->f etchColumn ( "CODE" ) ; 
} 

return Slanguage; 
} 



sub setLanguage 
{ 

##set the LANGUAGE column of the User_Settings table to passed 

language 



my SoDBO = shift; 

my SsUsername = shift; 

my Slanguage = shift ; 

my (Srv, SerrorCode) ; 

## get the user's language out of the database 
my SoDiskAccount = XDrive :: DatabaseO; : Table ;: DiskAccount- 
>new (undef, SoDBO) ; 

##grab right table 
SoDiskAccount ->loadWhere { "USERNAME 1 * , SsUsername) ; 
SoDiskAccount->f inish; 

my SuserSeq ■« SoDiskAccount->f etchColumn ( "USER_SEQ" ) ; 

my SoUserSettings = XDrive :: DatabaseO: : Table :: UserSettings- 
>new{ undef, SoDBO) ; 

SoUserSettings->loadWhere ( W USER_SEQ W , SuserSeq) ; 
SoUserSettings->f inish ; 

##grab the seq number of the LANGUAGE being passed 

my SoLanguage = XDrive: : DatabaseO: : Table: : Language->new (undef , SoDBO) 
SoLanguage->loadWhere ("CODE", Slanguage) ; 
SoLanguage->f inish ( ) ; 

my $seq_lang = $oLanguage->f etchColumn ( "SEQ W ) ; 

eval 
{ 

## 

##set language here 
Srv = 0; 
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$oOserSettings->setColumn< ' LANGUAGE • , $seq_lang) ; 
$rv = $oUserSettings->update ( ) ; 

if ($rv 0) 

$oUserSettings->rollback( ) ; 
$errorCode = 0; 

else 

$oUserSettings->commit { ) ; 
$errorCode = 1 ; 

return $errorCode; 
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###download_client.cgi 

# ! /usr/bin/perl 

## Written by Karen Eppinger 

## Script that shows the 'download the client' page 

## it can no longer be static html because we need to 

## do some checking on whether the user is from a partner or not 

## if so, make sure to let them know what their X: drive login name 

## is if it differs from their partner login 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use XDrive :: Library; 

use XDrive: : Template; 

use XDrive: : Error; 

use XDrive: : DatabaseO; 

use XDrive: : Client: : Security; 

use XDrive: : DatabaseO: : Table: : ResellerUserMap; 
use XDrive: .-DatabaseO: : Table: : Reseller; 

&main; 
exit ; 

sub main 
{ 

## Load the session token 

my $oErr = new XDrive: : Error; 

my $oDBO = new XDrive :: DatabaseO ; 

my $oCGI = new CGI; 

my $oToken = xd_security_check ($0080, $oCGI, $oErr ) ; 

my $oCookie » new XDrive :: CGI :: Cookie {' x_session_info ' , $oCGI); 

if ( $oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect ( ) ; 

exit; 

} 

my $partner_code = $oToken->data ( 1 partner_code ' ) ; 

my $language = $oCookie->getElement (' language 1 ) II 'english'; 

my $oForm = new XDrive :: Template 
({ 

'partner^ code * => $partner_code, 
'language' => $language, 
>) ? 

SoForm->load ( • download_client . thtml • ) ; 

##if we are coming from a partner, make sure partner login 
##and X: drive login match 

my $reseller_username; 
my $reseller_name; 
my $partner_warning; 
my $username; 
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if ($partner_code ne 'xdrv' ) 
{ 

my $user_seq = $oToken->data ( ' user_seq ' ) ; 
$username - $oToken->data ( 1 user ' ) ; 

my $oResellerUserMap = XDrive :: DatabaseO: : Table :: ResellerUserMap- 
>new(undef , $oDBO) ; 

my $oReseller = XDrive :: DatabaseO: :Table: : Reseller->new {undef , 

$oDB0) ; 

$oReseller->loadWhere { "CODE" , $partner_code) ; 
$reseller_name = $oReseller->f etchColumn ( "NAME" ) ; 
$oReselierUserMap->loadWhere ( "USER_SEQ rt , $user_seq) ; 
$reseller_username = $oResellerUserMap->f etchColuinn ( "ALIAS" ) ; 

if ($reseller_username ne $username) 
{ 

##load the text for the warning message 
my $oWarning = new XDrive :: Template 
({ 

'partner_code 1 => $partner_code, 
•language* => Slanguage, 
}) ; 

$oWarning->load ( ' download__client_warning . thtml ' ) ; 
$oWarning->tags 
(( 

* reseller_name ' => $reseller_name, 

' reseller_username 1 => $reseller_username, 

'username 1 => $usernarae, 

} ) ; 

$oWarning->clear ( ) ; 

$partner_warning = $oWarning->get ( ) ; 



$oForm->tags 
({ 

1 partner^ warning ■ => $partner_warning, 
' reseller^ame 1 => $reseller_name, 
■reseller^sername 1 => $reseller_username, 
'username' => $usemame, 
)); 

$oForm->clear { ) ; 

print $oCGI->header ( ) , $oForm->get ; 

$oDBO->disconnect { ) ; 

return 0; 
} 
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# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB> ) ; 

use XDrive : .-Client :: Security; 
use XDrive : : DatabaseO; 

use XDrive : : DatabaseO: : Table : : UserData; 
use XDrive: : DatabaseO: ; Table: : DiskAccount ; 

use CGI:: Carp qw ( f atalsToBrowser) ; 
use CGI; 

use XDrive: : Library; 
use XDrive: : Template; 
use XDrive :: Security; 
use XDrive: : CGI; 
use XDrive: : Error; 

use strict; 

&main; 
exit; 

sub main 
{ 

my $oCGI = CGI->new(); 

my $oErr = new XDrive :: Error ; 

my $oDBO - new XDrive :: DatabaseO; 

#### 

## Check the token is valid and is an error occured then 

## redirect with a fatal error 

#### 



my $oToken = xd_security_check ($oDBO, $oCGI f $oErr) ; 

if ($oErr->Occurud) 
{ 

xd_f atal_error ($oCGl, $oErr) ; 

exit ; 

} 

my $sUserName = $oToken->data ( 1 user • ) ; 
ray SsOldEmail » $oCGI->param ( • oldEmail • ) ; 
my $sNewEmail = $oCGI->param ( 'newEmail * ) ; 

if (($sO!dEmail eq ' ' ) || ($sNewEmail eq ' •)) 
I 

my $sMessage » $oErr->ReturnMessageGivenCode (1350) ; 
XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 



##first, get user_seq from the disk_account table 
##since we only have the user name, need to do this first 
my $oDiskAccount = XDrive :: DatabaseO :: Table :: DiskAccount- 
>new (undef , undef) ; 

$oDiskAccount->loadWhere ( ' USERNAME ■ , $sUserName) ; 

my $nUserID = $oDiskAccount->f etchColumn ( 1 0SER_SEQ t ) ; 

##now that we have that, get the email address from 
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##user table using the user_seq number to pull the seq number 
my $oUserInfo « XDrive : : DatabaseO :: Table :: UserData->new (undef, 
$oDiskAccount->f etchDBO( ) ) ; 

$oUserInfo->loadWhere ( ' EMAIL_ADDRESS 1 , $sNewEmail) ; 

##if a sequence number is returned, there is already a record 
##in the database with that email address, don't allow to change 

my $nSeqNumber = $oUserInf o->f etchColumn ( * SEQ ' ) ; 

if ($nSeqNumber) 
{ 

$oUserInf o->disconnect ( ) ; 

my SsMessage = $oErr->ReturnMessageGivenCode ( 1351 ) ; 
XDErrorToBrowser { H ", $sMessage, undef, $oToken) ; 

} 

else 
{ 

$o0serlnf o->loadWhere ( • SEQ * , $nUserID) ; 

my $sEmailinDB = $oUserInf o->f etchColumn (' EMAIL_ADDRESS • ) ; 

if ($s01dEmail eq $sEmailinDB) 
{ 

flset email in class 

$oUserInf o->setColumn ( 9 EMAIL_ADDRESS 1 , $sNew£mail ) ; 
##now update database 
SoUserlnf o->update ( ) ; 

my $oTemplate = new XDrive: : Template 

({'partner^code' => $oToken- 

>data { r partner__code * ) } ) ; 

$oTemplate->load( f pr__changeemail_ok . thtml ' ) ; 
print "Content-type: text/html\n\n" ; 
print $oTemplate->get ( ) ; 

} 

else 
{ 

$oUserInfo->disconnect ( ) ; 

my SsMessage = $oErr->ReturnMessageGivenCode (1352) ; 
XDErrorToBrowser ( " SsMess age , undef , $oToken ) ; 

} 

} 

$oUserInf o->commit ( ) ; 
$oUserInf o->f inish { ) ; 
$oUser!nf o->disconnect ( ) ; 
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###error.cgi 

# ! /usr/bin/perl 

use lib ($ENV{P£RL_XDRIVE_LIB}) ; 
use XDrive :: Error; 
use XDrive: : Template; 
use CGI; 

&main; 
exit; 

sub main 
{ 

my $oCGI - new CGI; 

my (SsErrorCode) =. $ENV{QUERY_STRING } /error=( [ A \&\ = ]+)/ ; 
my $oError = new XDrive :: Error; 

my $sError = $oError->ReturnMessageGivenCpde ($sErrorCode) ; 
my $oTeinplate = new XDrive :: Template { { 'partner_code ■ => 'xdrv'} ); 
$oTemplate->load ( ' generic_error . thtml 1 ) ; 
$oTemplate->tags 
({ 

■message' => $sError 
} ) ; 

$oTemplate->clear(); 

print $oCGI->header () , $oTemplate->get ; 

} 
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###explorerxgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Tue May 25 15:23:31 PDT 1999. 
## Program to build the file explorer which is itself a popup window. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
#use vars qw(@ISA); 

#@ISA = qw (XDrive :: CGI) ; 

use CGI qw(param header) ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Date :: Format ; 

use HTTP:: Icons; 

# use XDrive::CGI qw(:MAIN); 

use XDrive :: Client :: Security; 

use XDrive: : Client: : Quota; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: :DatabaseO; 

use XDrive: :DatabaseO: : Table: : UserSettings; 
use XDrive: :DatabaseO: : Table : : DiskAccount ; 
use XDrive: :DatabaseO: :Table: :UserData; 
use XDrive :: Error ; 



&main; 



exit (0) ; 



sub main 



#### 

## Global variables 
#### 

my $oToken; 
my $sUsername; 
my $sPath; 
my $sSST; 
my SbEditExt; 
my $bFirstTime; 
my $bExtraHelp; 
my $bMarketing; 



## XDrive Token 
## username 
## path for index 
## Token name 

## Allow extensions to be edited? 
## First time the've logged in. . . 
## Print extra help 

## does user want to receive offers from other 



companies 



my SbNewsletter; 
my $sPartner; 
my $g_sFrameSize; 
my $ g__s Frame Banner; 



## does user want to receive our newsletter 
## partners name 

## breakdown of the centerview frame 
## banner view frame information 



my $oCookie 



my $oDB0 
my $oCGI 
my $oErr 



XDrive : : DatabaseO->new (undef , undef ) ; 
new CGI; 

new XDrive: : Error; 

new XDrive: :CGI: : Cookie ( l x_session_info' , $oCGI) ; 



#### 



## If the user has bookmarked the X: drive service then redirect 

## them back to the homepage 

#### 
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if (! length ($oCGI->param < ' sst ' ) ) && ! length ($oCGI->cookie <• SST ')) ) 

print $oCGI->redirect ( • /cgi-bin/web_unauthorized . cgi ?error=804 • ) ; 
$oDBO->disconnect { ) ; 
return 0; 
) 

#### 

## Check the security and if an error occurs 
#### 

$oToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 



if ($oErr->Occurud) { 

$oDBO->disconnect () ; 

xd_f atal_error ($oCGI, $oErr) ; 

exit; 



#### 

## Now we know we have a valid session so pull the partner name 

## from a cookie if available or clear the variable 

#### 

# $sPartner » $oToken->data ( ' partner_code f ) ; 
SsPartner » $oCookie->getElement ( 'partner 1 ) ; 
SsPartner = "xdrv" if ($sPartner eq ; 

## Load the required template HTML files. 

# my $oFrame = new XDrive: : Template 

# ({ 

# 'partne^code' => $oToken->data (• partner code 1 ) 

# } ) ; 

### Edited by Justin to check the cookie instead of 
### the token table for the partner^code . 
my $oFrame = new XDrive: : Template 
({ 

f partner_code f => $oCookie->getElement ( 'partner • ) 
}); 

## If the request comes from the windows app the give back a simplified 
template 

$oFrame->load ( "acct_explorer_f rame . thtml w ) ; 

## Assign globally used variables 
SsPath = $oCGI->param( ' sFolderCurrent ' ) ; 
$sSST = $oToken->name; 
SsUsername = $oToken->data ( 1 user ' ) ; 



## User settings 

my SoDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount->new (undef, 
$oDBO) ; 

my $oUserSettings = XDrive: : DatabaseO: : Table :: UserSettings->new (undef , 
$oDB0) ; 

my $oUserData = XDrive :: DatabaseO: : Table :: User Data->new (undef, $oDB0) ; 

$oDiskAccount->loadWhere ( "USERNAME", $sUsername) ; 
$oOserSettings->loadWhere( w USER_SEQ M / $oDiskAccount- 
>fetchColumn { "USER_SEQ n ) ) ; 
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$oUserDat a->loadWhere ( "SEQ M , $oDiskAccount->f etchColumn ( "USER_S£Q" ) ) ; 

SbEditExt = $oUserSettings->fetchColumn("FILE_EXT_EDITABLE H ) == 1 ? 

'true 1 : 'false'; 

SbExtraHelp = { $oUserSett ings->f etchColumn ( "EXTRAJ4ELP" ) == 1) ? 

* true 1 : ' false ' ; 

SbMarketing = $oUserSettings->f etchColumn ( "OPT_MARKETING" ) — 1 ? 
•true * : 1 false 1 ; 

$bNewsletter = $oUserSettings->f etchColumn ( "0PT_NEWS LETTER" ) =- 1 ? 
•true' : ' false 1 ; 

my $firstName = $oUserData->f etchColumn ( "NAME_FIRST" ) ; 
my $lastName = $oUserData->f etchColumn { "NAME_LAST") ; 

my $first = $oCGI->param( ' first 1 ) ; 

$bFirstTime = $first eq r yes f ? 'true' : 'false'; 
## Frame settings 

if ($sPartner eq 'cc' II ?sPartner eq 'qupa') 
{ 

$g_sFrameSize = • 100%'; 
$g_sFrameBanner = * ' ; 
} 

else 

{ 

$g_sFrameSize = * 103, * 1 ; 

$g__sFrameBanner = 1 <FRAME NAME= "banner" ' . 

• SRC="/cgi-bin/ads.cgi" SCROLLING=NO BORDER=0 
f FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 
» TOPMARGIN— 0 LEFTMARGIN— 0> * ; 

} 

##get the language information from the cookie 
##if no cookie or not set f set to english 
my %session_info - $oCGI->cookie ( • x_session_inf o' ) ; 
my $language; 

if ($session_info{ f language' } ne " ) { 

$language = $session_inf o{ f language '} ; 

} 

else { 

$language = 'english'; 

) 

my $clientDownload = $oCGI->param( ' client ') ; 
my $sCenterPage = * centerview. thtml ' ; 
if ($client Download eq 'getclient') { 

SsCenterPage = 'download_client . thtml ' ; 

} 

## Set the token name and session ID in the navigation form so that 

popup 

## windows have access to them and the do not need to be passed around. 
$oFrame->tags 
({ 

•sSST' => $sSST, 

'bSettingEditExtensions' $bEditExt, 
•sPartner' -> $sPartner, 
•bExtraHelp' $bExtraHelp, 
•bFirstTime' =*> $bFirstTime, 
•bMarketing* => $bMarketing, 
'bNewsletter' => SbNewsletter, 
'centerPage' => $sCenterPage, 
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'userName* => $sUsername f 

' firstName* $firstName, 

•lastName' => $lastName, 

• frameBanner 1 $g_s Frame Banner, 

1 frameSize' => $g_sFrameSize, 

•language' => Slanguage 

}) ; 

## Print out the HTML and exit 
$oFrame->clear ( ) ; 

print $oCGI->header{), $oFrame->get ; 

$oDiskAccount->f inish ( ) ; 
$oUserSettings->f inish ( ) ; 
$oUserData->f inish { ) ; 



PCT/USOO/30536 



$oDBO->disconnect ( ) ; 



JSDOCID: <WO___0133381A1JA> 
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###explorer_user_data.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Tue May 25 15:23:31 PDT 1999. 
## Program to build the file explorer which is itself a popup window. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use vars qw(@ISA); 

@ISA = qw {XDrive :: CGI) ; 

use Data : : Dumper ; 
use CGI; 

use CGI::Carp qw (f atalsToBrowser ) ; 
use Token; 

use XDrive::CGI qw(:MAIN); 
use XDrive: : Client :: Actions; 
use XDrive: : Client :: Security; 
use XDrive: : DatabaseO; 
use XDrive: : Library; 
use XDrive: : Template; 
use XDrive: : Error; 

Smain; 
exit; 

sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive :: Error ; 

my $oDBO = new XDrive :: DatabaseO; 

my $oToken = xd_security_check ($oDBO, $oCGI , $oErr ) ; 

i f ( $oEr r- >Occurud ) 
{ 

xd_f atal_error ( $oCGI , $oErr ) ; 

exit; 

} 

my $sFolder; v 
my $oAction = new XDrive :: Client :: Actions ($oToken, SoCGI ) ; 

$sFolder = $oCGI->param( 1 folder_current ' ) ; 

## Load the required template HTML files, 
my $oFrame = new XDrive :: Template 
({ 

1 partner_code f *=> $oToken->data ( ■ partner_code f ) 
> ) ; 

if ( $ENV { 1 HTTP_USER_AGENT 9 } =~ / A xdwin/) 
{ 

$oFrame->load.( n acct_user_data__xd_win . t html n ) ; 
} 

else 

{ 

$oFraroe->load ( "acct_user_data . thtml**) ; 
} 
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popup ## tCken ^ SeSi ° n 10 in the navigation form so that 

"oP^e^tagr 6 "° the d ° n0t to P-ssed around. 

U 

•sst' => $oAction->SST () , 
• sid* => $oAction->SID{) , 

•usage_total' «> $oAction->QuotaLimit ( ) , 
'usage^sed' => $oAction->QuotaUsed ( ) , 

•stuff => $oAction->DiskAccountXML($sFolder) 
} ) / 

$oFrame->clear ; 
$oAction->DisconnectDB { ) ; 

## Print out the HTML and exit 

print "Cache-Control: no-cache\n"; 

print "pragma: no-cache\n" ; 

print "Content-type; text /html \n\n"; 

print $oFrame->get; 

} 



SDOCID: <WO 0133381 A 1JA> 
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###fileJoad.cgi 

#! /usr /bin/perl 

# Program written by Martin Hald <mhald@uci . edu> to fetch files from a 

# storage area or database and return them via a HTTP socket to the user. 

use strict; 

use CGI qw (header param) ; 

use CGI:: Carp ' fatalsToBrowser ' ; 

## The HTTP: :MimeTypes module was a quick module that I wrote that reads the 
## standard apache mime. types file, parses it and given any known extension 
## translates it to the correct mimetype. 

use lib ($ENV{PERL_XDRIVE_IiIB) ) ; 

use HTTP: :MimeTypes; 

use XDrive: :Client: : Actions; 

use XDrive: : Client :: Security; 

use XDrive: :DatabaseO: : Table: : DiskI temSha're; 
use XDrive :: DatabaseO; 
use XDrive: : Library; 
use XDrive: : Error; 

## We have two security methods when downloading files: 

## 1) tokens 

## 2) claim checks 

## to deal with this we simply security method we are using and process the 
## request. 

Amain; 
exit; 

sub main ' 
{ 

my $oCGI = new CGI; 

my $oErr =* new XDrive :: Error ; 

my $oDBO = new XDrive : : DatabaseO; 

my $sFileCurrent; ## Current File 
my $oAction; ## Action object 

###§ 

## Process the request as a share a file pickup if the claim_check 

## param is available 

#### 

if (param ( * claim^check* ) ) 
{ 

my $oShare; 

$oShare » XDrive: : DatabaseO: : Table :: DiskI temShare->new () ; 
$oShare->loadWhere ( "random_key n , param ( 1 claim_check' ) ) ; 

SoAction = new XDrive :: Client :: Actions ($oShare, $oCGI) ; 
$sFileCurrent = join 
( 

V, 

$oShare->fetchColumn( w ITEM__PATH ,f ) , 
$oShare->fetchColumn( w ITEM_NAME w ) 

); 

) 

#### 
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## Otherwise it is an request from the browser or PC client 
## side program so let the actions object handle the request 



else 



{ 

#### 

## Attempt to authenticate the user and if that fails 

## then redirect to the error CGI 

#### 

my $oToken = xd_security_check ( $oDBO, $oCGI, $oErr) ; 



if ($oErr->Occurud) 
< 

xd_f atal_error ($oCGI, $oErr ) ; 

exit; 

} 

#### 

## Now we know that we have a valid token so go ahead 
## and let the actions object handle the request 
#### 

SoAction = new XDrive: : Client :: Actions 
( 

SoToken, 

$oCGI 

); 

$sFileCurrent = $oAction->FileCurrent () • 
} 

## Check that the current file is OK. If this check fails then 
## the code does an XDErrorToBrowser and exists 
$oAction->FileCheck{$sFileCurrent) ; 

print ^header (SsFileCurrent ) ; 

## Commented out by Justin because it was 

## including a 1 at the end of the file by printing it out. 
#print $oAction->FileLoad($sFileCurrent) ; 
$oAction->FileLoad($sFileCurrent) ; 

$oDBO->disconnect; 
} 



sub ^header 
{ 



mime 



my $sFile » shift; 

my $mlt = new HTTP: :MimeTypes; 

## Grab the extension and lookup the correct mimetype using the mlt or 
## lookup table object. 

my $sHeader; ## MIME header 

my $sExtension; ## file extension 

## Clean up the filename by getting rid of any path that comes before 
## the filename. 
$sFile s =.V==g; 

if (param{ 'mime' ) eq 'download') 
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if ($ENV{HTTP_USER_AGENT> =~ /MSIE/) 

$sHeader .= "Content-Di snn«i n . 
filename=$sFile\n"; ""tent uisposition; attachment; 

name=\»$sFil e \«\n\n"- eader * = " C ° ntent - t yP e : application/download; 

} 

else 

( 

SsHeader .- "Content -type : application/octet-streanAnNn" ; 

} 



else 



< 

my $dotPos=-l; 
my $returnPos=-l ; 

while {($dotPos = index ($sFile, ».», $dotPos) ) > -i) 

5returnPos = $dotPos; 
$dotPos++; 

} 

##if no extension set extension to nothing 

if ($returnPos < 0) 

{ 

$sExtension=* • ; 

} 

else 
{ 

SsExtension = substr <$sFile, $returnPos+l) ; 



?mlt->extension ($sExtension) ; 
SsHeader = $mlt->header () • 
} 



} 



return $sHeader; 



sub IEHack () 
< 

my $sFileCurrent = param ( • sFileCurrent ' ) ; 

% mSJISSS," 5sFilec "— t - A/< r x/, t „„ 

W.fife^ri^SSL.? •"""•"l«^°-r.vie„. „ param( . soutce . , eq 

{ 

SsJavascript = «EOM; 
<SCRIPT I*ANGUAGE= JAVASCRI PT> 
if (parent. parent .parent. name) 
{ 

parent .parent .parent .parent . XDReset () ; 

parent . parent . parent . parent . XDRef reshExplorer { ) ; 

</SCRIPT> 
EOM 

} 

print «EOM; 
Content-type : text /html 
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<HTML> 
<BODY> 

$sJavascript 

<OBJECT c lassid=CLSID:4CCF6192-4552-llD3-80A8-0050048D4BF8 

codebase= M http: //209 .101.43. 96/dll/xdf iles . cab" 

id=XDFiles> 
</OBJECT> 

<SCRIPT LANGUAGE= M VBSCRIPT"> 

• Don't raise errors 
On Error Resume Next 

Dim oXDFiles ' The ActiveX control 

' Late bind to the control 

Set oXDFiles = CreateObject ( "XDFiles .XDFiles . 1" ) 

• If we got an error, they didn't install the ActiveX control 
If Err. Number <> 0 Then 

MsgBox -You must install the X: drive ActiveX control in order to 

download " & _ ^ 

"the file. Please click Download again and when prompted to 

install the " & _ 

"ActiveX control, click Yes." 

End If 

' Set some test values for the properties 
oXDFiles . Prompt = True 

oXDFiles. Destination = "c : W$sFileOnly" 
oXDFiles. File "$sFileCurrent " 

' Call each method 
oXDFiles. Get 

■ Print out each property t 

• document, write ("oXDFiles. Destination = " & oXDFiles . Destination & <br> ) 
' document, write ("oXDFiles. Prompt - " & CBool (oXDFiles . Prompt ) & "<br>") 

• document, write ("oXDFiles -File = " & oXDFiles . File & "<br>") 

• document, write ( "oXDFiles. ServerSideToken = " & oXDFiles . ServerSideToken & 

"<br>") 

• document, write ( "oXDFiles. Sessionld - " & oXDFiles .Sessionld. & "<br>") 

' Free the ActiveX control 
Set oXDFiles = Nothing 



</SCRIPT> 

</BODY> 
</HTML> 
EOM 

> 
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###file_save.cgi 

# ! /usr/bin/perl 
###### 

### f ile_save . cgi 
###### 

use strict ; 

use lib <$ENV{PERL_XDRIVE_LIB}) ; 
use CGI::Carp qw ( fatalsToBrowser ) ; 
use Token; 

use XDrive: :CGI2; ## file upload functions 

use XDrive: :CGI qw ( : MAIN) ; ## X d_web buttonindex function 

use XDnve: : Client: : Act ions; ~ 

use XDrive: : Client: : Security; 

use XDrive: : Error ; 

use XDrive:: Library; ## xd_fatal error function 

use XDrive: : DatabaseO; ~ 

use XDrive: :DatabaseO: : Search; 

use XDrive: : Template; 

use XDrive: :DatabaseO: transaction; 

&main; 
exit; 

sub main { 

my SoErr » new XDrive: : Error ; 

my $oDBO = new XDrive: : DatabaseO; 

my $oSearch - new XDrive :: DatabaseO: : Search; 

my $oTransaction.= XDrive :: DatabaseO: : Transact ion->new ($oDBO) ; 
#### 

## Parse the SST cookie manually and retrieve the user sequence 

## by passing it to the getUserSeq sub. 

#### 

my (Scookie) = $ENV{ 'HTTP^COOKIE " } AbSST- ( \w+) \b/ • 
my $user_seq = &getUserSeq ($oSearch, Scookie) ; 

my $bytes = $ENV{ • CONTENT_LENGTH •} ; ## number of bytes being uploaded. 

my %upload_hash = CUSER_SEQ' => $user_seq, 

' BYTES * => $bytes); 
my $oCGI - new XDrive; :CGI2 <\%upload_hash, $oTransaction) ; 

#### 

## Attempt to authenticate the user and if the authentication 

## fails then redirect to the error CGI 

#### 

my $oToken « xd_security_check <$oDBO, $oCGI, $oErr> ; 

if ($oErr->Occurud) { 

xd_fatal_error (SoCGI, $oErr) ; 

exit; 
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#############################§#################################«####### 

#### 

###### 

### Check to see if they've exceeded 
### their quota limit, and error if so. 
###### 

# my $oUserQuota - XDrive :: DatabaseO: : Table :: UserQuota->new (undef, 
$oDBO) ; 

# $oUserQuota->loadWhere ( M USER_SEQ M , $user_seq) ; 

# my $nQuota = $oUserQuota->f etchColumn ( "QUOTA" ) ; 

# my $nDiskUsed = $oUserQuota->f etchColumn < "DISPOSED" ) ; 

# if { ($nQuota * 1024) < (SnDiskUsed + $bytes) ) { 

# $oUserQuota->f inish ( ) ; 

# $oDBO->disconnect ( ) ; 

# ## let user know he or she has exceeded his quota 

# $oErr->AddErrorByErrorCode (1240) ; 

# XDErrorToBrowser ( ' action_upload error. thtml 1 , $oErr, 1, 

$oToken) ; 

# exit{0); 

# } 

####################################################################### 



#### 



#### 

## Authentication succeeded so we have a valid session, let 

## the actions object handle the request 

#### 

my $oAction = new XDrive : :Client : rActions ( $oToken, $oCGI); 

$oAction->SaveUploadedFiles ( ) ; 

#### 

## File has been uploaded at this point, so set 

## the upload inactive in the database. 

#### 

$oTransaction->setUploadInactive { ) ; 

xd_web_buttonindex ($oCGI ) ; 
$oAction->DisconnectDB<) ; 

$oSearch->disconnect ( ) ; 

return 0; 



} 



###### 

### Subroutine: getUserSeq 

### Parameters: one object, one scalar 

### Returns: one scalar 

### Description: Receives a database search object and an SST token. 

### Queries the token table for the user sequence and returns 

it. 

###### 

sub getUserSeq ($$) { 
my $oSearch = shift; 
my $sst_code = shift; 

my $st = "SELECT user_seq FROM token WHERE code = * $sst_code • n ; 
my $data - $oSearch->XDSQLSearch ($st ) ; 
return $$data [0] [0] ; 
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#! file_upload_stat.cgi 

# ! /usr/bin/perl 
use strict; 

use lib <$ENV{ PERL_XDRIVE_LIB } ) ; 
use CGI; 

use XDrive: :CGI; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use XDrive: :DatabaseO; 

use XDrive: : DatabaseO: rSearch; 

use XDrive: : Error; 

use XDrive: : Client :: Security; 

use XDrive: : Template; 

use XDrive: : Library; 

use Token; 

&main ( ) ; 

exit(0); 

sub main { 

my $oCGI = new CGI; 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr new XDrive :: Error; 

###### 

### Security Check 
###### 

my $oToken = xd_security_check {$oDBO, $oCGI, $oErr) - 
if ($oErr->Occurud II (! $oToken) ) { 

^ XDErrorToBrowser<™, "Security Violation: No token", undef ; $ oToken); 

^^^ ($tmP - fi ^ e '. @Stat - array ' $ st ^_bytes, Smeta refresh, $percent, 
$width_green, $width_red) ; ~ ^ ' 

my ($url, $tmp_f ile_string, 8tmp_f ile_array, $error_code) ; 
my $tmp_path = XDFileUploadTempDir; 

my $oTemplate - new XDrive: : Template ( { 'partner_code ' => 'xdrv' 

, ^ 'file' => 

f xle_upload status . thtml ' } ) ; 

uploaded = $oCGI ">P— Cid.,; „ unique 

files' $n ° f = $oCGI->paramCnof); ## number o£ 

my $nof_queried = $oCGI->param< -nof queried 1 ); ## nof 

retrieved from db — * * no1 

str^g $file - Param = $oCGI ->P"^Ctn. P _file'); ## initial file 

ali m fi!es tal - file - Strin9 = $oCGI - > P ara »« ,to ^-'"«-«tring'); ## string of 

my $parara_uploaded = $oCGI->param( 'uploaded' ) ; «# bvtes 

uploaded oytes 

of bytls yteS " $oCGI ->P™ < 'bytes ' , ; ## total number 

print $oCGI->header () ; 
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###### 

### First, if we're passed an upload id and no temp file params (files to 
stat), 

### then we either haven't queried the database yet and need to or need to 
### query the database again because the number of files (nof) being 
uploaded 

### is greater than the number of files that our first database query 
returned . 
###### 

if ($id && (! $file_param) ) { 

### If this is the first pass, then percent will be a space and width 
will be 0. 

Spercent = $bytes ? int{100 * ($param_uploaded / $bytes) ) : 'Snbsp;'; 
$width_green = (Spercent eq ' ') ? 0 : $percent; 
$percent '%' unless Spercent eq ' '; 

my $seconds; 

$width_red - &width_red { ?width_green) ; 

$oTemplate->tags ( { • width_green ■ => $width_green, 
•width_red' => $width_red, 

• percent ' => ^percent } ) ; 

my $oSearch = new XDrive :: DatabaseO :: Search ($oDBO) ; 

my ($cnt, $data) = $oSearch->uploadStatusSearch ( $id) ; 

### If no rows were returned from the database, then redirect 
### and re-query the database, 
if ($cnt ==0) { 

$oSearch->disconnect ( ) ; 

$seconds = 0; 

$url « "/cgi-bin/file_upload_stat.cgi?" . 

"id=$id&nof=$nof &bytes=$bytes&uploaded=$param_uploaded ,, ; 
$raeta_refresh = SbuildMetaRef resh ($seconds, $url) ; 
&connectingToServer ($meta_ref resh, $oTemplate) ; 
exit (0) ; 

} 

else { 

my $i = 0; 

Sbytes = $$data[$i] [0] ; 

$error_code = $$data [$i] [2] ; 

foreach <G$data) { 

$tmp_file = $$data[$i] [1] ; 

push @tmp_f ile_array, $tmp_file; 
$i++; 

} 

$tmp_file_string = join @tmp_f ile_array; 

if ($cnt == $nof) { 

$oSearch->disconnect ( ) ; 
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SstatFilesTotal ($bytes / $trop_f ile_string, $oTemplate) ; 
exit (0) ; 

} 

$ seconds = 0 ; 

$url « "/cgi-bin/file_upload_stat .cgi?" . 

"id=$id&nof=$nof &uploaded=$param_uploaded&" . 
n nof_queried=$cnt&bytes=$bytes&tmp - file=$tmp_file_string ,, ; 

$meta__re fresh = &buildMetaRef resh (^seconds, $url); 

my $bytes_uploaded = ($param_uploaded > 0) ? $param_uploaded : • - , ; 
&redirect ( $meta_ref resh, $bytes_uploaded, $bytes, $oTemplate) ; 
$oSearch->disconnect () ; 
exit (0) ; 

) 

} 

elsif ($file__param) { 
$oDBO->disconnect ( ) ; 

my @file_array = split $file_param; 
my $ary_cnt » @file_array; 

my ($uploaded_bytes, $seconds); 

if (scalar @file_array > 0) { 
foreach (@f ile_array) { 

§stat_array = stat ( "$tmp_path/$_") ; 
$stat_bytes = $stat_array [7] ; 

$uploaded_bytes += $stat_bytes; 
push @tmp_file_array, $_; 

} 

if { ($uploaded_bytes $param_uploaded) && ($nof > $nof_queried) ) 
$ seconds = 0; 

$url = "/cgi-bin/file_upload_stat.cgi?" . 

"id=$id&nof=$nof &bytes=$bytes&uploaded=$para^l_uploaded ,, ; 



$bytes) ) 



} 
} 



$meta_refresh = &buildMetaRef resh ($seconds / $url); 

$percent = ($bytes == 0) ? 0 : int(100 * ( $param_uploaded / 

$width_green = $percent; 
$percent .= •%•; 

^redirect ($meta_re fresh, $uploaded_bytes, 

$bytes, $oTemplate, Spercent, $width_green) ; 

exit (0) ; 

} 

else { 

$tmp_file_string = join , - f , §tmp_f ile_array; 
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$percent = ($bytes — 0) ? 0 : int(100 * ($uploaded_bytes / $bytes) ) ; 
$width_green = $percent; 
^percent .= '%'; 

$percent = f   1 if $width_green == 0; 
$ seconds = 2; 

$url « "/cgi-bin/f ile_upload_stat .cgi?" . 

"id-$id&bytes=$bytes&nof=$nof &nof_queried-$nof_queried&" . 
w uploaded=$uploaded_bytes&tmp_f ile=$tmp_f ile_string"; 

$meta_refresh - fibuildMetaRef resh ($seconds, $url) ; 

^redirect ($meta_ref resh, $uploadedJt>ytes, $bytes, $oTemplate, $percent, 
$width_green) ; 

exit (0) ; 

} 

elsif ($total__f ile_string) { 
$oDBO->disconnect () ; 

&statFilesTotal{$bytes, $total_f ile_string, $oTemplate) ; 

} 

else { 

$oDBO->disconnect () ; 

ficloseWindow ($oTemplate) ; 

exit (0) ; 

} 

} 

sub statFilesTotal ($$$) { 

my ($bytes, $tmp_f ile_string, $oTemplate) • @_; 

my $tmp_path = XDFileUploadTempDir; 

my <§file_array = split $tmp_f ile_string; 

my (@tmp_f ile_arxay, $uploaded_bytes, 0stat_array, $stat_bytes) ; 
my $file_cnt = 0; 

foreach (@f ile_array ) { 

if (-e w $tmp_path/$_ f ') { 

@stat_array « stat < H $tmp_path/$_") ; 
$statjbytes « $stat_array [7] ; 

$uploaded_bytes += $stat_bytes; 

push @tmp_f ile_array, $_; 

$file_cnt++; 

} 

} 

if ($file_cnt — 0) { 

&closeWindow($oTemplate) ; 

exit (0) ; 

} 

else { 

my $percent » int(100 * ($uploaded_bytes / $bytes) ) ; 
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my $width__green = $percent; 



$percent . » ' % ' ; 

^percent - •snbsp;' if $width_green 0; 
my $seconds = 2; 

my $url = "/cgi-bin/f ile_upload_stat . cgi? w 

"^ytes-SbytesN&total^file^string^tmp^file^string"; 
my $meta_refresh = &buildMetaRef resh ($seconds, $url); 

$width^ei"r ($meta -- refreSh ' $ ^ load ^~Py^' »ytes, SoTemplate, Jpercent, 
exit (0) ; 

} 

} 

sub redirect ($$$$;$$) { 

^wid^grJenT^Tf' $b * tes - u P loaded ' »yt. $oTemplate, $percent, 

if ($bytes > 1024) { 

kbytes = sprintf "%.f", {$bytes / 1024); 
$bytes 'k'; 

} 

if ($bytes_uploaded > 1024) { 

$bytes__uploaded = sprintf »%.f\ ($bytes uploaded / 1024)- 
$bytes_uploaded .= f k f ; ~ 

} 

my $width_red = &width_red ($width_green ) ; 

$oTemplate->tags( { , meta_refresh' => $meta_refresh / 

•bytes^uploaded' -> $bytes_uploaded, 
f bytes_total' => $bytes, 
'percent' => $percent, 

1 width_green • => $width_green, 
•widthjred* $width_red} ); 

$oTemplate->clear ( ) ; 
print $oTemplate->get; 



) 



sub closeWindow <$) { 

my $oTemplate = $_[0]; 

$oTemplate->load { • f ile_upload_stat_window_close. thtral • ) ; 
print $oTemplate->get; 



sub connect ingToServer {$$) { 

my ($meta_refresh, $oTemplate) « @_; 

$oTemplate->load ( ■ f ile_upload_connecting . thtml • ) ; 

$oTemplate->tags ( { 'met a_re fresh ' ~> $meta_ref resh) ); 
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print $oTemplate->get ; 

) 

sub buildMetaRef resh ($$) { 
my ($seconds, $url) = @_; 

my $meta refresh = "<meta http-equiv=ref resh content=\ ,, $seconds; 
url=$url\ n >"'; 

return $meta_ref resh; 

} 



sub width_red { 

my $width_green = shift; 

my $width_red = ((100 - $width_green) > 0) ? 100 - $width_green : 0; 
return $width_red; 

} 
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###folder_create.cgi 

# . ! /usr/bin/perl 

# Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. 

use strict; 

use vars qw(<?lSA); 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
#use lib qw(/export/home/xdrive/lib) ; 

$ENV { • PATH • } = ' /bin ' ; 

delete @ENV{qw(IFS CD PATH ENV BASH_ENV) > ; # Make %ENV safer 
@ISA « qw(XDrive: :CGI) ; 

use CGI:: Carp 1 f atalsToBrowser ' ; 
use Date: : Format; 
use Token; 

use XDrive::CGI gw{:MAIN); 
use XDri ve : : Client : : Security; 
use XDrive: .-Client : rActions; 

use CGI; 

use XDrive: : DatabaseO; 
use XDrive: : Error ; 

&main; 
exit ; 

sub main 
{ 

my $oCGI = new CGI; 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive :: Error; 

#### 

## Attempt to authenticate the user 
#### 



my $oToken - xd_security_check ($oDBO, $oCGI, $oErr) ; 
#### 

## If the authentication failed then redirect to the 

## error cgi and exit 

#### 

i f ($oErr->Oecurud ) 
{ 

xd_f atal_error ($oCGI, $oErr) ; 

exit ; 

} 

#### 

## Otherwise we know that we have a valid session and 

## can continue normally 

#### 



my $oAction - new XDrive :: Client : .-Actions 
( 

$oToken / 
$oCGI 
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) ; 

$oAction->FolderCreate () ; 
xd_web_buttonindex($oCGI) ; 
$oAction->DisconnectDB ( ) ; 
return 0; 
} 
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###f orgot jpasswordxg i 

# ! /usr/bin/perl 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use CGI qw(param header); 
use CGI:: Carp qw ( f atalsToBrowser ) ; 
use Token; 
use XDrive::CGI () ; 
use XDrive: : Templates- 
use XDrive : : Client : : Registration; 
use XDrive: :DatabaseO: transaction; 
use XDrive: :DatabaseO: :Table: : DiskAccount ; 
use XDrive: :DatabaseO: : Table: :UserData; 
use XDrive: :DatabaseO: : Search; 
use XDrive: : Library; 
use XDrive: :Otils: : Randoms t ring; 

use Mail : :Sendmail; 



use constant TRUE => {1==1 ) ; 
use constant FALSE => ! TRUE; 

###################### 

my $request_template = "f orgot jpassword request . thtml* 

my $thank_you_template - "forgot_pas sword t _jy . thtml w ; 

my $alert_template = "f or got_pas sword alert . t html - ; 

my $email_template = "password admin email . thtml B ; 
###################### ~ — 



exit &main ( ) ; 



sub main { 

my $oCGI « CGI->new{); 



my $sEmailAddress - $ oCGI->pa ram (' txt Email Address •) ; 
my $sUsername « $oCGI->param ( ' txtDsername • ) ; 

my $oContent = new XDrive :: Template ( { /partner^code => VxdrvM ); 

my $oNavigation - new XDrive :: Template ( { 'partner_code • => • xdrv ' } )' 

my $oLayout = new XDrive: : Template ( { ' partner_code ' -> •xdrv'} ); 

## Load the required template HTML files. 
$oNavigation->load ( "f ront_nav . thtml " ) ; 
$oContent->lo&d ( " f ront_signup . thtml tt ) ; 
$oLayout->load ( "layout . thtml " ) ; 

if { ($sEmailAddress) && ($sUsername) ) { 
## Change user's password 

my ©characters = ( 'a* . . » z • , 9 A' . . f Z • , • 0 1 . . • 9* ) ; 

my $sRandomKey = XDRandomString (8, \@characters ) ; 

if (&PasswordSet {$oContent, $sUsername, $sEmailAddress, $sRandomKey) ) { 
^ sendMail($oContent,$sUsername, $sRandomKey, $email_template) ; 

&display_f orm ( $oContent , $ thank_you_templat e ) ; 

} else { 

&display_forro($oContent,$request_template) ; 
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## Print out the HTML, and exit 
$oLayout->tags 
({ 

' header_graphic' -> ' header_f ill . gif ' , 
•title' => 'What is my password?' , 
•content' => $oContent->get , 
•navigation* => $oNavigation->get , 
}) ; 

$oLayout->clear; 

print header, $oLayout->get ; 
return 0; 

} 

sub PasswordSet 
{ 

my <$oContent, $sUsername, $s Email Address, $sPassword) = @_; 
my $bReturnValue = 0; 
my $status; 

my $oDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount->new () ; 
my $oUser = XDrive :: DatabaseO: : Table :: UserData->new (undef, $oDiskAccount- 
>fetchDBO() ) ; 

$oDiskAccount->loadWhere ( " USERNAME" , $sUsername) ; 

$oUser->loadWhere ("SEQ", $oDiskAccount->f etchColumn ( "USER_SEQ") ) ; 

if { (defined $oDiskAccount->f etchColumn ( "USER_SEQ") ) 

&& ( $oUser->f etchColumn ("EMAIL^ADDRESS") eq $sEmailAddress ) 

) 

{ 

my $sPassEncrypted = XDEncrypt (SsPassword) ; 
$oDiskAccount->setColumn ("PASSWORD", SsPassEncrypted) ; 
$oDiskAccount->update ( ) ; 
$oDiskAccount->cammit ( ) ; 
SbReturnValue = 1; 

} elsif ( (defined $oDiskAccount->f etchColumn { "USER_SEQ" ) ) 

&& ( $oUser->f etchColumn ("EMAIL_ADDRESS") ne $s Email Address ) 

) 

{ 

fisendMail <$oContent, SsUsername, w, \ $alert_template, " NOT"); 

) 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 

return $bReturnValue; 

} 

sub display_form { 

my ($oContent, $template) = 
$oContent->load($template) ; 

} 

sub sendMail { 

my ($oContent , $username, $password, $template, $not) = @_; 

my ($name_f irst, $name_last, $eroail_address f $data) ; 
my $oSearch =» XDrive :: DatabaseO: : Search->new (undef) ; 
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Sdata = $oSearch->XDUserInfoByUsername (Susername) ; 
$name_first = $data-> [0] -> [ 0] ; 
$name_last « $data-> [0] -> [ 1] ; 
$eraail_address = $data-> [ 0] -> [2] ; 
Susername - $data-> [0] -> [ 3] ; 

my $message - &get__message ($oContent , $name first, $name last, $username 
$password, $template) ; ~ - 

my %toXdrive = 
( 

To => "$name_first $name_last <$email address>" 

Bcc => • ■ , ~ ' 

From => "support \6xdri ve.com", 
Message => $message, 

Subject => "X:drive Password$not Updated!" 
) ; 

sendmail (%toXdrive) ; 

) 

sub get_message { 

my ($oContent,$name_first, $name_last, Susername, $password, $template) 

$name__first = ($name__f irst ) ? $name_ first : ""; 
$name__last - ($name_last ) ? $name__last : 

$oContent->load($template) ; 
$oContent->tags 
({ 

'name_first' => $name_first, 
•name^last' => $name_last, 
•password* => $password, 
•username' => Susername, 

>> ; 

return $oContent->get; 



\ 
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###forgot__username.cgi 

# ! /usr/bin/perl 
use strict; 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use CGI qw (header param) ; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 

use Mail : : Sendmail; 

use Token; 

# use XDrive::CGI qw(:MAIN); 

use XDrive :: Template; 

use XDrive :: DatabaseO: : Search; 

use XDrive :: Library; 

use XDrive: : Utils : : RandomString; 

use constant TRUE => (1==1); 
use constant FALSE => ! TRUE; 

###################### 

my $invalid_template = "invalid_email . thtml " ; 

my $request_template = w f orgot_username request .thtml "; 

my $thank_you_template = "f orgot_username t_ y. thtml"; 

my $email_template = w forgot_username email . thtml* 1 ; 

###################### 

exit &main ( ) ; 

sub main { 

my $oCGI - CGI->new(); 

my $sEmailAddress = $oCGI->param ( 1 txt Email Address ' ) ; 
my ($ar_usernames / $length) ; 

my SoSearch = XDrive :: DatabaseO: : Search->new (undef) ; 

my $oContent = new XDrive :: Template; 
my SoNavigation ~ new XDrive: ; Template; 
my $oLayout - new XDrive :: Template; 

$oContent->partner ( 'xdrv' ) ; 
$oNavigation->partner ( 'xdrv' ) ; 
$oLayout->partner ( ' xdrv 1 ) ; 

## Load the required template HTML files. 
$oNavigation->load ( H f ront_ nav, thtml") ; 
$oLayout->load ( "layout . thtml " ) ; 

## IF a parameter of email adress has been processed 
## and in the correct format, then retreive usernames 
## associated with the email and send them. 

if (SsEmailAddress) 
{ 

## **************************** 
## added by kanlaya to check for correct email format 

****** ********************** 

if (SsEmailAddress =- 
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## Takes the ema Headdress and returns an array_ref 
## of all the disk_account . usernames accociated 
## with that users user . email_address 

$ar_usernames - $oSearch->XDUsernameFromEmail($sEmailAddress) ; 
$length = 8$ar_usemames ; 

## IF there are usernames found for this address, 
## then email the address the list of usernames. 
if{$length > 0) 
{ 

&sendMail ( $ar_usernames , $ sEmailAddr ess , $length) ; 
} 

$oContent->load ($thank_you_template) ; 

$oContent->tags ( { ' emailAddress * => $s Email Address , ) ) ; 
} 

else 

{$oContent->load ($invalid_template) ; } 

**************************** 

## end add 

**************************** 

} 

else 

{ $oContent->load ($request template) ; } 

## Print out the HTML and exit 
$oLayout->tags 
({ 

• header_graphic 1 => * header_f ill . gif ' , 
* title* => "What is my username?' , 
•content* => $oContent->get , 
•navigation' => $oNavigation->get , 

}); 

$oLayout->clear; 

print header, $oLayout->get; 

return 0; 

} 

sub sendMail { 

my ($usernames, $6111311, $length) = @_; 

my ^message = &get_message ($usernames, $ email, $length) ; 

my %toXdrive = 
( 

To => w $email n , 

Bcc => 1 • , 

From * support \@xdrive • com" , 

Message => $message, 

Subject => "X : drive User name Reminder" 
); 



sendmail (%toXdrive) ; 



} 



sub get_message { 

my ($usernames l $email, $length) - @_; 
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my (SsUsername, $sPluralS, SsPluralVerb) ; 
$sUsername « join("\n", @$usernames) ; 
$sPluralS = (Slength > 1)? "s" : 
SsPluralVerb = (Slength > 1)? "are" : "is"; 

my $oForm » new XDrive :: Template; 
$oForm->partner ( ■ xdrv • ) ; 

$oForm->load ($email_template) ; 
$oForm->tags 
<f 

• sEmailAddress ' => $email, 
'sUsername* => $sUsername, 
•sPluralS' *=> $sPluralS, 
•sPluralVerb 1 => $sPluralVerb 
}); 

$oForm->clear ; 
return $oForm->get; 
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###frame_generic.cgi 

#! /usr/bin/perl 

## Written by Matt Clapp on 6/28/99 

## This CGI allows us to pass the sst and sid on to the inner frame 
use strict; 

use lib ($ENV(PERL_XDRIVE_LIB)); 
use CGI; 

use CGI::Carp qw ( f at alsToBrowser ) ; 
use Token; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: : DatabaseO; 

use XDrive: : Error; 

use XDrive: :Client: : Security; 

use XDrive: :CGI qw (XDErrorToBrowser ) ; 

use XDrive: :CGI: : Cookie; 

&main; 
exit; 

sub main 
{ 

my $oCGI = CGI->new(); 

my $oCookie = XDrive : : CGI : : Cookie->new ( ' x session info' SoCGIl- 
my $language = $oCookie->get Element (• language - " ' > ' 

Slanguage = 'english' unless $language; 

my $sThtmlFile = $oCGI->param ( ' thtml ■ ) ; 

my $sFrameHeight = $oCGI->param { • sFrameHeight ' ) ; 

if ($sFrameHeight == 
{ 

$ s Fr ameHe i ght = "40"; 
} 

if (SsThtmlFile eq ■ downloaded lent .thtml » ) 
^ my $oTemplate = new XDrive :: Template ( { 'partner_code' => 'xdrv'} 

$oTeraplate->load($sThtmlFile) ; 

$oTemplate->tags< {• sFrameHeight • => SsFrameHeight , 

•language' => Slanguage) ); 

print "Content-type: text /html\n\n"; 
print $oTemplate->get {) ; 
> 

elsif (SsThtmlFile eq • centerview . thtml ' ) 

my SsFrameSet; 
if (SsFrameHeight > 1) 
{ 

SsFrameSet = "SsFrameHeight,*"; 

else 

{ 

$sFrameSet = "100%,*"* 
} 
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print <<EOM; 
Content-type : text /html 
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< FRAMESET ROWS= "SsFrameSet " BORDER=0 FRAMEBORDER=0 MARGINWIDTH=0 
MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN-0 f rameBorder=0 f rameSpacing=0> 
EOM 

if <$sFrameHeight > 1) 
{ 

print «EOM; 

< FRAME NAME= 9 controls • SRC= ' /explorer/$language/buttons . html • 
SCROLLING=NO MARGINWIDTH=0 MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN=0> 
EOM 

} 

print «EOM; 

< FRAME NAME= 1 userData * SRO * /cgi-bin/explorer_user_data „ cgi ' 
SCROLLING=AUTO MARGINWIDTH==0 MARGINHEIGHT=0 TOPMARGIN=0 LEFTMARGIN=0> 
</FRAMESET> 
EOM 



else 

the server 
the hacker 
that number 
has key 



> 
{ 

## Security check. Since the thtml file is passed in via the URL 
,## can be hacked by passing in offsets to get the directory 

## wants. A cleaner way would be to pass in a number and use 
## to access a hash, and die with a security violation if no such 
## exists. 

my $oDBO = XDrive : : DatabaseO->new (undef , undef ) ; 
my $oErr = new XDrive :: Error; 

my $oToken = xd_security_check ($oDB0, $oCGI , $oErr ) ; 
#### 

## If the user failed to autenticate or an error occured then 

## redirect them to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

$oDBO->disconnect () ; 

) 

warn " # ALERT hacking attempt by " . $oToken->data ( ' user 1 ) - 

" from n .$ENV{REMOTE_IP) ; 
my $sMessage - $oErr->ReturnMessageGivenCode (341) ; 
XDErrorToBrowser ( # $sMessage, undef ,$oToken) ; 
$oDBO->disconnect ( ) ; 
exit; 
} 
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###get_a_shared_file.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI::Carp qw { f atalsToBrowser ) ; 

use XDrive:: CGI; 

use XDrive: : Template; 

use XDrive: :DatabaseO: : Table: : DiskltemShare; 
use XDrive: : Da tabaseO: : Table : : DiskAccount ; 
use XDrive: :DatabaseO: : Table: :UserData; 
use XDrive: :DatabaseO: : Table: : Reseller; 
use XDrive: : CGI :: Cookie; 

use strict; 

exit &main ( ) ; 

sub main { 

my $cgi « CGI->new(); 

my <$ClaimTicket, $oPage, $xdDBH) ; 

if ($ENV{ ' QUERY_STRING T } !- /=/) 
< 

$ClaimTicket = $ENV{ 'QUERY STRING'}; 
} 

else 

{ 

$ClaimTicket = $cgi->param { "claim_ticket " ) ; 

if (length ($ClaimTicket) < 5) 
{ 

$ClairaTicket = $ENV{ * PATH_INFO' } ; 

$ClaimTicket =- s/"\///; 

> 

##make sure that if claim ticket ends in -SP we set language to Spanish 

and 

##truncate claim ticket 

if ($ClaimTicket /-SP$/) 

{ 

$ClaimTicket = substr ($ClaimTicket , 0, length ($ClaimTicket ) -3 ) ; 
my $oCookie = new XDrive : : CGI : : Cookie ( • x__session info 1 , $cgi); 
$oCookie->setElement ~~ 
({ 

'language* => 'Spanish', 
}); 

^ print "Set-Cookie: " . $oCookie->asString { ) ; 

my $oDiskItemShare « XDrive: : DatabaseO: : Table :: DiskItemShare->new () ; 
$oDiskItemShare->loadWhere('»RANDOM_KEY", $ClaimTicket ) ; 

my SdiskAccount = SoDiskltemShare- 
>fetchColumn ( "DISK_ACCOUNT_0SER_SEQ ,f ) ; 

$xdDBH = $oDiskItemShare->fetchDBO() ; 
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my $oUserAccount = XDrive :: DatabaseO :: Table : : UserData->new (undef, 
$xdDBH); 

$oUserAccount->loadWhere ( "SEQ" , $diskAccount ) ; 

my $oReseller = XDrive :: DatabaseO: : Table :: Reseller->new (undef, 

$xdDBH) ; 

$oReseller->loadWhere ( "SEQ" , $oUserAccount- 
>f etchColumn ( "RESELLER_SEQ" ) ) ; 

my ^partner = $oReseller->f etchColumn ( "CODE" ) ; 

## If the disk item share was not in the database then just use an 

xdrive 

## look n f feel. NOTE!!!!! This should be changed to a plain looking 
## error screen. 

$partner = 'xdrv' if ! defined $partner; 

$oPage = new XDrive: : Template 
{{ 

•partner^code* => $partner 
>); 

$oPage->load ( • get_a_shared_f ile f rameset - thtml 1 ) ; 

$oPage->tags 

({ ^ 
'ClaimTicket • => $ClaimTicket , 
'referee' => SdiskAccount, 
}); 

$oPage->clear { ) ; 

print $cgi->header, $oPage->get; 

$oDiskItemShare->disconnect () ; 

return 0; 

) 
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###get_a_shared_file_down!oad.cgi 

# ! /usr/bin/perl 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use Data: : Dumper; 

use XDrive: ;CGI qw(;MAIN); 

use XDrive: : Client: .'Actions; 

use XDrive: : DatabaseO: : Search; 

use XDrive: : DatabaseO: : Table: rUserData; 

use XDrive: : DatabaseO: : Table : : DiskltemShare; 

use XDrive: : Template ; 

use XDrive: : Error; 

use strict; 

&main; 
exit; 

sub main 
{ 

my ($sFileDescription, SsFileSize, $sRandomKey, $sSeq) ; 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error; 

my $g_oShared; ## Shared object 

my $g__oSearch; ## Shared object 

my $g_oAction; ## Action object 

my $g_oFileStat; ## File stats 

$sRandomKey = $ENV{ 'QUERY_STRING * } ; 

if ( ! $sRandomKey) 
{ 

my $sMessage - $oErr->ReturnMessageGivenCode ( 1360) • 
&display_error ($sMessage, $oErr) ; 

else 

{ 

## Instantiate and load the shared object 
undef ) ; $ *_oShared - XDrive: :DatabaseO: :Table: :DiskItemShare.>new(undef, 

>fetchDBO() ) ; g -° SearCh " XDr±Ve: :Database ° ; :Search->new($g_oShared- 

$g_oShared->loadWhere( M RANDOM_KEY", SsRandomKey) ; 
$sSeq = $g_oShared->fetchColumn("SEQ rt ) ; 

if ( ! $sSeq) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode (1361 ) ; 
&display_error ($sMessage # $oErr) ; 

11 °K 11 K th ! Cl ff nt action constructor with the shared object 
f! Si? Wl11 USe t0 load 311 the needed cIien t information 
$g_oAct i0 n « new XDrive: : Client s : Actions ($g_oShared,$cgi) ; 

my $sFile « join 
< V', 
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$g__oShared->f etchColumn ( M ITEM_PATH" ) , 
$g_oShared->fetchColumn ( "ITEM_NAME" ) 
) ; 

$g_oFileStat = $g_oAction->FileStat ($sFile) ; 

if ( !$g_oFileStat) { 

my $sMessage = $oErr->ReturnMessageGivenCode { 1362 ) ; 

&display_error ($sMessage, $oErr) ; 
} else { 

$sFileDescription = $g_oShared->f etchColumn ( "DESCRIPTION" ) ; 
$sFileSize = {$g_oFileStat->size { ) > 1024)? 
int ($g_oFileStat->size()/1024) . "K" : 

$g_oFileStat->size ( ) . " bytes"; 



&display_f orm ($g_oShared- 
>f etchColumn ( " ITEM__NAME n ) , $sRandomKey, SsFileSize, 

$sFileDescription, $g_oSearch->XDResellerCodeFromUserSeq { $g_oShared- 
>f etchColumn ( "DISK_ACCOUNT__USER_SEQ" ) ) ) ; 

} 

} 

$g_oShared->f inish ( ) ; 
$g_oShared->disconnect ( ) ; 
$g_oAction->DisconnectDB ( ) ; 

} 



sub display_f orm 
{ 

my <$sFilename, $sRandomKey, $sFileSize f $sFileDescript ion, $sPartner ) 

=@__; 

my $oForm = new XDrive: : Template; 
$oForm->partner ($sPartner) ; 

$oForm->load ( • get_a_shared_f ile download_screen - thtml * ) ; 

$oForm->tags 
({ 

•sFilename' => $sFilename, 
r sExtraPathInfo' => $sFilename, 
'sRandomKey' => $sRandomKey, 
'sFileSize* ==> $sFileSize, 
'sFileDescription' => $sFileDescription, 

> > ' 

$oForm->clear ( ) ; 

print "content-type: text/html\n\n", $oForm->get; 

exit(0); 

} 

sub display_error 
( 

my ($message,$oErr) = 8_; 

if ( ! $message) 
{ 

$message « $oErr->ReturnMessageGivenCode (1363) ; 

} 

my $oForm = new XDrive: : Template; 
$oForm->partner ( ' xdrv • ) ; 

$oForm->load ( • get_a_shared_f ile error . thtml * ) ; 
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?oForm->tags PCT/USOO/30536 
( ( 

•message' => ^message, 

}); 

print "content-type: text/html \n\n", $oForm->aet • 
exit(0); ^<-> 
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###login.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> to verify that the user is 

# good to login, if they are then log them in and otherwise redirect to 

# a not authorized page. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use XDrive: : DatabaseO: : Table: : DiskAccount ; 

use XDrive: : DatabaseO: :Table: : UserSettings; 

use XDrive: : DatabaseO: : Table: :UserQuota; 

use XDrive: : DatabaseO: : Table: : Language; 

use XDrive :: DatabaseO: : Search; 

use CGI qw(param redirect header cookie); 

use CGI; 

use XDrive: :CGI: :Cookie; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use XDrive:: CGI; 

use XDrive: : Client: : Security; 

use XDrive: : Error; 

use XDrive: : Template; 

use XDrive: : Library ; 

use XDrive :: DatabaseO; 

use Mail : : Sendmail; 



my $oCookie = new XDrive : : CGI : : Cookie ( ' x_session_info ' , $oCGI ) ; 

my SoToken; 
my $sToken; 
my $sOsername; 
my $ s Partner Code; 

## johngaa add for dbexist check 

my $oDBO; 

if (XDDBConnectionCheckO && XDNFSCheck ( ) ) 
i 

$oDBO = new XDrive :: DatabaseO; 

} 

else 
{ 

$oDBO = undef ; 

print redirect ("/upgrading_index. html") ; 
exit; 

} 

## end of johngaa change 
my $bSecurity = $oCGI->param { * bSecurity ' ) ; 
my $sPartnerToken « $oCGI->param ( *partner_token f ) ; 

my $passed_lang = $oCGI->param (' language ') ; 



&main; 
exit; 



sub main 
{ 



ray $oCGI 
my $oErr 
##my $oDB0 



new CGI; 

new XDrive: : Error; 

- new XDrive: : DatabaseO; 



##### 
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II ^"^Pt ^ authenticate the user by using one of the following two 

:s£ssst t s." rthod " ! —/™* Pair or Par tn er ^ 
##### 

if (! defined $sUsername && length ($sPartnerToken) > 20) 

authPartnerUser <$oCGI, $oErr, $oDBO, \$sUsername, \$oToken 

\SsPartnerCode,$sPartnerToken) ; 
$sToken = $oToken->name ( ) ; 
) 

else 

{ 

authWebSitet)ser<$oCGI,$oErr,$oDBO, \$sUsername, \$oToken) • 

$sPartnerCode = 'xdrv'; 

} 

##*## 

## If an error occurud while trying to create a token then redirect 

## the user to the error page. 

##### 

if ($oErr->Occurud) 
{ 

$oDBO->disconnect ; 

xd_f atalerror (SoCGI, $oErr) ; 

exit; 

} 

##### 

##### ^ g ° tten hSre then we have an authenticated user. 

##### 

## Build and print out cookies 
##### 

my $sLanguage = get Language ($oDBO, $sUsername) ; 

##check if user's language is the same as passed language 

if ( (length ($passed_lang) > 0) SsLanguage ne $passed_lang) 

##update db here to new language 
setLanguage ($oDBO, $sUsemame, $passed_lang) ; 
##update session to new language 
$sLanguage = $passed lang; 
> " 

##delete the promo cookie; this will not be set here and we 
##don't want an old one hanging out 
##promo cookies should be set in promo. cgi 

$oCookie->deleteElement ( 'promo' ) if $oCookie->getElement { 'promo' ) ; 

$oCookie->setElement 
({ 

'language' => $sLanguage, 
•partner' $sPartnerCode, 
}) ; 

print "Set-Cookie: $oCookie->asString ( ) ; 

print "Set-Cookie: SST=$sToken; domain= . xdrive . com; path-/\n" 
if $sPartnerCode ne 'xdrv'; 
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##### 

## write user login to the database 
##### 

&incrementLoginNumber ($oDBO, $sUsemame, $sLanguage, $sPartnerCode) ; 
##### 

## Send the user off into thier file explorer 
##### 

if ($ENV{ ' HTTP_USER_AGENT 1 } / A xdwin/} 
{ 

print $oCGI->redirect("?sst=".$oToken->name() . "&sid=0"); 
) 

else 

< 

xd_web_open($oCGI, ,,w , \%ENV, $bSecurity) ; 

} 

$oDBO->disconnect ; 

return 0; 

} 

sub isYesterday ( ) 
{ 

## 

## Date: 01/25/99 

## used to check of a date if its today or not 
## 

my $last_login =* shift; 

my $nSec; ## Seconds 

my $nMin; ## Minutes 

my $nHour; ## Hours 

my $sDay; ## Weekday 

my $nDay; ## Numeric date (01-31) 

my SnMonth; ## Numeric month (01-12) 

my $nYear; ## Numeric year (00-99) 

my StodaysDate = ($nSec, $nMin, $nHour, $nDay, $nMonth, $nYear, 
SsDay) = (localtime(time) ) [0,1,2,3, 4,5,6] ; 

$last_login — / ( [\d] + ) - ( [\d] +) - ( [\d] + ) /i; 
my $last_login_year = int($l) 
my $last_login_month = int($2) 
my $last_login_day = int($3) 

f {$last_login_year < SnYear) 

return 1 ; 

f ($last_login_month < $nMonth) 

return 1; 

f ($last_login_day < $nDay) 

return 1; 

return 0; 
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sub incrementLoginNumber () 
{ 

my $oDBO « shift; 
my $sUsername - shift ; 
my $sLanguage = shift; 
my $sPartnerCode = shift; 

my SoDiskAccount = XDrive- -Datahpcon. .t.ki r.- , 
>new(undef,$oDBO); * DatabaseO: : Table : : DxskAccount- 

5oDiskAccount->loadWhere("DSERNAME- f SsUsername) - 
$oDiskAccount->finish; ^username), 

Z ^ersea 9 " d ^n^ Jj DisWte ~™t->£etchColumn ( "LOGIN NUM") ; 
my $user_seq - $oDxskAccount->f etchColumn ( "USER_SEQ" ) J 

# # j ohngaa add 

## insert a warn in the error log if this is thp 
if ($ENV rH TTP__USER_AGENTM - /^xdwin/) 

my $todaysDate =» XDTodayO; 

date= $ todayX?ei^ lient -- 109in user - se ^^ser_seq username=$sUsername 
} 

## end of johngaa warn of first entry 

if (StimesLoggedln) 
{ 

$ t imesLoggedIn++ ; 
> 

else 

{ 

$timesLoggedIn-l; 
} 

*£f j!£ CTO ^ $timesLoggedIn) ; 

$oD iS kAccount->setColumn ( "LAST_LOGIN», XDToday ()) ; 

my $status = $oDis)cAccount->update ( ) ; 

if ($status > -1) 
{ 

$oDiskAccount->conmiit ( ) ; 
$oDiskAccount«>finish() ; 

## johngaa modify to exclude college club 
## and quepasa users out of the extra space 
## promo 

>new(undef, $ oDBO>; $ ° 0serData = ^Drive: :DatabaseO: : Table : :UserData- 

$oUserData->loadWhere(-SEQ-, $user sea); 

m y ^reseller sea = SoOserData- ~~ 
>f etchColumn ( "RESELLER_SEQ") ; ~ '"^eruata 

if ( ! (isResellerSeqCC_QOPA{$oDBO / Sreseller_seq) ) ) 

##give user extra 10MB if 10th login 
if (StimesLoggedln ==> 10) 

>new(undef /$ oDBO) ; $oUserQuota - XDrive: ;DatabaseO: : Table : :UserQuota- 
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$oUserQuota->loadWhere ( "USER_SEQ'\ $user_seq) ; 
my $additional_quota = SoUserQuota- 
>incrementQuota ($user_seq, 10240) ; 

if ( $additional_quota > 0) 

{ 

&send_email ($user_seq, $oDBO, 
$additional_quota/ $sLanguage / $sPartnerCode ) ; 

} 

} 

} 

) 

else 
{ 

# $oDiskAccount->rollback( ) ; 
) 



sub isResellerSeqCC_QUPA 
{ 

my $oDBO - shift; 

my $reseller__seq = shift; 

my $dbh = $oDBO->f etchDBH ( ) ; 

my $sql_stmt - "SELECT code FROM reseller WHERE seq=? M ; 
my $cmd; 
my ©data; 



$cmd = $dbh->prepare ($sql_stmt) ; 

$crad->execute( ($reseller_seq) ) ; 

Gdata = $ cmd-> f e t chrow^ar r a y ; 

if ($data[0] eq 'cc' II $data[0] eq 'qupa') 

{ 

return 1 ; 

##print "should return a true\n" 

} 

return 0; 



s ub sen d_ema i 1 
{ 

my $user_seq = shift; 

my $oDBO - shift; 
my $additional_quota = shift; 
my $sLanguage - shift ; 
my $sPartnerCode = shift; 

if ($sPartnerCode eq 'cc') 
{ 

return; 

} 



##comes in as k, change to megabytes 
my $mbs — $additional — quota/ 1024 ; 

my $oOserData = XDrive: : DatabaseO: : Table :: UserData->new (undef , $oDBO) ; 
$oUserData->loadWhere ("SEQ", $user_seq) ; 

my $email_address ~ $oUserData->f etchColumn ( "EMAIL_ADDRESS" ) ; 
my $name_first = $oUs er Da ta->f etchColumn ( "NAME_FIRST" ) ; 
my $name_last « $oUserData->f etchColumn ( "NAME_LAST W ) ; 
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({ my SoTemplate - new XDrive: :Te m plate PCT/US00/30536 

•language' => $sLanguage, 

'partner^code' => $sPartnerCode, 
)) ; 

,oitl;T^t;:tTu 1 ' '^^-^-"login. . tht m i • ) ; 
'mbs' => $mbs, 
>); 

$oTemplate->clear ( ) ; 

my ^message - $oTemplate->get ; 

my %toXdrive = 
( 

Bcc I> ';^ ame - first $name_last <$email_address>», 

From -> "support \0xdrive. com", 
Message => Smessage, 
Subject "Congratulations!" 
) ; 

sendmail (%toXdrive) ; 



sub authPartnerUser 
{ 

my $oCGI = shift; 

my $oErr = shift;. 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $rsPartnerCode = shift; 

my $sPartnerToken = shift; 

my SoCookie = new XDrive: :CGI: : Cookie ( 1 x_session_inf o ' , $ oCGI> ; 

my $oPartnerToken = new Token 
({ 

'err' => $oErr, 
■dbh' $oDBO, 
>); 

$oPartnerToken->load($sPartnerToken) ; 
return if $oErr->Occurud; 

$$roToken = new Token - 
({ 

•dbh' => $oDBO, 
•err' => $oErr, 

juser_sequence- -> $oPartnerToken->data ( • user_seq • ) , 
$$roToken->create { ) ; 
return if $oErr->Occurud; 

Ml fn^K d by ^ UStln S ° that the P^tner code is looked for 
III J n w th w C °° kie instead the token table. - 
### And then again because I shouldn't have done that The 
### partner code hasn't been set in the cookie fay th!s poXt 
### so we shouldn't be looking in there for it Point, 

5rsPartnerCode = $oPartnerToken->data ( 'partner code')- 
# SSrsPartnerCode = $oCookie->getElement * ' 
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$$rsUsername = $oPartnerToken->data { ' user * ) ; 



PCT/USOO/30536 



$$roToken->data ( f ip f , $ ENV { REMOTE_ADDR } ) ; 
$$roToken->data ( ' browser * , $ENV {HTTP_USER_AGENT } ) ; 
$$roToken->data ( * user • , $$rsUsername) ; 

$$roToken->data { • user_seq' , $oPartnerToken->data ( 'user^seq' ) ) ; 
$$roToken->data ( ' partner^code • ,$$rsPartnerCode) ; 
$$roToken->data ( f disk_account_seq' , $oPartnerToken- 
>data ( , disk_account_seq» ) ) ; 
$$roToken->save; 

$oPartnerToken->delete { ) ; 



sub authWebSiteUser 
{ 

my $oCGI = shift ; 

my $oErr = shift; 

my $oDBO = shift; 

my $rsUsername = shift; 

my $roToken = shift; 

my $sPassword = $oCGI->param ( 'pass 1 ) ; 
$$rsCJsername =* $oCGI->param £ 1 user ■ ) ; 

if (xd_auth_password($$rsUsername, SsPassword, $oDBO) ) 
{ 

## Login the user info Xrdrive and get the session token 
$$roToken = xdlogin ($oCGI, $$rsUsername, $oErr, $oDB0) ; 
} 

else 

{ 

$oErr->AddErrorByErrorCode ( 1 501 ' ) ; 
} 

} 

sub getLanguage 
{ 

my $oDBO = shift; 

my $sUsername = shift; 

my $ language ; 

## get the user's language out of the database 
my SoDiskAccount = XDrive : : DatabaseO :; Table: : Dis kAccount- 
>new(undef, $oDBO) ; 

$oDiskAccount->loadWhere ("USERNAME", $sUsername) ; 
$oDiskAccount->finish; 

my $userSeq = $oDiskAccount->f etchColumn ( "OSER^SEQ" ) ; 

my $oUserSettings « XDrive : : DatabaseO: : Table: : UserSettings- 
>new(undef , $oDBO) ; 

$oUserSettings->loadWhere ("USER_SEp", $userSeq) ; 
$oUserSettings->f inish; 

my $language * $oUserSettings->f etchColumn ( "LANGUAGE" ) ; 

if (Slanguage eq ,f ) 
{ 

$language = • english'; 
} 

else 

{ 

## Get language from database given code 
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my $oLanguage - XDrive : : DatabaseO- • Tahl <* - . t 
>new(undef,$oDBO) ; Se °* -Table. . Language- 

$oLanguage->loadWhere<"SEQ», $language) ; 
$oLanguage->finish; 

$language = $oLanguage->f etchColumn ( "CODE" ) ; 

return $language; 
} 

sub setLanguage 
{ 

language^ 3 "' ^ LANGUAGE Co1 ^ of the User_Settings table to passed 

my $oDBO = shift; 

my $sUsername = shift; 

my $language = shift; 

my ($rv, $errorCode) ; 

## get the user's language out of the database 
my SoDxskAccount « XDrive Datah^on- - t^ki ^ r, • 
>new(undef,$oDBO) ; -DatabaseO. . Table : : DiskAccount- 

##grab right table 

$oDiskAccount->loadWhere("USERNAME" / SsUsername) • 
$oDiskAccount->finish; 

my $userSeq - $oDiskAccount->f etchColumn ( "USER_S£Q» ) ; 

my $oUserSettings - XDrive : : DatabaseO: : Table • • UserSeM- i noc 
>new(undef / $oDBO) ; ie ' • userSettmgs- 

$oUserSettings->loadWhere(»OSER SEQ" $userSeo) • 
$oUserSettings->finish; ~~ ' 

##grab the seq number of the LANGUAGE being passedi 
$oLanguage->f inish ( ) ; 

my $seq_lang = $oLanguage->f etchColumn ( "SEQ" ) ; 

eval 
{ 

## 

##set language here 
$rv => 0; 

$oUserSettings->setColumn ( 1 LANGUAGE ' , $seq lanq) • 
$rv = $oUserSettings->update{) ; - ~ 

} ; 

if ($rv == 0) 
{ 

$oUserSettings->rollback ( ) ; 
$ error Code = 0; 

} 

else 
{ 

$oUserSettings->coinmit ( ) ; 
$errorCode = 1; 

} 

return $errorCode; 
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###logout.cgi 

# ! /usr/bin/perl 

## Program to log the user out, currently hacked to redirect to the homepage. 

## Modified by Justin on 10/15/99 to be Security. pm friendly 

## and get rid of the XDrive::CGI stuff. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 
use XDrive: : Client :: Security; 
use XDrive: : DatabaseO; 
use XDrive :: Error; 

&main; 
exit; 

sub main 
{ 

my $oCGI » CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oError = new XDrive: : Error; 

##removes token from the database 
xd_logout ($oDBO, $oCGI f $oError) ; 

$oDBO->disconnect ; 

print $oCGI->redirect ('/'); 

return 0; 

} 
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# I /usr/bin/perl 

## Written by Martin Hald <martin@xdrive.com> on Sun Sep 5 1999 
## Script to dynamically show the correct tempate based on wh!ch 
## partner is looking at the web site. wnich 

use strict; 

use lib ($ENV{ PERL__XDRIVE_LIB) ) ; 
use CGI; 

use XDrive: : Library; 

use XDrive: : Template; 

use XDrive: : Error; 

use XDrive: : DatabaseO; 

use XDrive: : Client :: Security; 

&main; 
exit; 

sub main 
{ 

## Load the session token 

my $oErr » new XDrive :: Error ; 

my $oDBO » new XDrive :: DatabaseO; 

my $oCGI = new CGI; 

my SoCookie = new XDrive : : CGI : : Cookie ( 'x_session_info ' , $ oCGI); 
#### 

## Attempt to autenticate the user 
#### 

my $oToken - xd_security_check ($0060, $oCGI , $oErr ) ; 
#### 

It It U?" d06S nCt valida te or an error occurud 

#### redlreCt tC the error CGI exit 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 
$oDBO->disconnect () ; 

exit; 
} 

#### 

II ?«r Wi rw We . h ? Ve validated and should load the navbar 
## associated with the partner 

#### 

III ^ ±ted JUSt±n S ° that P a "ner w code is looked for in 
### the cookie instead of the token table 

# my SoForm = new XDrive :: Template 

# ({ 

I 'partner_code- =>. $oToken->data ( • partner_code ■ ) 

my SoForm = new XDrive : : Template 
({ 
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■partner^code' => $oCookie->getElement ( 'partner* ) 
) ) ; 

$oForm->load ( 1 navbar . thtml • ) ; 
#### 

## Print the navbar and stop 
#### 

print "Content-type: text/htmlXnNn"; 
print $oForm->get ; 

$oDBO->disconnect () ; 

return 0; 
} 
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###password_change.cgi 

# ! /usr/bin/perl 

## Written by Lucas McGregor on ??? 
use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}> ; 

use CGI qw (header param) ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Token; 

use XDrive: :DatabaseO; 

use XDrive :: Error; 

use XDrive : : CGI qw(:MAIN); 

use XDrive: : Client :: Security; 

use XDrive: : Client: .'Registration; 

use XDrive: :DatabaseO: transaction; 

use XDrive: :DatabaseO: :Table: : DiskAccount ; 

use XDrive: : Library; 

use XDrive: : Template; 

use constant TRUE => ( ) ; 
use constant FALSE J TRUE; 

&main; 
exit; 

sub main 
{ 

my $oCGI = CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

my $oErr = new XDrive: : Error; 

#### 

## Attempt to autenticate the user 
#### 

my SoToken = xd_security_check (SoDBO, $oCGI / $oErr) ; 
#### 

«*## 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit; 

} 

#### 

IJ#? therWiSe haVS autenticatec * the user and can proceed 

my $sUsername = $oToken->data ( 'user ' ) ; 

!^p a !r° r ^ COnflrin = $oCGI ->Param('txtPasswordNew2' 
my SsPasswordOld = $oCGI->param ( • txtPasswordOldl • 
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if ( (SsPasswordNew eq 1 1 ) 11 ($sPasswordNewConf irm eq ' 1 ) I I 
(SsPasswordOld eq ' 1 ) ) 
{ 

##if any of the fields is blank, give em error message 
my $sMessage = $oErr->ReturnMessageGivenCode { 134 0 ) ; ■ 
XDErrorToBrowser ( " " , $sMessage, undef , $oToken) ; 
} 

## Change user's password 
PasswordSet ( $sUsername, $sPasswordNew, 
SsPasswordOld, $oToken, $oErr/ $oCGI ) ; 

return 0; 
} 

##«##########t#######*#####ft*#**«t***<**#*#*«###«ft##**#**###*#***.fl*t*#tt*t** 

## PasswordSet: Change user's password 
########################### W 

sub PasswordSet ($$) 
{ 

my $sOsername = shift; ## (I) User in question 

my $sPassword = shift; ## (I) New password 

my SsPasswordOld = shift; ## (I) Old password 

my $oToken = shift; ## (I) Token object 

my $oErr *= shift; 
my $oCGI » shift; 

my $sPassEncrypted = XDEncrypt ($sPassword) ; 

my $oDiskAccount = XDrive :: DatabaseO: : Table DiskAccount->new () ; 
$oDiskAccount->loadWhere < "USERNAME" , $sUsername) ; 

if (! PasswordsMatch ( $oDiskAccount- 
>fetchColumn (-PASSWORD") , SsPasswordOld) ) 
{ 

my $sMessage = $oErr->ReturnMessageGivenCode ( 134 1 ) ; 
XDErrorToBrowser{ n ",$sMessage / undef,$oToken) ; 

} 

if (! defined $oDiskAccount->fetchColuian ( w USER_SEQ n ) ) 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1342) ; 

XDErrorToBrowser ( " $sMessage, undef , $oToken) ; 

) 

$oDiskAccount->setColumn ( "PASSWORD" , SsPassEncrypted) ; 
my $status = $oDiskAccount->update ( ) ; 

## If no error, then commit 

## Else rollback and show an error 

if ($status > -1) { 

$oDiskAccount->commit ( ) ; 

) 

else 
{ 

$oDiskAccount->rollback ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1343) ; 
XDErrorToBrowser ("", $ sMes sage, undef , $oToken) ; 

) 

$oDiskAccount->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 
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my SoTemplate - new XDrive :: Template ( {'partner code* => 'xdrvM )- 
$oTemplate->load( ' pas sword_changed. t html • ) ; ~ 
print $oCGI->header {) , $oTemplate->get ; 

## PasswordsMatch: Check an encrypted password against an unencrypted 

#« password and return true or false yH 

""••••»««#M######«#############f# ##fitf#ifft#fii#i#i##fi####i#####i### 

sub PasswordsMatch 
{ 

my $sEncrypted = shift; ## current password 
my $sToCheck = shift; ## string to check 

tt TrZT^T^ti:* password with the sait from the p — d 

my ($sSalt) = $sEncrypted /*(\w{2))/; 

## Do the passwords match? If so then return true, otherwise false 
if <$sEncrypted eq crypt ( $sToCheck, $sSalt ) ) talse. 

return TRUE; 
} 



return FALSE; 

} 



INSDOCID: <WO 0133381A1. (A> 



70 of 137 



WO 01/33381 



PCTYUSOO/30536 



###promo.cgi 

# ! /usr/bin/perl 
## 

## File: promo. cgi 
## 

## Written by Justin White on 10/25/99. 

## Sets a promo cookie and redirects to the home page. 

use strict ; 

use lib ($ENV{PERL_XDRIVE_LIB}>; 

use XDrive: : Template; 

use XDrive: : DatabaseO; 

use XDrive: :CGI: : Cookie; 

use XDrive :: DatabaseO: : Search; 

use CGI; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
&main ( ) ; 
exit ; 

sub main { 

my (Scookie, $promo, %new_info, $oSearch, $oTemplate) ; 
my $oCGI = CGI->new(); 

my $oCookie = XDrive: : CGI : :Cookie->new (' x_session_inf o • , $oCGI) ; 

my $path_info = $ENV{ ■ PATH__INF0 1 } ; 

my SsClaimTicket = $oCGI->param ( • ct • ) ; 

if ($sClaimTicket ) { 
## 

# Via cookie, set the promo so that signup_account . cgi treats 

# it as a promo and set the claim ticket code so that we can 

# remove that data from the batch_user_data table. 
## 

$oCookie->setElement ( {'ct 1 => $sClaimTicket ) ); 

} 

if ($path_info) { 

$path_info =~ s/^\///; 

$oCookie->setElement ( {'promo' => $path_info) }; 
$oCookie->set Path {•/'); 

##if user is coming from the befree promo, set a cookie with their 
##source id, be Free requires this for tracking purposes 
if ($path_info =~ /befree/) 
{ 

my $sourceid « $oCGI->param ( ' sourceid* ) ; 

print "Set-Cookie : sourceid=$sourceid; domain= . xdrive. com; 

path=/\n" 
} 

my $oDBO = XDrive :: DatabaseO->new {) ; 

my $oSearch = XDrive: : DatabaseO: : Search->new < $oDBO) ; 
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my @bind_array = ($path_info) ; 

# my $st "SELECT p. template, p. redirect_url, dl . code 

# FROM xdrive .promo p, xdrive . v_language dl 

# WHERE p.uri = '$path_info' 

# AND p. du_language = dl.seq{+)"; 

my $st = "SELECT p. template, p. redirect_url , dl.code 
FROM xdrive. promo p, xdrive. v languaqe dl 
WHERE p.uri = ? ~~ 
AND p.du_language = dl.seq(+)"; 

# my $data = $oSearch->XDSQLSearch ($st ) ; 

my $data = $oSearch->XDSQLSearch ($st, \Gbind array); 
my $rows = @{$data}; ~ 

if ($rows > 0) { 

my Stemplate = $$data[0][0] 

my $redirect_url = $$data[0)[l] 
my Slanguage = $$data[0][3J 

$oCookie->setElement ( {'language' => Slanguage) ); 
print "Set-Cookie: $oCookie->asString ( ) ; 

if (Stemplate) { 
eval { 

SoTemplate = new XDrive ;: Template ( {'cookie 1 



SoCookie, 

'partner_code ' => 'xdrv f ) 

$oTemplate->partner { • xdrv ' ) ; 
$oTemplate->load ("promo/$template" ) ; 

} / 

if ($@> { 

print $oCGI->redirect { '/* ) ; 
warn n $Q\n n ; 

) 

else { 

^ print $oCGI->header () , $oTemplate->get ; 
$oSear ch->disconnect ; 

) 

elsif ($redirect_url) { 

print $oCGI->redirect ($redirect_url ) ; 

$oSearch->dis connect ; 

} 

else { 

print $oCGI->redirect ( V ) ; 
$oSearch->disconnect ; 

> 

} 

else { 

print $oCGI->redirect ( * / ' ) ; 

) 

} 

else { 
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print $oCGI->redirect ( • / * ) ; 

$oSearch->disconnect ; 

} 

return; 

} 
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###removespace.cgi 

# ! /usr/bin/perl 

###################################### ###############################3 
## Written by Karen Eppinger 

## removespace . cgi - cancels additional space requests 

################################## ###################################3 
use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use XDrive: : Error; 
use XDrive :: Library; 
use XDrive: : DatabaseO; 

use XDrive: :DatabaseO: : Table: : Reseller; 

use XDrive: : DatabaseO: : Table: :Deal; 

use XDrive: :DatabaseO: : Table: : Item; 

use XDrive: rDatabaseO: : Table: : DiskAccount ; 

use XDrive: : DatabaseO: : Table : :UserData; 

use XDrive : : DatabaseO: : Table : : OserPurchase; 

use XDrive: ; Client :: Actions; 

use XDrive: : DatabaseO :: Search; 

use XDrive: : Sale: : Purchase; 

use Mail : : Sendmail; 

use CGI:: Carp qw (f atalsToBrowser ) ; 
use CGI; 

use XDrive: : Template; 
use XDrive:: CGI qw(:MAIN); 
use XDrive: : Client :: Security; 
use EpochClient_ssl; 

use strict; 

$ENV{»PATH 1 } = '/bin'; 

delete @ENV{qw(IFS CD PATH ENV BASH_ENV) } ; # Make %ENV safer 
exit &main; 

J#######f######l##fM 

ff# main: main function calls all others 

## 

## 

•**#*i#*#*#f#*ttt*##*ff######t#*f*tt**###«f*i*####t«#tt##**#ff ##*############ 

sub main 
{ 

my $oCGI = CGI»>new(); 

my $oDB0 « new XDrive :: DatabaseO; 

my $oErr « new XDrive: : Error; 

#### 

## Attempt to authenticate the user 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI, $oErr) ; 
#### 

## If an error occurs during autentication or authentication fails 

## then redirect to the error CGI and exit 

#### 
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if <$oErr->Occurud) 
{ 

xd_f atal_error ($oCGI, $oErr) ; 

exit ; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $sUserName = $oToken->data ( 'user 1 ) ; 
my $oTemplate = new XDrive :: Template 
(( 

• partner_code • $oToken->dat a { f partner_code 1 ) 

}); 

## used to figure whether to give user the form or process the form 
my $sAction - $oCGI->param ( "action" ) ; 

## Create a DBH 

my $oDBH = XDrive :: DatabaseO->new {) ; 

## if the action is a request type 
if (SsAction eq 'process') 

##else we process the form input 

&CheckSpaceUsed($oCGI, $sUserName, $oTemplate, $oToken # $oDBH, $oErr) ; 

elsif (SsAction eq 'intro') 

&ShowIntroPage($oTemplate,$sUserName,$oToken, $oCGI) ; 

else 

## we give the user the form 

&ShowSpace ($sUserName, $oTemplate / $oToken, $oDBH, $oErr) ; 
$oDBH->disconnect ( ) ; 



########################################*####*##*##*#*### t################## 
## CheckSpaceUsed: make sure the user has enough free space for his files 

## if not, do not let him cancel 

########f###l#######*#############t##########i########t#t###t###ll#####l#### 

sub CheckSpaceUsed 
{ 

my SoCGI = shift ; 
my $sUserName = shift; 
my $oTemplate = shift; 
my SoToken = shift; 
my $oDBH = shift; 
my $oErr = shift; 

##we need to get the number of fields so we know what to process 
my @ fields = $oCGI->param; 
my $ checked =0; 

my $returnValue = ' • ; 

##for each checked item, either cancel or tell user they may not cancel 
fibecause space used is larger than space available after cancelation 
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for (my $i=0; $i<$#f ields; $i++) 
{ 

if ($fields[$i]=~/-tc_/) 
i 

$f ields [$i] =-s/ A tc_//; 

my SoPurchase = new XDrive : : Sale : : Purchase ($oDBH) ; 
my @message_dbmessage = $oPurchase->CancelItem ( $f Ields t $±) , 



$sUserName) 



$returnValue . =$message_dbmessage [0] ; 
$checked++; 

if ($message_dbmessage [ 1 ] != 0) 
{ 

$oDBH->commit ( ) ; 

) 

else 
{ 



} 



} 

if ($checked>0) 
{ 



$oDBH->rollback { ) ; 



} 

else 
{ 



##show the page that tells user if space was cancelled or not 
&ShowCanceled (SreturnValue, $oTemplate) ; 



##user hasn't checked anything, give em error page 
my $sError = $oErr->ReturnMessageGivenCode ( 1301) ; 
XDErrorToBrowser ("", $sError, undef, $oToken) ; 



*****i*#****«*#**t**###*#*#*#**#*#*####i*#tt#####*#t#tfft #ft##i## l ##tff#ffffff . t#t 

## ShowCanceled: tell user space was cancelled 

•■••-«#i*#-«#-tt#*tt#t#*#t**t>*#***#***t*#*t#######t######t####t####t« ###<t##tit 

sub ShowCanceled 
{ 

my SsItemsCanceled - shift; 
my $oTemplate « shift; 

## Load the required template HTML files. 
$oTemplate->load ( • removes pa ce__ok . thtml • ) ; 
$oTemplate->tags 
({ 

•items* => SsItemsCanceled 
} ) ; 

print "Content-type: text /html \n\n" ; 

print $oTemplate->get {) ; 

} 

#######################^ 

## ShowSpace: shows the user the initial page with their current space 
## allocation 

################################# #####t##################################### 

sub ShowSpace 
{ 
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my $sUserName - shift; 
my SoTemplate = shift; 
my $oToken = shift ; 
my $oDBH - shift; 
my $oErr = shift; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1302) ; 
$sMessage = &GetItems ($sUserName, $oToken, SoDBH, $oErr ) ; 

## Load the required template HTML files. 
$oTemplate->load ( * removespace_request . thtml * ) ; 
$oTemplate->tags 
({ 

•items' => $sMessage 
}); 

print "Content- type : text/html\n\n" ; 
print $oTemplate->get { ) ; 

> 

sub ShowIntroPage 
{ 

my $oTemplate = shift; 
my $sUserName = shift; 
my $oToken - shift; 
my $oCGI = shift; 

my $oAction = new XDrive :: Client :: Actions 
( 

SoToken, 
$oCGI 

) ; 

my $quotal)sed = $oAction->QuotaUsed ( ) ; 
SquotaUsed « sprintf ( "%2 . 2f $quotaUsed/1024 ) ; 
my $quotaLimit = $oAct ion->Quota Limit () ; 
$quotaLimit * sprintf ( "%2 . 2f M , $quotaLimit/102 4 ) ; 

$oTemplate->load ( ' removespace_intro . thtml ' ) ; 
$oTemplate->tags 
({ 

* quotaUsed' => $quotaUsed, 
• quotaLimit* => $quotaLimit 

}); 

$oTemplate->clear ( ) ; 

print "Content-type: text/html\n\n w ; 
print $oTemplate->get ( ) ; 

} 

sub Get Items 
< 

my $sUserName = shift; 
my $oToken = shift; 
my $oDBH =» shift; 
my $oErr = shift; 

my SoDiskAccount = XDrive :: DatabaseO: : Table :: DiskAccount- 
>new (undef / $oDBH) ; 

$oDiskAccount->loadWhere ( • USERNAME • , $sUserName ) ; 

##now load all items in the userj)urchase database that are 
##owned by this user 

my $userSeq = $oDiskAccount->f etchColumn ( • USER_SEQ 1 ) ; 
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##passing a 0 as the last parameter returns all non-canceled items 
my $oSearch = XDrive : : DatabaseO: : Search->new (undef ) ; 
my Sarray = $oSearch->XDUserPurchases ($userSeq, 0) ; 

##see if the array returned any items 

if ($array->[0] [0] eq 
{ 

my $sError = $oErr->ReturnMessageGivenCode (1302) ; 
XDErrorToBrowser { • removespace noitems . thtml ■ , SsError 1 

} 

my $i; 

my $itenis = 1 9 ; 

for $i (0. .$#{$array} ) 
{ 

##storing the complete string returned by Epoch 
##must take only stuff after the I to cancel transaction 
##and chop off last character which seems to be a line return 
##may have to alter this if we see problems 
chop($array->[$i] [4] ) ; 

my @aCodes=split(/\|/, $array-> [$i ] [ 4 ] ) ; 
my $itemName « 'tc_' . $aCodes[l]; 
$itemName=~s/~//; 

##Get the name associated with this item 

my SoDeal = XDrive: : DatabaseO: : Table : :Deal->new (undef , $oDBH) ; 

$oDeal->loadWhere ( ' SEQ • , $array->[$i] [2] ) ; 

my $itemSeq = $oDeal->f etchColumn ( • ITEM_SEQ 1 > ; 

my $oItem = XDrive: : DatabaseO: : Table: : Item- >new (undef , $oDBH) ; 
$oItem->loadWhere ( ■ SEQ ' , $itemSeq) ; 

my Sdescription « $oI t em- >f etchColumn (• DESCRIPTION ») ; 

$items .= ; <input type= "checkbox" name= n ' . $itemName . •">■ 
$description . , <BR> f ; 
> 

if ($items eq • 1 ) 
{ 

my SsError = 5oErr->RetumMessageGivenCode ( 1302 ) ; 

XDErrorToBrowser ( 'removespace noitems . thtml ■ $sError, 1, 
SoToken) ; ~~ 

} 

return $items; 
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###selected_delete.cgi 



# ! /usr/bin/perl 

# Written by Martin Hald <mhald@geotribe . com> for renaming files from the 

# web . 

use strict; 

use lib <$£NV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp qw (f atalsToBrowser ) ; 
use XDrive:: CGI qw(:MAIN); 
use XDrive :: Client :: Actions; 
use XDrive: : Client :: Security; 

use XDrive: : Error; 
use XDrive :: DatabaseO; 

exit firaain; 

sub main 
{ 

my $oCGI = new CGI; 

my $oErr = new XDrive: : Error; 

my $oDBO = new XDrive: : DatabaseO; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($oDBO, $oCGI , $oErr) ; 
#### 

## If an error occured or the user could not be validated then 

## redirect to the error CGI and exit 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 

exit; 

) 

#### 

## Otherwise we know that we have a valid session 
#### 

my $oAction = new XDrive :: Client :: Actions 
{ 

$oToken, 

$oCGI 

); 

$oAction->FileCheck($oAction->ItemCurrent () ) ; 
$oAction->ItemDelete($oAction->ItemCurrent () ) ; 
xd_web_buttonindex ($oCGI) ; 
$oAction->DisconnectDB ( ) ; 

return 0; 
} 
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###selected_rename.cgi 

# ! /usr/bin/perl 



w : /usr/Dm/peri 

# web tten ^ Martln Hald <mhald ^otribe.com> for renaming files from the 



use strict; 

use lib ($ENV{PERL_XDRIVEJLIB) ) ; 
use CGI; 

use CGI:: Carp • f atalsToBrowser 1 ; 
use XDrive::CGI qw(:MAIN); 
use XDrive: : Client :: Actions; 
use XDrive: : Client :: Security; 

use XDrive :: Library; 
use XDrive :: DatabaseO; 
use XDrive :: Error; 

## Clean up the path 
$ENV<'PATH'} = '/bin'; 

delete @ENV{qw(IFS CDPATH ENV BASH_ENV) } ; # Make %ENV safer 
exit &main; 

sub main { 

my $oCGI 
my $oErr 
my $oDBO 

#### 

## Attempt to autenticate the user 
#### 



= new CGI; 

= new XDrive: : Error ; 

= new XDrive: : DatabaseO; 



my $oToken = xd_security_check <$oDBO, $oCGI, $oErr) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 



if ($oErr->Occurud) 
< 

xd_fatal_error ($oCGI / $oErr) ; 
exi t ; 

} 

#### 

## Otherwise we have a valid session 
#### 



my $oAction = new XDrive: : Client :: Actions 
( 

$oToken, 
$oCGI 
); 



my $sltem01d = $oAction->ltemCurrent ( ) ; 

## Get the relative path to the item to be renamed from the 
## old item name itself. 
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my ($sFolder) = $sltem01d =~ / ( . +\/ ) [ +/; 

## Set the new item to be in that folder, 
my SsItemNew « SsFolder . $oAction->ItemNew ( ) . $oAction- 
>Item£xtension ( ) ; 

$oAction->FileCheck ($sltem01d) ; 

$oAction->ItemRename ($sltem01d, $sItemNew) ; 

xd_web_buttonindex ( $oCGI ) ; 
$oAction->DisconnectDB ( ) ; 

} 
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###settings_save.cgi 

# ! /usr/bin/perl 

use strict; 

use vars qw(@ISA); 

use lib ($ENV{ PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

use Data :: Dumper ; 

use XDrive :: Library; 

use XDrive:: CGI ; 

use XDrive: :Client : :Quota; 

use XDrive: : Client :: Security; 

use XDrive: : CGI :: Cookie; 

use XDrive: :DatabaseO: : Table : : UserSettings; 
use XDrive: :DatabaseO: : Table :: Language; 
use XDrive: : DatabaseO; 
use XDrive: : Error ; 
use XDrive: .-Template; 

0ISA = qw(XDrive: :CGI) ; 

exit &main; 

sub main { 

my $oCGI = CGI->new(); 

my $oDBO = new XDrive :: DatabaseO; 

ray $oErr = new XDrive: : Error; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($0080, $oCGI, $oErr) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) 
{ 

xd_fatal_error ($oCGI, $oErr) ; 
exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

my $oCookie = XDrive :: CGI :: Cookie->new ( 'x_session_inf o ■ , $oCGI) ; 
my $sUser = $oToken->data ( ■ user * ) ; 
my $nOser = UserldGet ($sUser) ; 

my $oUserSettings = XDrive :: DatabaseO: : Table :: UserSettings->new (undef, 
ndef ) ; 

## Initialize global variables 

my $g_bFileExtEdit * $oCGI->param ( 'bFileExtEdit ' ) eq 'on' ? 1 : 0; 
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my $g_b£xtraHelp = $oCGI->param ( ' bExtraHelp' ) eq 'on 1 ? 1 : 0; 
my $gJbMarketing = $oCGI->param (' bMar keting ' ) eq 'on' ? 1 : 0; 
my $g_bNewsletter = $oCGI->param ( 1 bNewsletter • ) eq 'on' ? 1 : 0; 
my $g_bLanguage = $oCGI->param ( 'bLanguage ' ) ; 
my $sCurrent Language; 

my $languageCode; 

if (defined $g_bLanguage) 
{ 

my $oLanguage = XDrive :: DatabaseO: : Table :: Language->new 

(undef, $oUserSettings->fetchDBO() ) ; 
$oLanguage->loadWhere ("CODE", $g_bLanguage) ; 
$languageCode = $oLanguage->f etchColumn { "SEQ" ) ; 
} 

We are doing this in a backwards way — first we will try and load 
current users profile. If that works then we change it and update 
by calling save. If that does not work then we just call save. 
$oOserSettings->loadWhere <"USER_SEQ", $nUser) ; 

$oUserSettings->setColumn ( "FILE_EXT_EDI TABLE", $ g_b File Ext Edi t ) ; 
$oUserSettings->setColumn ( "EXTRAJiELP", SgJbExtraHelp) ; 
$oUserSettings->setColumn ( "OPT_MARKETING" , $g_bMar keting) ; 
$ouserSettings->setColumn ("OPT_NEWSLETTER M , $g_bNewsletter ) ; 

## The language element is an OPTIONAL setting in the "My Profile" 

area . 

## If it is passed then set it, otherwise leave the current value. 

if (defined $g_bLanguage) 

{ 

$sCur rent Language = $g_bLanguage; 

$oUserSettings->setColumn ("LANGUAGE" , $languageCode) ; 

} 

else 

{ 

$sCurrentLanguage = "english"; 

} 

my $status = $oUserSettings->update < ) ; 

if ($status < 0) 
{ 

$oUserSettings->rollback ( ) ; 

my SsMessage = $oErr->ReturnMessageGivenCode (1330) ; 
XDErrorToBrowser (undef , $sMessage, undef, $oToken) 

} 

else 
{ 

$oUserSettings->commit ( ) ; 

if (defined SgJbLanguage) 
< 

##set the cookie for language 
$oCookie->setElement 
({ 

•language 1 =»> $g_ bLanguage 
}) ; 

print "Set-Cookie: ", $oCookie->asString < ) ; 
) 

} 



the 
it 



## 
## 
## 
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## Redirect the browser to the succesfull save page. 

### Edited by Justin so that we get the partner code out 
### of cookie instead of the token table. "~ 

# print xd_web_redirect 

# ( 

# "/account /prof ile/$sCurrentLanguage/saved . html w , 

# $oToken->data ( 'partner code*) 

# ); 

print xd_web_redirect 
( 

" /account /prof ile/$sCurrentLanguage/saved . html " 
$oCookie->getElement ( » partner ' ) ' 
); 



$oUserSettings->f inish { ) ; 
$oUserSettings->disconnect (} ; 
$oDBO->disconnect ( ) ; 
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###share_a_file.cgi 

# ! /usr/bin/perl 

use lib <$ENV{PERL_XDRIVE_LIB}) ; 

use XDrive: : Client: : Quota; 

use Math: : TrulyRandom; 

use XDrive :: DatabaseO; 

use XDrive: : DatabaseO: : Search; 

use XDrive: : DatabaseO: : Transaction; 

use XDrive: : DatabaseO: : Table: :UserData; 

use XDrive: :Utils: : RandomString; 

use XDrive: : CGI; 

use Mail : : Sendinail; 

use CGI:: Carp qw ( f atalsToBrowser) ; 
use CGI; 

use XDrive: : Template; 

use XDrive: : Client :: Security; 

use XDrive: : Error; 

use XDrive :: Library; 

use XDrive: : CGI :: Cookie; 

use strict; 

&main(); 

sub main { 

my $cgi = CGI->new(); 

my $oErr = new XDrive :: Error; 

my $xdDBH = XDrive :: DatabaseO->new () ; 

my SoCookie = new XDrive :: CGI :: Cookie (' x_session_inf o' , $cgi); 
#### 

## Attempt to autenticate the user 
#### 

my $oToken » xd_security_check <$xdDBH, $cgi r $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

if ($oErr->Occurud) { 

xd_f atal_error ($cgi, $oErr) ; 
$xdDBH->disconnect ( ) ; 
exit; 

} 

#### 

## Otherwise we have a valid session 
#### 

### Edited by Justin so that the partner_code is looked for 
### in the cookie instead of the token table. 
# my SsPartner = $oToken->data ( 'partnercode • ) ; 
my $sPartner « $oCoo kie->get Element ( 'partner ') ; 
my $nUser — ID =* OserldGet ($oToken->data ( 'user f ) ) ; 
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## Grab the user info from the Database 

my $oUserInfo = XDrive :: DatabaseO: ; Table: : UserData->new ({} , $xdDBH) ; 

my $sFileName = $cgi->param { "sFileName" ) ; 
my $bHelp = $cgi->param ( "help") ; 

my $sFriendsEmail = &get_f riends_emails { $cgi) ; 

my $sEmailSubject = $cgi->param ( ' sEmailSubject ■ ) ; 

my $sEmailMessage = $cgi->param{ "sEmailMessage" ) ; 

my $sFileDescription = $cgi->param ( "sFileDescription" ) ; 

my ($sRandomKey, SsFilePath) ; 

## Load user info where the SEQ = $nUser ID 
$oUserInf o->loadWhere ( n SEQ" , $nUser_ID) ;~ 

my ?sUser_name = $oUserInf o->f etchColumn ( "NAME FIRST" ) " " 
$oUser Info->f etchColumn ("NAME_LAST") ; ~ 

my $sUser_email « SoUserlnf o->f etchColumn rEMAIL_ADDRESS") ; 

if (SsFriendsEroail) 
{ 

$sFilePath="/ n ; 

$sFileName m% (.*)/(.*) %; 

tinserted this code to catch documents that are not in a folder 

my $tempFilePath = "/" . $1; 
my $tempFileName - $2; 

if (SteropFileName ne "") 
{ 

$sFileName=$tempFileName; 
$sFilePath=$tempFilePath; 
} 

&verify_database_values($nUser_ID, $sFileName, $sFilePath / 

SsFilePath, SsFileName, 
SsFileDescription, SoToken, $oErr ) ; 

## Insert the info into the disk item share table, and oet the 
random key ~" 

o ^ ! s ^ and ° mKe y.= &insert_file_into_database($nUser ID, SsFileName, 
SsFilePath, SsFileDescnption, $xdDBH, $oToken, $oErr) ; 

&send_mail($sFriendsEmail, $ sEmailSubject, SsEmailMessage, SsFileDescription, 
$sUser_name, $sUser_email, $nUser_ID, 
SsRandomKey, $sPartner, $oToken, $oErr, $cgi) ; 



&display_thank_you($sPartner) ; 

} 

else { 

$oUserInfo->finish{) ; 
$xdDBH->disconnect () ; 

&display_form($sFileName, $bHelp, $sPartner); 



$oUserInf o->f inish { ) ; 
$oUserInf o->disconnect ( ) ; 
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sub send_mail { 

my ($sFriendsEraail , $sEmailSubject , $sEmailMessage, $sFileDescription, 
$sUser_name, $sUser_email, $nUser_ID, $sRandomKey, 
$sPartner, $oToken, $oErr , $oCGI ) « @_; 

##get language from the cookie. If not english, append language code 

to url 

my SoCookie * new XDrive: : CGI :: Cookie (' x_session_info' , $oCGI) ; 
my Slanguage = $oCookie->getElement (• language ') ; 
if ($language ne 'english') 
{ 

if ($language eq 'Spanish 1 ) 
{ 

$sRandomKey .= "-SP"; 

} 

} 



$sEmailMessage = &get_message ( SsEmailMessage, 
$sRandomKey, $sPartner, $nUser_ID) ; 



my %toXdrive = 
( 

To => "$sFriendsEmail", 

From -> "$sUser_name <$sUser_email> B / 

Message => $sEmailMessage, 

Subject => "SsEmailSubject", 

); 



unless (sendmail %toXdrive) 
{ 

warn "## Mail error $Mail :: Sendmail :: error ; 
if ($Mail: : Sendmail :: error /451/) 
i 

my $sMessage = $oErr->ReturnMessageGivenCode ( 1310 ) ; 

XDErrorToBrowser < $sMessage, undef , $oToken) ; 

} 

else 

{ 

my $sMessage = $oErr->ReturnMessageGivenCode (1311 ) ; 

XDErrorToBrowser ("", $sMessage, undef , SoToken) ; 

) 

exit(l); 
} 



} 



sub get_message { 

my (SsEmailMessage, $sRandomKey, $s Partner, $n_User ID) =» @_; 

my $oMessage = new XDrive: : Template ; 
$oMessage->partner (SsPartner) ; 

$oMessage->load( • share_a_ f ile message . thtml * ) ; 



$oMessage->tags 
U 

•Message' SsEmailMessage, 
' RandomKey • =>$sRandomKey , 

f nUser__ID' =>$n_UserID, 
• sender ' ->$ENV{ ' HTTP_H0ST ' } , 

}); 

return $oMessage->get ; 
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sub display_form { 

my ($sFileName, $bHelp, $sPartner ) = 
my $oForm = new XDrive :: Template ; 
$oForm->partner ($sPartner) ; 
$oForm->load( 9 share_a_f ile . thtml * ) ; 

my $sHelp=' 1 ; 

if ($bHelp eq 'true') 
{ 

my $oHelp = new XDrive :: Template; 
$oHelp->partner (SsPartner) ; 
$oHelp->load{ • share_a_jf ile_help. thtml * ) ; 
$sHelp = $oHelp->get; 
) 

$oForm->tags 
({ 

1 sFileName' => $sFileName, 
'helptext' => $sHelp 
}) ; 

print header, $oForm->get; 
exit (0) ; 

} 

sub display_thank_you { 
my $sPartner = shift; 
my $oForm = new XDrive :: Template; 
$oForm->partner($sPartner) ; 

$oForm->load { 1 share_a_f ile t_y. thtml • ) ; 

print header , $oForm->get; 
exit (0) ; 

} 

sub verify_database__values { 

my ($nUser_ID, SsFileName, $sFilePath, $sFilePath, $sFileName, 
SsDescription, $oToken, $oErr) = @_; 

if (length ($sDescription) > 255) { 

my $sMessage « $oErr->ReturnMessageGivenCode ( 1320) ; 
^ XDErrorToBrowser ("", $sMessage, undef , $oToken) ; 

if (length ($sFilePath) > 255) { 

my $sMessage = $oErr->ReturnMessageGi venCode (1321 ) ; 
^ XDErrorToBrowser (" ", $sMessage, undef , $oToken) ; 

if (length (SsFileName) > 255) { 

my SsMessage = SoErr->ReturnMessageGivenCode (1322 ) ; 
^ XDErrorToBrowser r w ,$sMessage, undef, $oToken) ; 



sub insert_file__into_dat abase { 

my ($nUser_ID, $sFileName, $sFilePath, SsFileDescription, 
$xdDBH, $oToken, SoErr) = e ; 
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##seed random number generator 

srand ( truly_random_value () ) ; 

my SgmTime = time; 

##grab length of time 

my $randLen = 32 - length ( SgmTime) ; 

my $sRandomKey = XDRandomString ( SrandLen, \@characters) ; 

##now we have a Random key 

$sRandomKey - $gmTirae . $sRandomKey; 

## at this point we have a random number 

## of length gmTime with the current gmt time appended to it 



my $transaction = XDrive :: DatabaseO: : Transact ion->new ($xdDBH) ; 
my $status = $transaction->insertDiskItemShare ($nUser_ID, $sRandomKey, 
$sFilePath, $sFileName / $sFileDescript ion) ; 

if ($status < 0) 
{ 

$transaction->rollback ( ) ; 

my $sMessage - $oErr->ReturnMessageGivenCode (1323) ; 
XDErrorToBrowser ( $sMessage, undef , $oToken) ; 
exit ( 1) ; 

} 

else 
{ 

$transaction->commit ( ) ; 

} 

return $sRandomKey; 



sub get_f riends_ emails { 
my $cgi = shift; 

my ( $email_list , @email_array) ; 

if (length $cgi->param { * sFriendsEmailO • ) > 0) 
{ 

push (@email_array, $cgi->param ( 'sFriendsEmailO* ) ) ; 
> 

if (length $cgi->param( ' sFriendsEmailO * ) > 0) 
{ 

push (6email_array, $cgi->param( ' sFriendsEmaill • ) ) ; 
> 

if (length $cgi->param( 9 sFriendsEmailO • ) > 0) 
{ 

push ( @email__array, $cgi->param ( ' sFriendsEmail2 ' ) ) ; 
} 

if (length $cgi->param (• sFriendsEmailO ' ) > 0) 
{ 

push (@email_array, $cgi->param ( ' sFriendsEmail3 ' ) ) ; 
> 

if (length $cgi->param ( ' sFriendsEmailO • ) > 0) 
{ 

push (@email_array, $cgi->param{ 9 sFriendsEmail4 1 ) ) ; 
} 

89 of 137 

108 



OimaRIAl IA> 



WO 01/33381 PCT/USOO/30536 

$email_list = joint",", @email_array) ; 
return $email list; 
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###signup__account.cgi 

# ! /usr/bin/perl 

## -d:DProf 

## -d:SmallProf 

## Written by Martin Hald <mhald@uci . edu> on Wed Apr 7 1999. This program 
## adds new users to the database. 

## Modified by Justin White for cookie referee and promo stuff and to make 
## mod_perl friendly and to work with changes to the Security module and 
## to get rid of the XDrive::CGI module and to create a CGI object - 

use strict; 

use lib ($ENV{ PERL_XDRIV£_LIB> ) ; 



use CGI; 

use CGI:: Carp qw (f atalsToBrowser ) ; 
use XDrive: :Client; : Registration; 
use XDrive :: Error; 
use XDrive :: Client :: Security; 
use XDrive :: Template; 

use XDrive: :DatabaseO: :Table: :0serData; 

use XDrive: :DatabaseO: transaction; 

use XDrive: : Da tabaseO: : Table: :UserQuota; 

use XDrive : : Database© : : Table : : Promo ; 

use XDrive: :DatabaseO: : Table: : DiskAccount ; 

use XDrive :: DatabaseO: : Table: : Reseller; 

use XDrive: : Template; 

use XDrive: : DatabaseO: : Search; 

use XDrive: : CGI :: Cookie; 

use XDrive :: Library; 

use Mail : : Sendmail; 

use CGI qw(param redirect header cookie); 



BEGIN 
{ 

) 



push (0INC, " /export /home/www/thirdparty/mint2 /perl") ; 



use Mint 2; 



&main; 



exit; 

sub main { 

my $oCGI = new CGI; 

my $oCookie » XDrive :: CGI : :Cookie->new (' x_session_inf o • , $oCGI); 
my $oSTDCookie = XDrive : : CGI : : Cookie->new ( • xd_std_inf o • , $oCGI); 



my $file_found; 

### Use the new XDrive :: CGI :: Cookie now. 

my $promo_uri - $oCookie->getElement (' promo ') ; 

my $ref_seq_cookie » $oCookie->getElement {' referee ') ; 

my $referred_f rom - $oCookie->getElement { 1 ref ered_f rom' ) ; 

my $claim_ticket = $oCookie->getElement ( ' ct • ) ; 



my $ref_seq_param 
my $password 
my $password_conf irm 
my $birth — year 



$oCGI->param ( 1 referee ' ) ; 
$oCGI->param( "password* ) ; 
$oCGI->param { 'password^conf irm' ) ; 
$oCGI->param( , birth_year' ) ; 
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my $username 
my $name_first 
my $name_last 
my $email_address 
my $country_seq 
my $gender_seq 
my $postal_code 
my $occupation_seq 
my $referee 
my $marketing 
my $newsletter 
my $media_type seq 



$oCGI ->param ( • username ' ) ; 
$oCGI->param( 'name_first • ) ; 
$oCGI->param ( • name_last • ) ; 
$oCGI->param{ 1 email_address 1 ) ; 
$oCGI->param ( • country 1 ) ; 
$oCGI->param ( ■ gender ■ ) ; 
$oCGI->param ( * zip2 • ) ; 
$oCGI->param ( • occupation • ) ; 
$oCGI->param ( • referee • ) ; 
$oCGI->param{ •marketing' ) ; 
$oCGI->param ( ' newsletter ' ) ,- 
$oCGI->param{ 'media^ype' ) ; 
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P ARAMS TO GATHER IF THIS IS CALLED FROM SKIP 
THE DOWNLOAD 

=* $oSTDCookie 



## 

my SsSTDPartner 
my $sLanguage 
my $sFileURL 
my $sFileName 
my $sAltURL 
my SsCatld 
my $sGid 
my $sSid 



>getElement ( ' STDPARTNER 1 ) 
$oSTDCookie->getElement ( • LANG • ) ; 
$oSTDCookie->getElement ( ' FILEURL 1 ) ; 
$oSTDCookie->getElement ( ■ FILENAME ' ) ; 
$oSTDCookie->getElement ( ? ALTURL • ) ; 
$oSTDCookie->getElement ( * CATID* ) ; ' 
$oSTDCookie->getElement ( ■ GID • ) ; 
$oSTDCookie->getElement ( ' SID • ) ; 



## check if database is up 
my $oDBO; ( 
my $oSearch; 

if (XDDBConnectionCheck() && XDNFSCheck ( ) ) 

## connection good proceed normally 
$oDBO = new XDrive : : DatabaseO (undef ) ; 
^ SoSearch = XDrive :: DatabaseO: : Search->new ($oDBO) ; 

else 
{ 

## connection bad write data to a temp file and load 
## upgrading page telling them that they will be 
## informed once X: drive is up 
$oDBO - undef; 
$oSearch = undef; 
my $tempVar; 

my $tempEmail = $oCGI->param {' friends emaill'); 
my $numFriends = $ oCGI->par am (• numFr lends ') ; 

my $addrArray =» StempEmail; 

my $nameArray - $oCGI->param ( • f riends_namel • ) ; 

## generate list for the javascript array 
for (my $i = 2;$i <= $numFriends; $i++ ) 

$tempVar = $oCGI->param ( ' friends_email • . $i) ; 

if (?tempVar) 
{ 

$addrArray .= »~« . $tempVar; 

SnameArray . $oCGI->param ( ' f riends_name • . $ij- 
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reg_while_down ( 

$promo_uri, 
$ re f _ s eq_coo k i e , 
$ref erred_f rom, 
$claim_ticket, 
$ref_seq_param, 
$password, 
$birth_year, 
$username, 
$name_first, 
$name_last , 
$email_address, 
$ count ry_s eq / 
$gender_seq, 
$postal_code , 
$occupation__seq, 
$referee, 
$marketing, 
^newsletter, 
$media_type_seq, 
SnameArray, 
$addr Array 
); 
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## leave and show upgrading page test me 

print redirect { "/upgrading_signup_success . html " ) , 

exit ; 



} 



##my $oDBO = new XDrive :: DatabaseO ( undef ) ; 

##my $oSearch = XDrive :: DatabaseO: : Search->new ($oDBO) ; 

###### 

### If media_type_seq equals "notsef, then set it to NULL. 
###### 

$media_type_seq = ' * if $media_type_seq eq 'notset'; 

my $partner_ code =* 'xdrv'; 
my $partner_seq =1; 

my $prorao_ seq; 

###### 

### Check to see how the referee sequence, if any, was passed in. 
### If it was passed in via cookie, then use that. Else, assume 
### that it is a form parameter. 
###### 

my $ref_seq = $ref_seq_cookie ? $ref_seq_cookie : $ref_seqjparam; 
###### 

### If we were passed a promo uri, then let*s get the promo seq 
### from promo table using Promo. pm to pass to xd_client_register . 
###### 

if ($promo_uri) { 

my $oPromoInfo = XDrive :: DatabaseO: : Table :: Promo- 
>new( undef, $oDBO) ; 

$oPromoInf o->loadWhere ( 1 URI ' , $promo_uri ) ; 
$promo_seq = $oPromoInf o->f etchColumn ( f SEQ' ) ; 

$oPromoInfo->finish () ; 



###### 
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re-fil! ## ° n ^ ^ regiStration went through or if we need to have them 

### the form. 
###### 

my SoContent « new XDrive :: Template ( {'partner code' => • xdrv ' > ) 
my SoLayout = new XDrive :: Template ( { ■ partner'code ' ^> 'xdrvM 

my SoNavxgation = new XDrive :: Template { { • partner>de • => 'xdrV) > 

my $oErr - new XDrive: : Error; 

$oContent->load ( • f ront_signup . thtml 1 ) ; 
$oNavigation->load ( ' f ront_nav . thtml ■ ) ; 
$oLayout->load { ' layout . thtml • ) ; 

###### 

### Perform data validation 
###### 

if ($password ne $password_confirm) { 
$oErr->AddErrorByErrorCode (709) ; 

###### 

###### temPt tC regiSter the USer if no errors have been logged 
if ( I $oErr->Occurud ) { 

xd_client_register ( { ■ birth_year ' $birth_year, 

'partner^seq' => $partner_seq, ' 
■username' =*> $username, 

•password' => XDEncrypt ($password) , 

, name_first t => $name_first, 

'name^last* => $namejast, 

■email_address' => $email_address, 
, country_seq' => $country_seq, 
'gender' => $gender_seq, 

•postal_code' -> $postal_code, 
'occupation__seq' => $occupation_seq, 
'referee' => $ref_seq, 

'marketing' => $marketing / 

'newsletter* $newsletter, 
'partner_code' => $partner_code, 

•promo_seq' => $promoseq, 

$oCGI, $oErr, $oDBO ,; 'n.edia^type.seq - -> $media_type,seq} , 

) 

if ($oErr->MaxIndex <) < 0) { 

## No errors occured, the user has already been added to the 
## database through the xd_client_register subroutine so now 
## send the user an email and then 
## log the user and go to the user's homepage. 

client_email_send ($username, 

$name_f irst, 
$name_last, 
$email_addr ess , 

•X\: drive Team <team@xdrive.com>', 
Information', 'Welcome to X:drive! - Important Account 

$partner__code, 
$promo_seq) ; 
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#####§ 

### If we have a claim ticket, then remove that ticket 
### from the batch_user_data table because the user has 
### been added and we don't need that data anymore. 

###### 
if ($claim_ticket ) { 

my $oTransaction - XDrive : : DatabaseO: : Transaction- 

>new ($oDBO) ; 

my $rv = $oTransaction->removeClaimTicket ( $claim_ticket ) ; 

if ($rv == 1) { 

$oTransaction->commit { ) ; 

) 

else { 

$oTransaction->rollback { ) ; 

} 

} 

##if we have a referee seq, give the referee additional space 
if ($ref_seq >=» 1 ) { 

## johngaa add to exclude college club and quepasa users 

out 

my $oUserData = XDrive :: DatabaseO: : Table : :0serData- 

>new(undef , $oDBO) ; 

$oUserData->loadWhere { "SEQ" , $ref_seq) ; 
my $reseller_seq = $oUserData- 
>f etchColumn ( "RESELLER_SEQ" ) ; 

if ( ! (isResellerSeqCC_QUPA(?oDBO, $reseller_seq) ) ) 
{ 

## end of johngaa 

my $oUserQuota = XDrive :: DatabaseO: : Table :: UserQuota- 
>new (undef , $oDBO) ; 

$oUserQuota->loadWhere("USER_SEQ", $ref_seq) ; 

my $additional_quota = $oOserQuota- 
>incrementQuota ($ref_seq, 5120) ; 

if ($additional_quota > 0) { 
&send^email_referee <$ref_seq, $oDB0, $oCookie, $additional_quota, $ref erred_f rom) 

) 

$oUserQuota->f inish ( ) ; 
} 

} 

##if the user is from Cybergold, process through Cybergold 
if ($prorao_uri="- /cyber gold/) { 
my ($code, %res) = 
&contact_cybergold($oCGI, $usemame, $email_address) ; 
} 

##if user is coming from the befree promo 
##write to file that they've signed up 
if ($promo_uri =- /befree/) { 

&write_ befree_log($oCGI) ; 
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if (SsFileURL eq • • ) { 

client_login<$usefname, $oCGI) ; 
} else { 

std_login <$username, 
SoCGI, 

$sSTDPartner, 

SsLanguage, 

SsFileURL, 

$sFileName, 

SsAltURL, 

$sCatId, 

$sGid, 

SsSid) ; 

} 

$oSearch->disconnect ( ) ; 
exit ; 

} 

else { 

## Reload the signup form, show the errors and pre-fill all 
»f the form elements except the password. 

##if we are overriding standard registration form 
##load it here 

if ($promo_uri) 
( 

•_regi.tration.thtMl'); $f±le - f ° Und ' ^oConf „t->load C $P romo_uri . 

if ( !$file_found) 
{ 

n $file_found = $oContent- 

>load( 'promo_registration. thtml f ) ; 

} 

} 

if ( ( ! $promo_uri ) || < ! $f ile_found) ) 

SoLayout ->load ( "layout . t html n ) ; 
$oNavigation->load { "f ront_nav. thtml ") ; 
^ $oContent->load( w front_signup. thtml") ; 

ray <$select_marketing, $select_newsletter) ; 
my $checked = "CHECKED"; 

if ($marketing eq 'on') { 

$select_marketing = $checked; 

if ($newsletter eq 'on 1 ) { 

^ $select_newsletter = $checked; 

## IMPORTANT ##. 

## make sure to put all non text fields at the top of 
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=> 
=> 

~> 
=> 



## Search and replace the following tags 
$oContent->tags ( { 1 country ' 
xd_f orm_countries ($country_seq, SoSearch) , 

' occupation ' 

xd_form_occupation ($occupation_seq, SoSearch) , 

'media_type* 

xd_f orm_media_type ($media_type_seq, $oSearch) , 

' gender • 

xd form_gender ($gender_seq, SoSearch), 

~ ' select^marketing* => $select_marketing, 

• select_newsletter' $select — newsletter , 
1 errors • => forraat^errors { $oErr ) , 

•usernarae 1 => Susername, 

•name_first' => $name_first, 

! name_last' => $name - last, , 

' email_address* => $email__address r 

'birth_year' => $birth_year, 

•postal_code' => $postal_code } ); 

## 

## Added to have tell a friend support in registration 
## 

my (@addrArray, GnameArray, $templndex, $tempName, 
$tempEmail, $tempNum) ; 

## tell a friend data will be coming in to signup_form 
## seperated by commas 

@addrArray = split /, /, $oCGI->param ( • f riends_email_array ' ) ; 
QnameArray - split /, /, $oCGI->param < ' f riends_name_array ' } ; 

$tempNum - $oCGI->param ( ' numFriends ' ) ; 

for (my $templndex=l ; $templndex <= $tempNum; $ tempi ndex++) { 
$tempName = ' f riends_name ■ . $templndex; 
StempEraail = 1 f riends_email ' . $templndex; 

$oContent->tags ( {$tempName => $oCGI->param ($tempName) , 

$tempEmail -> $oCGI->param ($tempEmail ) } 

) ; 



} 

## Clear the content of any unused tags. 
$oContent->clear; 

> 

##if we are loading a non-standard registration, it's only one page 
if { ($promo_uri) ($f ile_f ound) ) 

( 

print $oCGI->header {) , $oContent->get ; 

) 

else 
{ 

## Print out the HTML and exit 

$oLayout->tags { { 'header^graphic' => • header_jregistration . gif 1 , 
•title' =*> 'Register Now!', 

'content' =*> $oContent->get , 

•navigation' => $oNavigation->get } ); 
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^ print $oCGI->header () , $oLayout->get ; 

$oSearch->disconnect ( ) ; 
return 0; 



sub isResellerSeqCC_QUPA 
{ 

my $oDBO = shift; 

my $reseller_seq = shift ; 

my $dbh = $oDBO->f etchDBH { ) ; 

my $sql_stmt = "SELECT code FROM reseller WHERE seq=^"- 
my $cmd; " * 

my @data; 

$cmd = $dbh->prepare ($sql_stmt) ; 

$cmd->execute( < $reseller_seq) ) ; 

Gdata = $cmd->f etchrow_array; 

if ($data[0] eq f cc» j| $data[0] eq 'qupa') 

return 1; 

ftprint "should return a true\n w 

} 

return 0; 



############################ #################################### 

## reg_while_down: Grabs all data that is needed to register a user 
## routine will add the data to a file in the tmp directory of the name 
*# reg_while_down. datetime 

"*t*ti##t#tt«t#t#lff*fftt#lit«###i#*|##tf«#f|# ff### f tf<##ftftiffffi##fiffitff#####f 

s uo r e g_wn x 1 e_down 
< 

my ($promo_uri, $ref_seq_cookie, $ref erred_f rom, $claim_ticket, 

$ref_seq_param, $password, $birth_year, $username, $name_f irst , 
$name_last , $email_addr ess, $country_seq, $gender_seq, $postal code, 
$occupation_seq / $referee,$marketing,$newsletter,$media type" seq, 
■ $tell_a_friend_name, $tell_a^_friend_addr) = (?_; ~ ~~ 

my Sfilename = XDGetRegDatFile ( ) ; 
open OUTFILE, "»$ filename " ; 

print OUTFILE ,f $promo_uri / $ref_seq_cookie, $ref erred from/ 1 ; 
print OUTFILE w $claim_ticket, $ref_seq_param, $password, " ; 
print OUTFILE w $birth_year, $username, $name_f irst , " ; 
print OUTFILE "$name_last , $email_address, $country_jseq, 
print OUTFILE w $gender_seq, $postal_code, $occupation seq, »; 
nrinf OUTFILE w $referee,$marketing,$newsletter,$media_type seq,"; 
OUTFILE "$tell_a_friend name, $tell a friend addrW; 
orirFTT.p. ~~ — — _ 



} 



print OUTFILE 
print 

close OUTFILE; 



••••***H«t**l#**tt#tt#«#it«t««#f«t*t#t«#t««ttt#f«««t*ft##*t#»#«tft#« ff# «tf# # | 

## format_errors: Accept an error object and return an ordered list of 

## errors in HTML format. 

########################^ 
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sub forraat_errors { 

my $oErr = shift; ## (I) errors 

my $txt; ## formated HTML 

my $bPassword; ## has a password error been found? 
$txt .= "<ol>\n"; 

my $nNumErrors - $oErr->Max!ndex ( ) ; 

for (my $i ~ 0;$i <= $nNumErrors; $i+ + ) { 
my $error = $oErr->Message ( ) ; 

if ($error /assword/) { 
$bPassword = 1; 

) 

$txt .= "<lixfont color=RED>$error</font>\n"; 

} 

if ( ! $bPassword) { 

$txt .= "<lixfont color=RED>Please re-enter your 
pas sword< / font > \ n " ; 
) 

$txt .= "</ol>\n n ; 
return $txt; 

} 

#############################################################^*#######*###### 
## client_login: Create the needed token to identify the client and redirect 
## them to thier new homepage. 

######################################################*############*####*###* 

sub client_login ($$) { 

## No errors occured, add the user to the parter/user->real 
##. user mapping and return a success code. 

my $username = shift; 
my $oCGI = shift ; 

my $oDBO - new XDrive :: DatabaseO (undef) ; 

my $oCookie = XDrive: : CGI : :Cookie->new (J x_session_info • , $oCGI); 

###### 

### Check the x_session_inf o cookie for promo or referee and 

### if they exist, delete those hash elements and reset the cookie. 

##«### 

my $promo_cookie - $oCookie->getElement (' promo/ ) ; 
my $ref_ cookie = $oCookie->getElement (' referee f 5 ; 

if ($ref_cookie I I $promo_cookie) { 

$oCookie->deleteElement ( 'referee 1 ) if $ref_cookie; 
$oCookie->deleteEleraent ( 'promo' ) if $promo_cookie; 

print "Set-Cookie: w , $oCookie->asString ( ) ; 

} 

my $oError = new XDrive: : Error; 

my $oToken = xd_login ($oCGI, $username, $oError, $oDBO) ; 
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«w we need to do all of this j-o no f 
correct page 9 the re * eller cod e to show the 

my SoDiskAccount = XDrive: :Databac: 0 n- .t,kt- ^- 
$oDB0) ; «ve..uatat)aseO. : Table : : DiskAccount->new (undef, 

$oDiskAccount->loadWhere ( "DSERNAME", Susername) ; 

my $o0ser = XDrive :: DatabaseO: : Table •• 0serD^ a -^n O / ^ * 
$oDiskAccount->fetchDBO); ' UserDa ta->new(undef , 

$oUser->loadWherePK($oDi s kAccount->fetchColu m n("USER_SEQ») , ; 

my $oReseller = XDrive: : DatabaseO- -TablP 1= ^ 
$oDiskAccount->f etchDBO) ; «>aseu. . Table . . Reseller->new (undef , 

$oReseller->loadWherePK($oOser->f etchColumn ( "RESELLER_SEQ'') , ; 
my $oTemplate = new XDrive: : Template; 

$oTemplate->partner (5oReseller->f etchColumn ("CODE") ) ; 

*£It 0r ^ g i na1 ^ this is where the signup form.cgi goes 
##$oTemplate->load( 'splash. thtml'); 
$oTemplate->load { • tell_a_f riend_f rame . thtml ' ) ; 

##my $addrArray = $oCGI->param < • friends email array •) • 

IS J na,n « a f«y = *oCGI->para»C friends-name Irray V ' 
##my SnumFrxends = $oCGI-> P aram< 'numFr lends ■ )J 

## generate list for the javascript array 
##my QaddrList = split /,/, SaddrArray; 
##my @nameList = split /,/, $nameArray; 

##$addrArray = ; 
##$nameArray = nn ; 

##my $count = @addrList - 1; 

##for (my $i = 0;$i < $count;$i++) { 

##$addrArray ,= »\«- . $addrList [$i] »\» 
##$nameArray .= »\" . $nameList [$ij . »\",'». 

V tf J 



## this will add the quote without the comma 



##$addrArray .= -\»- . $addrList [$count ] . »\""; 

«« „.! #$ I?? MArray ' = " N "" * 5nameList(?count] . »\»«. 
## gets the array started 

my StempVar; 

my $tempEmail = $oCGI->param< • friends eroaill'); 
my $numFriends = $oCGI->param ( 'numFriends • ) ; 

my $addrArray = »\»» . $tempEroail . -\"». 

my SnameArray = . $oCGI-> P aram( • f riends_namel ' ) . -\«. 

## generate list for the javascript array 
for (my $i = 2;$i <= $numFriends; $i++) 

$tempVar - $oCGI->param< • friends_email • . <5i) ; 

if ($tempVar) 
( 
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$addrArray 
$nameArray 



} 



} 



PCT/USOO/30536 



",\ B " . $tempVar . »\»"; 
= . $oCGI->param ( 1 f riends_name • 



$i) 



$oTemplate->tags ( { ' numFriends ' => $numFriends, 

■ f riends_name_array ' => $nameArray, 
•friends_eroail_array ' => $addrArray) ); 

print $oCGI->header ( ) ; 

print $oTemplate->get ( ) ; 

$oDiskAccount->f inish () ; 
$oUser->f inish { ) ; 
$oReseller->f inish ( ) ; 
$oDiskAccount->disconnect ( ) ; 



tt*f*#i*tt«##*##*t*#t«l*«**#tttt#**t***##«**t##*##*t**##t*»*#*##t**tt***###ft#t 

## Login in user who is comming from a Skip The Download 
## Registration 

############################################################################# 

sub std_login ( ) { 

my $usernarae = shift; 
my $oCGI = shift; 

my $sSTDPartner = shift; 

my $sLanguage = shift; 

my $sFileURL - shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sCatId » shift; 

my $sGid — shift; 

my $sSid = shift; 

my $oDBO = new XDrive : : DatabaseO (undef) ; 

my $oError « new XDrive :: Error; 

my $oToken « xd — login (SoCG.I, $username # $oError, $oDBO) ; 
xd_set_session_cookie($oCGI, $sSTDPartner, $sLariguage) ; 

my $oTemplate = new XDrive: : Template 
({ 

•partner_eode f => $sSTDPartner, 
'language' ~> SsLanguage, 

•file' => ' skip_the_download_from_reg. thtml • , 
•tags* => 
{ 

'FILE_URL f $sFileURL, 
•FILENAME' => $sFileName, 
• ALTRUL • => $sAltURL, 

1 LANG* => SsLanguage, 

1 STDPARTNER' => $sSTDPartner , 
•CATID' => $sCatId, 
•GID' => $sGid, 
•SID' => $sSid, 

) 

}) ; 
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$oTemplate->clear ( ) ; 

print "Content-type: text/html\n\n"; 
print $oTemplate->get { ) ; 
$oDBO->disconnect ( ) ; 

} 

sub contact_cybergold { 
my $oCGI = shift; 
my $msgid = shift; 
my $email = shift; 

my %args - ( 

'mint^home' => $ENV{ • MINT_HOME » } , 
•msg^mode' => • background__mode ' , 

9 usr_email ' =>$ email, 
'msg_id' $msgid, 

'pay^type' => 'reward*, 

•pay^alue' '1.00', 

'pay_readme' => 'Thanks for registering with Xrdrive.', 

'co^name' => - X Drive' , 

'co_key' => 'registration', 

, co_account' => '100500900000396', 

'mint^secret' => • 184FEB9DB81944502A1C91B2879484B6 ' , 

•mint_url^ay' 'http://wwwl.cybergold.com/payserver7pay server' 

msg version' => '2 2 r ^ i -H a y_i>crver , 

) ; 

my($code, %res) = mint_invoke ( \%args) ; 

!! thi L iS temp °° de t0 Print out stuff fo * cybergold 
##my ©keys = keys Ires; 

##my Rvalues = values Ires; 

##wh±le (@keys) 

##< 

##^ die pop (S keys), '-', pop < Rvalues) , "\ n »; 
return $code; 



sab writejbef ree_log { 

my $oCGI « shift; 

my $source_id = $oCGl->cookie ( 'sourceid' ) ; 
##get the time 

##needed to figure out name of file to write to 

Mo M i*-- my ,J $nSeC ' $nMin ' $nHour, SnDay, $nMonth, $nYear, SsDay) = 
(localtime(tame)) [0,1,2,3,4,5,6]; ' y ' 

if (SnYear > 99) { 

^ SnYear = substr ($nYear, 1, 2) ; 

## Numeric month is 0-11, so add one 
$nMonth++; 

## Handle Y2K issue 
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if ( $nYear >= 80 ) { 

$nYear += 1900; 

} 

else { 

$nYear += 2000; 

} 

my $dToday = sprint f { "%s%02d%02d" , $nYear, $nMonth, $nDay) ; 
my SdTodayFull = sprintf { "%02d%02d%s 
%02d: %02d: %02d", SnMonth, $nDay, $nYear, $nHour, $nMin, $nSec) ; 

my $text = 

w 14 524 098\tS\t$dTodayFull\t$source_id\tl\tl\tl\t0. 00\tUSD\tregistration\n n ; 

warn "#BF", $text, "\n"; 

##open (FILE, M »xdrive_orders_$dToday . txt " ) ; 
##print FILE $text; 
tfclose (FILE) ; 



sub send_ email_ref eree { 

my $user_seq = shift; 

my $oDBO = shift; 
my $oCookie = shift; 

my $additional_quota = shift; 
my $referred_from = shift; 

my $language - $oCookie->getElement (' language ') ; 
my $partner = $oCookie->getElement { 'partner ' ) ; 

if ($language eq 'Spanish') { 

my $text = *un amigo que usted refirio'; 
if ($referred_from eq '2') { 

$text ~ 'un usted compartio un fishero con'; 

} 

} 

else { 

my $text =* 'referred 1 ; 

if ($referred_f rom eq '2') { 

$text = 'shared a file with'; 

> 

} 



my $text = 'referred*; 

if ($ref erred_from eq '2') { 

$text = 'shared a file with'; 

} 



##comes in as k, change to megabytes 
my $mbs » $additional_quota/1024 ; 

my $oUserData - XDrive :: DatabaseO: : Table :: UserData->new (undef, 

$oDB0) ; 

$oUserData->loadWhere ( W SEQ W , $user_seq) ; 

my $email_address = $oUserData->f etchColumn ( "EMAIL — ADDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( f, NAME_FIRST , • ) ; 
my $name_last = $oUserData->f etchColumn ( n NAME_LAST ff ) ; 

my $oTemplate = new XDrive :: Template ( {' language* => Slanguage, 

•partner_code' => $partner) ); 

$oTemplate->load{ 'received_5MB_tellafriend. thtml f ) ; 
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$oTemplate->tags ( {'mbs' => $mbs, 
•text' => $text> ) ; 
$oTemplate->clear ( ) ; 

my $message = $oTemplate->get ; 

my %toXdrive = 
( 

To => "$name_first $name_last <$email_address>", 

Bcc => • ■ , 

From => "support \@xdrive . com", 
Message => $message, 
Subject => "Congratulations!" 
) ; 

sendmail (%toXdrive) ; 
$oOserData->f inish ( ) ; 
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###signup_form.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhaldGuci.edu> on Sat, Jan 30, 1999. Updated 
## Fri Apr 5, 1996 to use new templates. Updated Wed Apr 21 1999 to use 
## new library code. 

use strict; 

use lib ($ENV{ PERL_XDRIVEJL*IB } ) ; 
use CGI; 

use CGI:: Carp • f atalsToBrowser ' ; 
use XDrive::CGI qw(:MAIN); 
use XDrive: : Client: : Registrations- 
use XDrive: : Template; 
use XDrive :: DatabaseO: : Search; 
use XDrive: : Library; 

use constant XD_REGISTRATION_DEFAULT_COUNTRY => 223; 
exit &main; 
sub main { 

my $oContent - new XDrive: : Template; 
my $oNavigation = hew XDrive :: Template; 
my $oLayout = new XDrive :: Template; 

my $oCGI = new CGI; 

my $oCoo)cie = XDrive : : CGI : : Cookie->new ( * x_session_info ■ , $oCGI); 
my $oSearch; 



my $sEmailAddr ess » undef; 



my ($country_seq, $occupation_seq, $postal_code, $ct_promo_seq) ; 



my %pullDownHash; 

if (XDDBConnectionCheck() && XDNFSCheck ( ) ) 
{ 

SoSearch = XDrive: : DatabaseO: :Search->new (undef ) ; 

} 

else 
{ 

SsClaimTicket « undef; 
$oSearch » undef; 

%pullDownHash = generate_db_array ( ) ; 

} 

if ($sClaimTicket) { 

ray $rhData = getUserData ($oSearch, SsClaimTicket); 



my $sReferee = $oCGI->param< ■ referee ') ; 

my SsClaimTicket = $oCookie->getElement ( ' ct ' ) ; 



f# Defaults 



my $sOsername 
my SsNameFirst 
ray SsNameLast 
my SnYOB 



undef; 
undef; 
undef; 
undef; 
undef; 
3; 



my $nPromoSeq 
my SnGender 
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if (SrhData) { 

my $oNewCgi = CGI->new { $rhData) ; 



$sOsername 
$sNameFirst 
$sNameLast 
SsEmailAddress 

SnYOB 
$nGender 
$occupation_seq 
$country_seq 
$postal code 



$oNewCgi->param( ■username' ) ; 
$oNewCgi->parara ( ' name_f irst f ) ; 
$oNewCgi->param { • name_last • ) ; 
$oNewCgi->param { • email_address ' ) ; 

" $oNewCgi->param ( • birth_year * ) ; 
$oNewCgi->param { B gender ' ) ; 
$oNewCgi->param ( ' occupation_seq * ) ; 
$oNewCgi->param ( ? country_seq ' ) ; 
$oNewCgi->param( 'postal code ' ) ; 



if 



$oCGI) 



($sReferee ne "") { 
# my $oCookie = XDrive: 



:CGI: 



:Cookie->new( , x_session_info' , 



} 



my $sRef ered_from $oCGI->param ( ' type * ) ; 
$oCookie->setElement ( { • partner_code 1 ' xdrv ' } ) ; 
$oCookie->setEleraent { { ' language *=> 1 engiish • } ) ; 
$oCookie->setElement <{ 'referee' => $sReferee}); 
$oCookie->setElement ({ ' refered_f rom' => $sRefered from))* 
print "Set-Cookie: " . $oCookie->asString { ) ; ~ 



$oContent->partner ( * xdrv • ) ; 
$oNavigat ion->partner { * xdrv ' ) ; 
$oLayout->partner { * xdrv ' ) ; 

## I'm assuming there will be one page and not a series of frames. 
## this can be changed if need be 

# my $oCookie = XDrive : :CGI : : Cookie->new ( ' x_session info', $oCGI)- 

# my $promo = $oCookie->getElement (' promo • ) ; ~ 

my $promo = $oCookie->getElement ( 'promo ') ; 
my $file_found; 

##if we have a promo, try to get a special registration paqe 
if ($promo) { ^ * 

##attempt to open a special registration page 

$file_found => $oLayout->load ($promo . • registration . thtml • ) 
if ( ! $file_found) { .~ 

##if we cannot, open the general promo reg page 
$file_found = $oLayout->load( ' promo_registration . thtml' ) ; 



) 



) 



##is we don't have a promo then use the standard registration 
if ( (i $promo) || {! $file_found) ) { 

## Load the required template HTML files. 
$oNavigation->load("front_jriav. thtml") ; 
$oContent->load < "f ront_signup. thtml") ; 
$oLayout->load ( "layout . thtml " ) ; 



$oContent->tags 
(( 

'username* 
•name_f irst ' 
'name^last* 
'email address* 



=> $sUsername, 
=> $sNameFirst, 
=> $sNameLast, 
=> SsEmailAddress, 
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'country' => 
xd_form_countries_db_check (XD_REGISTRATION_DEFAULT_COUNTRY, 
$oSearch, \%pullDownHash) , 

•occupation' => xd_form_occupation_db__check (undef , 

$oSearch, \%pullDownHash) , 

•media__type ' => xd_form_media_type_db_check (undef , 

$oSearch, \%pullDownHash) , 

' gender* => xd_f orm_gender_db_check (undef, 

$oSearch, \%pullDownHash) , 

' select_marketing' => ' CHECKED' , 

•select^newsletter' => 'CHECKED', 

•referee' => SsReferee, 

} ) ; 

## Print out the HTML and exit 
$oLayout->tags 
({ 

• header__graphic ' => 1 header_registration . gif • , 

•title' => 'Register Now!', 

•content 1 => $oContent->get , 

•navigation' => $oNavigation->get 

}); 

> 

elsif ($sClaimTicket) { 
$oLayout->tags 
({ 

•country' => xd_f ornt_countries ( $ count ry__seq, 



$oSearch) 
$oSearch) 



•occupation* => xd_f orm_occupation ($occupation_seq, 

•media_type' => xd_f orm_media__ type (undef , $oSearch) , 

•gender' => xd__f orm_gender ($nGender, $oSearch) , 

•select_marketing' => 'CHECKED' , 

•select_newsletter r => ' CHECKED ' , 

'username' => $sUsername, 

' name__f irst ' => $sNameFirst, 

r narne_last ' => $sNameLast, 

• email_address ' => $sEmailAddress, 

•birth_year' => $nYOB, 

•referee' ~> $sReferee, 

•postal_code 1 =»> $postal_code 

}) ; 



} 

else { 



$oLayout->tags 

<< 

* country 1 ~> 
xd_form - countries_db_check(XD_REGISTRATION_DEFAULT_COUNTRY, 

$oSearch, \%pullDow?nHash) , 

•occupation' => xd_forin_occupation_db_check (undef , 

$oSearch, \%pullDownHash) , 

•media_ type' => xd_form_media_type_db_check (undef , 

$oSearch, \%pullDownHash) , 

•gender* — > xd — f orm_gender_db_check (undef , 

$oSearch, \%pullDownHash) , 

•select_marketing' => 'CHECKED* , 

•select^newsletter* => 1 CHECKED ' , 

•referee' => $oCGI->param (* referee •) , 

>) ; 

} 

$oLayout->clear; 
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print $oCGI->header, $oLayout->get ; 

if (defined SoSearch) 

{ 

$oSearch->disconnect { ) ; 

} 

return 0; 



} 



## johngaa add to check of db is up or down 

sub generate__db array 

{ 

## create a hash 

my %tempHash; 

my $i « l; 

my $key; 

my @tempVal; 

open FH, "<down_data . dat " ; 

while (<FH>) 
{ 

chomp 

if ($_ /~#(\w+)/g) 

my @newArray; 
Si - 1; 
$key - 51; 
^ $tempHash{$key} = [ GnewArray ]; 

else 
{ 

@tempVal = split </W, $_) ; 

$tempHash{$key)->[$i - 1] [0] - $tempVal [0] ; 
$tem P Hash{$key}->[$i - 1] [1] = StempVal f 1] ; 
$i++; 



} 



> 



} 



close FH; 

return %tempHash; 



sub xd_form_countries db check 
{ " ~ 

my Sdefault = shift; 

my $oSearch = shift; 

my SpullDownHash » shift; 

my $returnVal; 

if (defined $oSearch) 
i 

« o $ff tur nVal « xd_form_countries(XD REGISTRATION DEFAULT COUNTRY* 
yosearcn) , — — * 

} 

else 
{ 

## insert alternate source of countries here 
my Stempl = $pullDownHash-> { f country ') ; 

SreturnVal = options_list (XD_REGISTRATION_DEFAULT_COUNTRY, @$templ) * 



} 
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return $returnVal; 

} 
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sub xd_f orm_occupation_db_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my $pullDownHash = shift ; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_ f orm_occupation (undef , $oSearch) # 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> { 1 occupation '} ; 
$returnVal = options_list (undef , @$templ > ; 

} 

return SreturnVal; 

} 

sub xd_form_media_type_db_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my $pullDownHash «= shift; 

my $returnVal; 

if (defined $oSearch) 
I 

$returnVal = xd_f orm_jnedia_type (undef , $oSearch) , 

) 

else 
{ 

## insert alternate source of countries here 
my $templ - $pullDownHash-> { 'media^type • } ; 
$returnVal = opt ions_list (undef , @$ tempi ) ; 

} 

return $returnVal; 

} 

sub xd_form_gender_db_check 
{ 

my $default = shift; 

my $oSearch - shift; 

my $pullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_f orm_gender (undef , $oSearch), 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> {' gender 1 } ; 
$returnVal = options_list (undef , @$templ ) ; 

) 



128 



109 of 137 



W ° 01/33381 ' PCT/USOO/30536 

return SreturnVal; 

} 

## end of johngaa add 
sub getPromoURI ($$) { 

my SoSearch = shift ; 

my @promo_seq = (shift); 

my $oDBH = $oSearch->f etchDBO->f etchDBH ( ) ; 

my $st = "SELECT uri FROM xdrive. promo WHERE seq = ?»- 

my $data = $oDBH->selectcol_arrayref ($st , . undef , @promo_seq) ; 



> 



return $data->[0]; 



sub getUserData { 

my $oSearch = shift; 
my SsTicket = shift; 

my $oDBH = $oSearch->f etchDBO->f etchDBH () ; 

my $sQuery - "SELECT DATA FROM BATCH_USER DATA WHERE CODE 

my $oCursor = $oDBH->prepare ($sQuery) ; " ' 

$oCursor->bind_param{l, SsTicket) ; 

$oCursor->execute; 



my $rh; 

my $sData - $oCursor->f etchrow_array ( ) ; 

# my ($sData) = $oCursor->f etchrow arrayO; 

# eval $sData; 

# return $rh; 
return $sData; 
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###signup_success.cgi 

# ! /usr/bin/perl 

## This CGI allows us to pass the sst and sid on to the inner frame 
## 

## Modified by Justin White on 10/14/99 by manually printing the 

## header to the browser and getting rid of the XDrive: :CGI import. 

t# Created new cgi, database, and error objects to pass to xd_security_check. 

## Also added the exit in the sub call. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI::Carp qw { f at alsToBrowser ) ; 
use CGI ( ) ; 
use Token; 

use XDrive : :Client :: Security; 

use XDrive :: Template ; 

use XDrive :: DatabaseO; 

use XDrive :: Error; 

use XDrive :: Library ; 

use XDrive :: CGI :: Cookie; 

&raain ( ) ; 

exit; 

sub main 
{ 

my $oCGI = new CGI; 

my $oDBO = new XDrive: : DatabaseO; 

my $oErr » new XDrive: : Error; 

my $oCookie - new XDrive :: CGI :: Cookie {' x_session_inf o • , $oCGI ) ; 

#### 

## Attempt to autenticate the user 
#### 

my $oToken = xd_security_check ($0080, $oCGI, $oErr ) ; 
#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 

i f ( $oEr r- >Occurud ) 
{ 

xd_fatal_error ($oCGI, $oErr ) ; 

exit; 

} 

##*# 

## Otherwise we have a valid session 
#### 

my $sUsername * $oToken->data ( • user • ) ; 

### Edited by Justin so that the partner_code is looked for in 
### the cookie instead of the token table. 

# my $sPartner = $oToken->data { 'partner_code 9 ) ; 

my $sPartner = $oCookie->getElement ( 'partner T ) ; 
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if (! defined $sPartner) 
i 

$sPartner = "xdrv"; 

$oCookie->set Element ( { 'partner 9 =>$sPartner ) ) ; 
print "Set-Cookie : " , $oCookie->asSt ring ( ) ; 

} 

my $oTemplate = new XDrive: : Template ( { • partner^code B => $sPartner} 

$oTemplate->load ( 1 signup_success . thtml • ) ; 
$oTemplate->tags ( {'username 1 => $sUsername) ); 

print "content -type : text /html\n\n" ; 

print $oTemplate->get ( ) ; 

$oDBO->disconnect () ; 

return 0; 
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###signup_toc.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 

## Fri Apr 5, 1996 to use new templates. 

## 

## Modified by Justin White on 10/11/1999 so that it sets a cookie. 
## 

## Modified by Martin Hald on 11/15/1999 so that is now accepts 
## - partner 
## - language 
## - agreeuri _ 
## - disagreeuri 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 
use CGI; 

use CGI:: Carp qw (f atalsToBrowser ) ; 
use XDrive: : Template; 
use XDrive : : CGI : : Cookie ; 

&main ( ) ; 

exit; 

sub main { 

my Scookie; 

my $sPartnerCode; 

my $oCGI = new CGI; 

my $oCookie - XDrive :: CGI :: Cookie->new ( 'x_session_info ' , $oCGI); 
my $sReferee = $oCGI->param( • referee ') ; 
my $sPartner = $oCGI->param ( 'partner ■ ) ; 
my $sLanguage = $oCGI->param ( 'language ') ; 
my $sRefered_from ~ $oCGI->param ( ' type 1 ) ; 

$oCookie->setElement ( { 'partner_code f =>$sPartner } ) ; 
$oCookie->setElement ( { • language ' =>$sLanguage } ) ; 

if ($sReferee ne wn ) { 

$oCookie->setElement ({ 'referee ' => $sReferee}); 
$oCookie->setEleroent ( { *ref ered_f rom* => $sRef ered_f rom} ) ; 
print "Set-Cookie : " . $oCookie->asString ( ) ; 

} 

if { ! defined SsPartner) { 
$sPartner — 'xdrv'; 

} 

## Load the terms and conditions 

my $hDefaults = { 'partner_code ' =>$sPartner, * cookie • =>$oCookie } ; 
my $oContent = new XDrive :: Template ($hDe faults ) ; 
my $oLayout = new XDrive :: Template ($hDefaults) ; 

$oContent->load ( ' presignup . thtml * ) ; 

if ($sPartner eq 'xdrv 1 ) { 

my SoNavigation = new XDrive :: Template ($hDefaults) ; 
my $oHeader = new XDrive :: Template ($hDe faults ) ; 

my $oFooter = new XDrive :: Template ($hDefaults) ; 
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$oLayout->load ( ' layout . thtml " ) ; 
$oNavigation->load { • f ront_nav . thtml • ) ; 
$oHeader->load( ' presignup_header . thtml • ) ; 
$oFooter->load ( 'presignup__f ooter . thtml * ) ; 
$oContent->tags ( { * header 1 => $oHeader->get , 

'footer' -> $oFooter->get , }); 
$oLayout->tags ( { 'navigation' => $oNavigation->get , 

' header_graphic' => ■ header_regist ration, gif • , }); 

} else { 

$oLayout->load ( ' tac_wrapper . thtml ' ) ; 

} 

my $sAgreeURI = $oCGI->param ( ' agreeuri ■ } ; 
my $sDisagreeURI = $oCGI->param ( • disagreeuri ' ) ; 

$oLayout->tags ( { 'title' => 'Terms and Conditions', 

•content* => $oContent->get, 

'agreeuri' => $sAgreeURI, 

•disagreeuri' => $sDisagreeURI , } ) ; 
$oLayout->clear; 

print $oCGI->header {) ; 
print $oLayout->get; 

return 0; 



} 
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# ! /usr/bin/perl 
use strict; 

use lib $ENV{PERL_XDRIVE_LIB}; 

use CGI qw(param redirect header cookie); 
use CGI: rCookie; 

use LWP: :UserAgent; 

use CGI::Carp qw (f atalsToBrowser ) ; 

use XDrive: : Client : .-Security; 

use XDrive: :Client: :Actions; 

use XDrive: : DatabaseO: : Table : : DiskAccount; 

use XDrive: : DatabaseO :: Search; 

use XDrive: : DatabaseO: : Transaction; 

use XDrive: : Template; 

use XDrive:: CGI qw{:MAIN); 

use XDrive: : CGI: : Cookie; 

use XDrive: : DatabaseO; 

use XDrive: : Error; 

use constant TRUE (1==1) ; 
use constant FALSE => ! TRUE; 
use Token; 



my $oDB0 = new XDrive :: DatabaseO; 
main ($oDB0) ; 

$oDBO->disconnect ; 
exit; 



J M».»nu,»i;,S;,?;^,i;,j;n. 



sub main 
{ 



my $oDBO = shift; 

my $oCGI « CGI->new<); 

my $oErr = new XDrive: : Error; 

my SoCookie = XDrive: : CGI : :Cookie->new ( 'xd_std_info • , $oCGI) ; 



## params for file url and file name 

my $sFileURL « $oCGI ->param ( 1 FILEURL ' ) ; 

my $sFileName = $oCGI->param ( 'FILENAME* ) ; 

my $sAltURL =- $oCGI->param ( • ALTURL • ) ; 

my $sSid = $oCGI->param ( 'SID* ) ; 

my $sGid = $oCGI->param ( f GID f ) ; 

my $sCatId = $oCGI->param ( • CATID 1 ) ; 

my $sPartnerCode = $oCGI->param( ' STDPARTNER' ) ; 

my SsLanguageCode = $oCGI->param ( 1 LANG 9 ) ; 

my $sUsername = $oCGI->param ( 'user 1 ) ; 

my $sPassword = $oCGI->param ( 'pass • ) ; 

my $sError = $oCGI ->par am ( 'error ') ; 

my $sCookie » $oCGI->cookie ( 'SST • ) ; 
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my SsessionCookie; 

my SsPromo = ' ' ; 

my $sPartnerParams = nn ; 

my $sCNetString = ""; 



## IF THE SPECIAL CI NET VARIABLES ARE DECLARED 

## THEN GENERATE THE C I NET STRING 

## THIS URL IS CALLED FOR ANY FILE DOWNLOADED 

#§ FROM CI NET SO THAT THEY CAN CREDIT THE FILE 

## BEING DOWNLOADED 

if ( 

($sSid != ") && 
($sGid !- ") && 
($sCatId ") 
) { 



$sAltURL = "http://beta.cnet.com/downloads/0-" . $sCatId . "-lO?-" 
. $sSid . " . html ?tag=ex.dl. xdrive"; 

## IF YOU ARE ON THE TEST SERVERS, 
## THEN USE C| NET'S TEST URL 
if ( 

<$ENV{ f HTTP_HOST' } eq 'martini . xdrive . com ' ) M 
($ENV{ 'HTTP_HOST' } eq ' antifreeze . xdrive . com f ) 
) ( 

$sCNetString = "http: //abv-s j c2- 
export2 . cnet . com/downloads /O, 10152, 0-" . 

$sCatId . 
"-HQ-" . 
$sSid . 

", OO.html?gid=" . 
$sGid - 

H &tag=ex.dl.xdrivepop.dlcgi. n . 
$sSid; 

## ELSE, USE THEIR REAL URL 
} else { 

$sCNetString = "http: //abv-s j cl- 
export 2. cnet .com/ downloads/0, 10152,0-" . 

$sCatId . 
"-110-" . 
$sSid . 

OO.html?gid= M . 
$sGid . 

"&tag=ex . dl. xdrivepop.dlcgi . " . 
$sSid; 

} 

) 



$sPartnerParams - 
"STDPARTNER=$s Part nerCode&LANG=$sLanguageCode&ALTURL=$sAlt URL" ; 

$oCookie->setElement ( 
{ 

' FILEURL' => $sFileURL, 
' FILENAME • => $sFileName, 
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'ALT URL ' $sAltURL, 

1 STDPARTNER* => $sPartnerCode, 

* LANG 1 $sLanguageCode, 

' CATID ' => $sCatId, 

'SID* => $sSid, 

•GID' => $sGid, 

}) ; 

print "Set-Cookie: $oCookie->asString { ) ; 

my $n = 0; 
my $rv; 

## Create the database object 

my SoSearch = XDrive : : DatabaseO: : Search->new <$oDBO) ; 

##The token for the user session 
my $oToken; 

## If u/p 

if (defined SsUsername && defined $sPassword) 
{ 

## Auth or fail 

if (xd_auth_password{$sUsername / SsPassword, $oDBO) ) 

$oToken = xd_login <$oCGI, $sUsername,-$oErr) ; 
<5«o a ^ ^ * SsessionCookie = xd_set_session cookie ($oCGI / 

$sPartnerCode # $sLanguageCod e/ $ s Promo ) ; ~ 

} 

else 

{ 

## Login failed 
my $r = getHTMLContent 
( 

1 skip_the_download_login_f ailed . thtml ■ , 
$sFileURL, 
SsFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
); 

print "Content-type: text /html \n\n M ; 
print $r; 
return 1; 



} 

## error or cookie not defined 
elsif ( (length <$sError) > 0) I | (length ($sCookie ) == 0) ) 

## show the login page 

my $r = getHTMLContent ( » skip_the_download_login. thtml ■ , 

$sFileURL, 

SsFileName, 

$sAltURL, 
$sPartnerCode / 
$sLanguageCode 
); 

print "Content-type: text/html\n\n"; 
print $r; 
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return 1; 
} 

else 

## cookie defined so authenticate it 
< 

SoToken = xd_security_check ($oDBO, $oCGI , SoErr ) ; 
$sessionCookie = xd_set_session_cookie ($oCGI, SsPartnerCode, 
$sLanguageCode, $sPromo) ; 

if ($oErr->Occurud) 
i 

print $oCGI->redirect ("/cgi- 
bin/skip_the_download.cgi?&error=expired&$sPartnerParams" ) ; 

return 1; 

} 

} 



if ( ! $sFileURL) { 

my $thtml - ($sAltORL f= ■ • ) ? 
' s kip__the_download_no_alt_error . thtml * 

: • skip_t he_download_error . thtml f ; 



my SsMessage « $oErr->ReturnMessageGivenCode ( 1220) ; 

&ThtmlErrorOut ($thtml, 
SsMessage, 
$sFileURL, 
$sFileName, 
SsAltURL, 
$sPartnerCode , 
$sLanguageCode 
); 

} 



## create the Actions object and download the file 

my SoAction =» new XDrive : : Client :: Actions ($oToken, $oCGI ) ; 

## set the filename and file url 
$oAction->STDFilename ($sFileName) ; 
$oAction->STDURL($sFileURL) ; 

## see if file exists, if yes, give em message 
my $bFileExists = $oAction->STDFileExists ( ) ; 

if ($bFileExists) 
{ 

$oDBO->dis connect { ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1242) ; 

ErrorOut <$sMessage, $sFileURL, $sFileName, $sAltURL, $sPartnerCode, $sLangua 
geCode ) ; 

} 

## Check that the file is not already being downloaded 
if ($oSearch->XDSTDBeingDownloaded($oToken->user, $sFileURL) ) 
< 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (124 3) ; 
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geCode^; r ° rOUt ($SMeSS3ge ' $sFileU **" SsFileName, $sAltURL, $S PartnerCode, $sLangua 
} 

## Spool the action to download the file 

my ^Transaction = new XDrive :: DatabaseO: .'Transaction (SoDBO) ; 
my SnSeq = $oTransaction->insertSkipTheDownload 

$oToken->user, 
$sFileName, 
$sFileURL, 
0, 

undef 
) ; 

$oTransaction->commit ; 

## Insert failed return an error 
if <$nSeq < 0) 
{ 

$oDBO->disconnect () ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1244 ) ; 

geCode?r° r ° Ut ($SMeSSage ' 5sFileURL, SsFileName, SsAltURL, SsPartnerCode, SsLangua 
} 

## IF THE INSERT DIDN'T FAIL, 

## AND THE SPECIAL C | NET URL ISN'T NULL 

## THEN CREDIT C | NET 

elsif ($sCNetString ne ••) 

{ 

my $oUA « new LWP : : UserAgent ; 

$oUA->agent ("XDriveSTD/O . 1 " . $oUA->agent ) ; 

# Create a request 

my $oRequest - new HTTP: : Request GET -> $sCNetString; 

# Pass request to the user agent and get a response back 
my SoResult « $oUA->request ($oRequest ) ; 



print redirect (Vcgi- 
kip_the_download_status . cgi ?seq=$nSeq&$sPartnerParams") ; 



sub ErrorOut ( ) 
{ 

my $sMessage = shift; 
my $sFileURL = shift; 
my $sFileName « shift; 
my $sAltURL = shift; 
my $sPartnerCode = shift; 
my $sLanguageCode = shift; 
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my $html *= &getHTMLContent ( ' skip_the_download_no_alt_error . thtml * , 

$sFileURL, 
$sFileName, 
SsAltURL, 
$ s Pa r t n e r Code , 
$sLanguageCode, 
$sMessage, 
); 



print "Content-type : text/html\n\n" ; 
print $html; 
exit (0) ; 



sub ThtmlErrorOut {) 
{ 

my $ thtml = shift ; 

my $sMessage = shift; 

my $sFileURL = shift; 

my SsFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $html = SgetHTMLContent ($thtml, 

$sFileURL, 
$sFileName, 
$sAltURL, 
$ s Pa r t ne rCode , 
$ sLanguageCode , 
$sMessage, 

) ; 



print "Content-type : text /html\n\n" ; 
print $html; 
exit (0) ; 



sub getHTMLContent 
{ 

my $thtmlfile = shift; 
my $sFileORL = shift; 
my $sFileName = shift; 
my $sAltURL = shift; 
my $sPartnerCode = shift; 
my $ sLanguageCode = shift; 
my $sMessage = shift; 

my $template = new XDrive :: Template 
({ 

•partner_code ' => $sPartnerCode, 
•language' => $ sLanguageCode, 

•file' => $thtmlfile # 

•tags' => 
< 

1 FILE_0RL* => $sFileURL, 
' FILE_NAME* => $sFileName, 
• ALTURL ' => $sAltURL, 
• LANG f => $ s LanguageCode , 
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' STDPARTNER * => $s Partner Code, 

•message' $sMessage, 

} 



PCT/US00/30536 



} 



$template->clear (} ; 
return $template->get ; 



## Create a string which makes the previously created 
## cookie expire . 

sub empty cookie 



{ 



my $oSelf = shift ; 

my $cookie = new CGI:; Cookie 

f 

-name => ' sst 1 , 
-value => • 1 , 
-expires => ' -1M* 

); 

print header (-cookie=> [$cookieJ ) ; 
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###skip_the_download_status.cgi 

# ! /usr /bin /perl 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 

use CGI qw (header redirect); 
use XDrive:: CGI; 
use XDrive: : Client:: Actions; 
use XDrive :: Client : : Security; 
use XDrive: :DatabaseO; 

ull Z£iZl: : J ata ^ ase0: = Table : :Ski P Download; 
use XDrive: : Tempi ate; 

use XDrive: : Error ; 

use XDrive: : Library; 

use Token; 

use strict; 

use constant TEMP_DIR => XDSTDTemp Directory ( ) ; 

&main; 
exit(0); 



sub main 
{ 

## get parameters 

my $nFileSize; 

my $sTernpFile; 

my $sFileName; 

my $sError; 

my $nStatus; 

my $bDone; 

my $percent = 0; 

my SnDownloadedSize = 0- 

my $sURL; 

my $nNow; 



my $oCGI = new CGI() ; 

my $nSeq = $oCGI->param ( ■ seq ' ) ; 

my $nStart = $oCGI->param( ' start •) • 

i J ^f artnerCode - SoCGI.>param( ■ STDPARTNER ■ ) - 

my SsLanguageCode = $oCGI->param { 'LANG') 

my $sAltURL = $oCGI->parara { ' ALTORL ' ) ■ 

my $previous_percent = $oCGI->param ( - PP • ) ; 

## SET THE CONNECTION_CO0NT = 0 IF IT ISN'T PASSED TM 

»y S co„„ e c ti „„_ c „ u „ t . ^.^i.jz,* rss.ii.™,.,,,., , 0 , 

my $oErr = new XDrive: : Error; 

## get the token and the action object 
my SoDBO = new XDrive: : DatabaseO; 

new Aorive. .Client: : Actions (SoToken, $oCGI) ; 

my $sPartnerParams = 
"STDPARTNER^sPartnerCode^NG^^ang^^^,^^^^^^^,,^ 

i f ( $oErr->Occurud ) 
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{ print redirect ( » /cgi-bin/skip_the_download. cgi?$sPartnerParams" ) ; 
return; 

} 

## if the sequence number was passed then get infomation from the 

database . 

if (defined $nSeq) 

{ ## load the information from the datbase 

my $oSkip = XDrive: :DatabaseO: :Table: : SkipDownload->new (undef , $oDBO) ; 
SoSkip->loadWhere ( ' SEQ' , $nSeq) ; 

SnFileSize = $oSkip->f etchColumn ( ' FILE_SIZE_BYTES • ) ; 

$sTempFile - $oSkip->f etchColumn (» FILENAME_FOR_TEMP_FILE ') ; 

$sFileName - $oSkip->f etchColumn (' FILENAME' ) ; 

$nStatus - $oSkip->f etchColumn CIS_ACTIVE'); 

$sError - $oSkip->f etchColumn ( • ERROR__CODE ' ) ; 

$sURL = $oSkip->fetchColumn{ , FILE_URL , ) ; 

$bDone - $ oS kip- >f etchColumn ( ' IS_DONE f ) ; 

} 

## XDRIVE. SKIP_THE_DOWNLOAD.IS_ACTIVE lengend 
## 0 - still in queue 
## 1 - being downloaded 
## 2 - on hold 



## IF CONNECTION_COUTN > 9, THEN GO TO THE FILE NOT FOUND (1220) ERROR 
## DISPLAY, BUT KEEP TRYING TO DOWNLOAD THE FILE 
if ($connection_ count >9) { 
$sError=1220; 

} 

## IF AN ERROR OCCURRED THEN DISPLAY IT 
## AND THEN EXIT{0); 
if (defined $sError) 
{ 

if ($sError == 1240) 
{ 

&DisplayQuotaError ( • 1 , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
SsLanguageCode 

); 

} 

else 

my $oErr = new XDrive: : Error; 
$oErr->AddErrorByErrorCode ($sError) ; 
&DisplayError ($oErr->Message() , 

$sURL, 

$sFileName, 

$sAltURL, 

$sPartnerCode, 

SsLanguageCode 

); 

} 

} 

## IF THERE IS NO ERROR, THEN GATHER STATUS 
## AND DISPLAY TO THE USER 
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## Get file size, later change to get from a tmp file 
my $sPath = TEMP_DIR. » /$ s Temp File" ; 

## IF STATUS IS LISTED AS DONE IN THE DB, 
## THEN SHOW THE DONE PAGE 
if ($bDone == 1) 
{ 

&DisplayDone ( ■ • , 
$sURL, 
SsFileName, 
SsAltURL, 
$sPartnerCode / 
$sLanguageCode 
) ; 

) 

## ELSE FILE IS NOT DONE, 

## GATHER MORE DATA AND DISPLAY TO USER 

else 

{ 

## IF STATUS IS NOT ACTIVE, OR THE FILE DOESN'T EXIST 
## THEN DISPLAY THE CONTACTING SERVER PAGE 
## REMOVED: 1 | ! - e $sPath 
## FROM CHECK 

if ( ($nStatus ==0 II -e $sPath) 
&& ( ! ( $previous_percent >= 0)) 

) 

{ 

^fPiayContactServer <$nSeq, $sURL, $sFileName, SsAltURL, $sPartnerCode, $sL 
anguageCode, $sPartnerParams f $connection_count) ; 

## ELSE, GATHER STATUS DATA 
## AND DISPLAY TO USER 
else 
{ 

## Set the start time in seconds since the epoch if not passed 
## as parameter 

if (! defined $nStart It $nStart !- /^\d+$/) 
{ 

SnStart =» time() ; 

} 

## IF NO FILE SIZE HAS BEEN SET IN THE DB 

## DISPLAY ZERO PERCENTAGES TO THE USER 

if (! defined SnFileSize || $nFileSize = 0) 

$nFileSize = 'O 1 ; 
$percent = ' 0 f ; 

&DisplayStatus{$nSeq, $percent , $sFileName, SnFileSize, • • , 
SnStart, • ■ , f • , 

$sAltURL, $sPartnerCode, SsLanguageCode, $sPartnerParams) ; 
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## ELSE 

## * THERE WAS NO ERROR 
## * THE FILE WAS NOT DONE 

## * THE FILE EXISTS IN THE TEMPORARY DIRECTORY 
## * THE DB HAS AN EXPECTED FILE SIZE 

## SO READ THE FILE, CALCULATE DATA, AND DISPLAY TO USER 

else 

{ 

## These checks are performed before inserting the skip 

information 

## into the database, but we will do it again here to be 

safe. 

# my $sError = $oErr->ReturnMessageGivenCode ( 141 ) ; 

# XDErrorToBrowser ( " " , $sError, undef , $oToken) ; 
##die "Cannot check $sPath" if $sPath /\.\./; 
##die "Cannot check $sPath" if $sPath /\/\//; 

## Get the size of the download object 
my @file_ info = stat ($sPath) ; 

## Conver the downloaded file size into KB 
if <$file_info[7] > 0) 
{ 

$nDownloadedSize - $f ile_info [7] ; 

if ($nFileSize > 0) 
{ 

$percent = 100 * $nDownloadedSize/$nFileSize; 
} 

if {$percent < 0) 
{ 

$percent = 0; 
> 

$percent = sprint f ("%. 2f M , $percent ) ; 

} 

## IF THE FILE IS GONE NOW, OR SOMEOTHER CONDITION, THE USER 
## WILL NEVER SEE THE % DONE DROP 

## USE WHICH EVER IS LARGER, THE P RECENT THAT WE JUST 

## OF THE ONE THAT WE JUST READ FROM THE FILE SYSTEM 
$percent = ( $pr e vious_percent > $percent) ? $previous_ percent 

## We have already transfered some of the file, so we can now 
## estimate the download time. 
$nNow = time ( ) ; 

my $sInfo; 

my $nElapsedSec = $nNow - $nStart; 
my $nTransPerSec = 0; 

if ($nElapsedSec) 
{ 

SnTransPerSec = $f ile_inf o [7] /$nElapsedSec; 

) 



DISPLAYED 
: $percent ; 



if ($nTransPerSec > 0) 
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{ 

my $partial = $percent/100; 

my ($nSecsRemain, $nMin, SnSecs, $nTransPerSecMB) ; 

if (^partial == 0) { 

$sInfo = 
} else { 

$nSecsRemain = <$nElapsedSec/$partial) -$nElapsedSec ; 
SnMin = int < $nSecsRemain/60) ; 
$nSecs = SnSecsRemain % 60; 
SnTransPerSecMB = $nTransPerSec/1024 ; 

} 

$sInfo = sprintf <", %d:%02d remaining (%.2f 
KB/sec) M ,$nMin,$nSecs 

, SnTransPerSecMB) ; 

} 

my SnTrans; 

my $k = "KB"; 
my $nDiv = 1024; 

my $nTempSize = $f ile_inf of 7] | | 0; 

if ($nFileSize > 1024*1024) 
{ 

$k = "MB"; 

$nDiv = 1024*1024; 

} 

if ($nFileSize < 0) 
{ 

$nFileSize = 0; 
} 

$nFileSize = sprintf ( " % . 2f ", $nFileSize/$nDiv) ; 
$nTrans = sprintf ("%. 2f", $nTempSize/$nDiv) ; 

&DisplayStatus($nSeq,$percent,$sFileName,$nFileSize, ' 
SnStart, $sInfo, $k, 

SsAltURL, $sPartnerCode, SsLanguageCode, $sPartnerParams ) ; 

## END OF READING DATA FROM SYSTEM AND 

## DISPLAYING TO USER 

} 

## END OF NO EXPECTED SIZE IN DB 
## SHOW USER ZERO PERCENTAGES 
} 

## END OF FILE MUST BE DONE 

## SO SHOW A DONE 

) 

## END OF NO ERROR 
} 

$oDBO->disconnect ; 
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sub DisplayContactServer 
{ 

my 

{$nSeq, $sURL, $sFileName, $sAltURL, $sPartnerCode, $sLanguageCode, $sPartnerParams 
, $connection_count ) = 

my ($sHostname) = $sURL =~ /\ A/ ( [ *\/] + ) \//; 
$connection_count++ ; 

## load the status page 
my $template = new XDrive: : Template 
({ 

•partner_code 1 => SsPartnerCode, 
•language' => SsLanguageCode, 

' file ■ => • skip_the_download_cont acting . thtml * , 

•tags* => 

{ 

'hostname* — > $sHostname, 

'continue_to' => "/cgi- 
bin/skip_the_download_status .cgi?seq=$nSeq&cc=$connection_count&$sPartnerPara 
ms 

1 f ileName ' => $sFileName, 
'altURL' => $sAltURL, 
} 

}) ; 

print "Content-type : text /html\n\n" ; 
print $template->get; 

} 



sub DisplayStatus 
( 

my $nSeq - shift; 

my $percent = shift; 

my $filename = shift; 

my $filesize = shift; 

my $transferred = shift; 

my $start = shift; 

my $info = shift; 

my $k = shift; 

my SsAltURL shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my SsPartnerParams — shift; 

my $percent_disp; 

if ($filesize <= 0) 
{ 

$filesize = 'Unknown'; 
$k - » •; 

$percent_disp = 'Unknown'; 
$percent = 0; 

> 

else 
{ 

$percent_disp - n $percent%"; 

} 

## load the status page 
my $template = new XDrive: : Template 
({ 
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•partner_code* => SsPartnerCode, 

•language' => $sLanguageCode, 

1 file ' => ' skip_the_download_status . thtml ■ , 

•tags' => 

{ 

•PERCENT_DISP' => $percent_disp, 

• PERCENT ' => $percent, 

1 FILE_NAME 1 => $filename, 

' FILE_SIZE* => $filesize, 

•TRANSFERRED* => $transf erred, 

' TRANSINFO ' => $info, 

•K* -> $k, 

• URL f => Vcgi- 

bin/skip_the_download_status . cgi?seq=$nSeq&start=$start &pp=$percent&$sPartner 
Pararas", 

'altURL 1 $sAltURL 
} 



$template->clear; 

print "Content-type: text/html\n\n ,t ; 
print $ template->get ; 



sub DisplayDone 
{ 

my $sMessage = shift; 

my SsFileURL - shift ; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode — shift; 

&ErrorOut ( ' skip_the_download_complete . thtml ' , 
$sFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sMessage 
) ; 



sub DisplayError 
< 

my $sError = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my SsAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $thtml = ($sAltORL ■•)? 1 ski p_the_downloa d_no_alt_error . thtml • 

: ' skip_the_download_error . thtml * ; 

&ErrorOut ($thtml, 
$sFileURL, 
SsFileName, 
$sAltURL, 
$sPartnerCode, 
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$sLanguageCode, 

$sError 

) ; 



sub DisplayQuotaError 
< 

my $sError - shift; 

my $sFileURL = shift; 

my $sFileName = shift ; 

my $sAltURL = shift ; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

SErrorOut { f skip_the_download_quota error . thtml 1 
$sFileURL, 
SsFileName, 
$sAltURL, 
$ sPart nerCode , 
$sLanguageCode, 
$sError 
) ; 



sub ErrorOut ( ) 
{ 

my $sTHTMLFILE = shift; 

my $sFileURL - shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my SsPartnerCode = shift ; 

my SsLanguageCode « shift; 

my $sMessage = shift; 



my $template = new XDrive :: Template 
( { 

'language' => $sLanguageCode, 

'partner^code' => $sPartnerCode, 
•file* => $sTHTMLFILE / 
'tags' => 



{ 



} 

}); 



'message' => SsMessage, 
•altURL' => SsAltURL, 
•fileURL' => SsFileURL, 
'FILE_NAME' -> $sFileName, 
' LANG ' => SsLanguageCode, 
'ALTURL' => SsAltURL, 
9 STDPARTNER ' => $sPartnerCode, 



my $html « $template->get ; 

print "Content-type: text /html \n\n"; 
print $html; 
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SsLanguageCode, 

$sError 

); 



sub DisplayQuotaError 
< 

my SsError - shift; 

my SsFileURL = shift; 

my $sFileName = shift; 

my SsAltURL = shift ; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 



SErrorOut ( 1 skip_the_download_quota_error . thtml • , 
$sFileURL, 
SsFileName, 
$sAltURL, 
$ s Par t nerCode , 
SsLanguageCode , 
$sError 
) ; 



sub ErrorOut ( ) 
{ 

my $sTHTMLFILE = shift; 

my SsFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $sMessage - shift; 

my $template = new XDrive :: Template 
({ 

'language' => $sLanguageCode, 

•partner_code ' => SsPartnerCode, 
•file* «> $sTHTMLFILE, 
•tags' =*> 

{ 

'message* *=> $sMessage, 
'altURL' => SsAltURL, 
•fileURL' => SsFileURL, 
'FILE_NAME' => $sFileName, 
•LANG' => $sLanguageCode, 
•ALTURL' => SsAltURL, 
' STDPARTNER* => $sPartnerCode, 

) 

}>; 

my $html = $template->get ; 

print "Content-type : text/htmlNnXn" ; 
print $html; 
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my $sUser_name = $oUserInf o->f etchColumn ( • NAME FIRST 1 ) » « 
$oUserInfo->f etchColumn ( 1 NAMEJLAST 1 ) ; ~ " 

my $sUser_email - SoUserlnf o->f etchColumn (• EMAIL ADDRESS') • 
$o0serlnfo->f inish () ; - 
$oUserInf o->disconnect () ; 

if ($sAddress) 
{ 

« n ™ / send - mail (^Name, $sAddress, $sUser name, $sUser email 

$nUser_ID, $oCGI, $oToken, $oEr r/ $oCookie) ; ~ ^er_enian ( 

&display_thank_you($oCGI, $oCookie) ; 
* ) 
else 

{ 

&display_form($oCGI, $oCookie) ; 
} 

} 



sub send_mail { 

^.nfii^ $suser - emaii ' ^< 

## send out email for each friend only if form is filled out 
## get number of friend fields 

my $nuraFriends = $oCGI->param ( "numFriends" ) ; 
for (my $i=l; $i<=$numFriends; $i++) 
{ 

$sAddress - $oCGI->param { • f riends_email • . $i) ; 
$sName = $oCGI->param ( • f riends_naroe ■ . $i) • 
$sUser_na m eJoCoSX"r = ««* t -— »^C3a0«.r_n« TOf ^User.ID, $sNam e, 

##only send the mail if the email address is filled out 

if ($sAddress) 

{ 

my %toXdrive = 
( 

To => "$sName <$sAddress>\ 

Bcc => • • , 

From => "$sUser_email ,, / 

Message => $sMessage, 

Subject => "Check out X:drive! w , 

) ; 

unless (sendmail %toXdrive) 
{ 

warn "## Mail error " . SMail :: Sendmail :: error ; 
if ($Mail: : Sendmail :: error /451/) 
{ 

my $sError = $oErr->ReturnMessageGivenCode (1310 ) ; 
XDErrorToBrowser ( Mn , SsError, undef , $oToken) ; 

else 

{ 

my $sError = $oErr->ReturnMessageGivenCode { 1311 ) ; 
XDErrorToBrowser ( ■ tell_a_f riend__error . thtml • , $sError, undef , $oToken) ; 

exit (1) ; 

} 

> 
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sub get_f ormf ield { 

my ($sNum, $oCookie) - @_; 

my $oFormField — new XDrive Template 
({ 

'language 1 => $oCookie->getElement ( ' language " ) , 

'partner_code * => $oCookie->getElement ( 'partner ' ) , 
}); 

$oFormField->load ( • tell_f orm_f ields . thtml » ) ; 

$oFormField->tags 
({ 

'number' => $sNum 
)); 

return $oFormField->get ; 



sub get_message { 

my ($sUser_name / $nUser_ID, $sName, $sUserEmail, $oCookie) = @_; 

my SoMessage = new XDrive :: Template 
({ 

' language 9 => $oCookie->getElement { 1 language ' ) , 

•partner_code • »> $oCookie->getElement ( 'partner* ) , 
} ) ; 

$oMessage->load ( ' tell_a_f riend message . thtml ' ) ; 

$oMessage->tags 
({ 

•user — name* -> $sUser_narae, 
•nUser^D* => $nUser_ID, 
1 user_email • —> $sUser Email, 
1 friend^name' => $sName 
}); 



return $oMessage->get ; 



sub display_form { 

my $oCGI = shift ; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
({ 

• language ■ => $oCookie->getElement ( ' language 1 ) , 

• part ner_code • => $oCookie->getElement { ' partner f ) , 
)); 

$oForm->load( 1 1 el l_a_fri end . thtml B ) ; 

my $numFriends — $oCGI->param ( "numFriends") ; 

##construct the html for multiple input fields 
my $inputFields=' ' ; 

for (my $i=l; $i<=$numFriends ; $i++) 
{ 

$inputFields =» $inputFields . &get_f ormf ield ($i, $oCookie) ; 
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$oForm->tags 
({ 

• f riendsToTell ' => $ input Fields, 
' numFriends' => SnumFriends, 

}); 

print $oCGI->header, $oForm->get ; 
exit (0) ; 

} 

sub display_thank_you { 
my $oCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
({ 

• language ' -> $oCookie->getElement { ' language ' ) , 

' partner__code ' => $oCookie->getElement { ' partner * ) , 
}); 

$oForm->load( ' tell_a_f riend t_y.thtml ' ) ; 

print $oCGI->header, $oForm->get ; 
exit (0) ; 

} 
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###web_unauthorized.cgi 

# ! /usr/bin/perl 

# Written by Martin Hald <mhald@uci .edu> on Sat Feb 13, 1999 

# Program foreshowing unauthorized information and allowing the users to 

# re-logan and possibly showing them a "forgot your password?" link! 

use strict; 

use lib <$ENV{PERL_XDRIVE_LIB} ) ; 

use CGI qw(header param); 

use CGI;:Carp qw ( f atalsToBrowser) ; 

# use XDrive::CGI qw(:MAIN); 

use XDrive: : Client; : Registration; 
use XDrive: : Template; 
use XDrive: : Error; 

exit fimain; 

sub main 
{ 

my $oCGI = CGI->new{); 

my SoLayout = new XDrive :: Template; 
my $oContent = new XDrive :: Template; 
my $oNavigation = new XDrive :: Template; 

$oLayout->partner ( 'xdrv 1 ) ; 
$oContent->partner ( 'xdrv' ) ; 
$oNavigation->partner ( 'xdrv 1 ) ; 

$oLayout->load ( • layout . thtml ■ ) ; 
$oNavigation->load{ • f ront_nav. thtml ■ ) ; 

## Get the error key 

my $sError = $oCGI->param {' error ' ) ; 

##now get the error message associated with that error 
my $oErr = new XDrive :: Error ; 

my ^message = $oErr->ReturnMessageGivenCode ($sError ) ; 

## Load the required template HTML files, 
my $oForm = new XDrive: : Template; 
$oForm->partner ( • xdrv • ) ; 
$oForm->load ( -f ront_nav . thtml" ) ; 
$oContent->load ( "unauthorized. thtml w ) ; 

## Update the layout 
$oLayout->tags 
(( 

f header_graphic' 'header denied.gif 
>); ~ 

## Update the content 
$oContent->tags 
(I 

•error^message' => $message 
} ) ; 

$oContent->clear ( ) ; 
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## Print out the HTML and exit 
$oLayout->tags 
({ 

•content' => $oContent->get , 
'navigation* => $oNavigation->get , 
'title* => 'Authorization Denied' 
}); 

print header (), $oLayout->get ; 
return 0; 
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// Module: dlgShareAFile.h 1 

// Module: dlgShareAFile.h 3 

// Module: xdBase64.cpp 5 

// Module: xdBase64.h 9 

// Module: xdGlobals.h 10 

// Module: xdParseDate.h 13 

// Module: xdRegistry.h 14 

// Module: xdTokens.h 16 

// Module: xdTools.h 17 

// Module: xdEngine.h 20 

// Module: tdimsgtbl.h 22 

// Module: tdisock.h , 24 

// Module: xdFilelO.cpp , 41 

// Module: xdDebugger.cpp 45 
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// Module: dlgShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

// 

// Copyright (c) 1 999 by X:dri ve(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

// 

// 

include "stdafx.h" 
^include <xdGIobals.h> 

#ifhdef_VXD_SOURCE_ 
^include "resource.h" 
#endif 

#include "dlgShareAFile.h" 

#ifdef_DEBUG 

#undef THIS_FILE 

static char THISJFILEQ = _FILE_; 

#endif 

II 

// Implementation 

// 

BEGIN_MESSAGE_MAP(dlgShareAFHe, CDialog) 

//{ {AFX_MSG_MAP(dlgShareAFile) 

//}}AFXJvlSGJvlAP 
END_MESSAGE_MAPO 

// 

// Method: dlgShareAFileO 
// Purpose: Standard constructor 

// 

dlgShareAFile::dIgShareAFile(CWnd* pParent /*=NULL*/) 
: CDialog(dlgShareAFiIe::IDD, pParent) 

{ 

//{ {AFX_DATA_fNIT(dlgShareAFile) 
msFileName » szEMPTY; 
m_sFileDescription - szEMPTY; 
ra sEmai I Message = szEMPTY; 
msEmailSubject = szEMPTY; 
msEmailO = szEMPTY; 
m_sEmaill = szEMPTY; 
m_sEmail2 = szEMPTY; 
m_sEmail3 = szEMPTY; 
m_sEmail4 = szEMPTY; 
//} } AFX_DATA_INIT 
} // End of dlgShareAFileO 

// — 

// Method: DoDataExchange() 

// Purpose: Standard data exchange handler 

// 

void dlgShareAFile:: DoDataExchange(CDataExchange* pDX) 
{ 
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CDialog::DoDataExchange(pDX); 
//{ {AFX_DATA_MAP(dlgShareAFi!e) 
DDXJTextCpDX, IDC SHARE F1LENAME, m_sFileName)* 
DDX_Text(pDX, IDC_SHARE FILEDESC, m_sFiIeDescription)* 
DDX_Text(pDX, JDC_SHARE_EMAILMSG, insEmai Message)- 
DDX_Text(pDX, IDC_SHAR£_EMAILSUB, m_sEmai I Subject)- ' 
DDX_Text(pDX, IDC_SHARE_EMAIL 1 , m_sEmailO)- 
DDXJText(pDX, IDC_SHARE_EMAIL2, m_sEmail]); 
DDX_Text(pDX, IDC_SH A RE_EM A I L3 , m_sEmail2); 
DDX_Text(pDX, IDC_SHARE_EMAIL4, m_sEmail3); 
DDX_Text(pDX, IDC_SHAREJEMA!L5, m_sEmail4); 
//} } AFX_DATA_MAP 
} // End of DoDataExchangeQ 



// 

// Method: OnlnitDialogO 

// Purpose: Called to initialize the contents of the dialog 

// 

BOOL dlgShareAFile::OnlnitDialogO 
CDiaIog::OnInitDialogO; 
UpdateData(FALSE); 

return TRUE; // return TRUE unless you set the focus to a control 

// EXCEPTION: OCX Property Pages should return FALSE 
} // End of OnlnitDialogO 



// 

// Method: OnOKO 

// Purpose: Called to close out the dialog. 
// 

void digShareAFile::OnOK() 
{ 

UpdateData(TRUE); 
CDia!og::OnOK0; 
} //End of OnOKQ 



1NSDOCID: <WO Oi333fiiAi ia^. 
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// 

// Module: dlgShareAFile.h 

// Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFiie class 

// 

// _ 

// Copyright (c) 1 999 by X:dri ve(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// . _ 

// 

#if!defined(_rNC_DLGSHAREAFILE_H_) 
#define JNC_DLGSHAREAFILE_H_ 

#if_MSC_VER> 1000 
#pragma once 

#endif // _MSC_VER > 1 000 

#ifhdef_VXD_SOURCE_ 
#inc)ude "resource.h" 
#endif 

#ifhdef_VXD SOURCE 



// . 

// v dlgShareAFiie dialog class 

// 

class dlgShareAFiie : public CDialog 
{ 

public: 

dlgShareAFiIe(CWnd* pParent = NULL); // standard constructor 

//{{AFX_DATA(dlgShareAFile) 
enum { IDD = IDD_SHARE }; 
CString m_sFileName; 
CString m_sFileDescription; 
CString m__sEmaiJMessage; 
CString m_sEmaiISubject; 
CString m_sEmailO; 
CString m_sEmaill; 
CString m_sEmail2; 
CString m_sEmaiI3; 
CString m_sEmail4; 
//} } AFX_DATA 

//{ { AFX_VIRTUAL(dIgShareAFiIe) 
protected: 

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support 
//} } AFX_ VIRTU AL 

protected: 

//{ {AFX_MSG(dIgShareAFile) 
virtual BOOL OnlnitDialogO; 
virtual void OnOKO; 
//}}AFX_MSG 

DECL ARE_M ES SAGE MAPO 

}; 

//{ {AFX_INSERT_LOCATION} } 
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// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 

#endif 

#endif // !defmed(_INC_DLGSHAREAFILE_H_) 
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// Module: xdBase64.cpp 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Implementation module for the xdBase64 class 

// Copyright (c) 1999 by XrdriveCtm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// _ " 

II 

#include "stdafx.h" 
tfinclude "xdBase64.h" 

#ifdef JDEBUG 

#undef TH I S_FILE 

static char THIS_FILE[]= FILE ; 

#endif — ~~ 

#ifdef JVXD_SOURCE_ 

#include <xdEngine.h> 

#define TRACE DEBUG_DPRJNTF 

#endif 

// Static Member Initializers 

// 

// The 7-bit alphabet used to encode binary information 
CString xdBase64::m_sBase64 Alphabet = 

__T( "ABCDEFGHIJKLMNOPQRSTU V WX YZabcdefghijklmnopqretu vwxyzO 1 23456789+/*' 

int xdBase64::m_nMask[] = { 0, I, 3, 7, 15, 31, 63, 127, 255 }; 

// — 5 

// Method: xdBase64() 

// Purpose: Standard Constructor 

// 

xdBase64::xdBase64 ( void ) 
} // End of xdBase64() 

// . . _ ^ 

II Method: ~xdBase64() 

// Purpose: Standard destructor 

// 

xdBase64::~xdBase64() 
{ 

} // End of~xdBase64() 

// 

// Method: EncodeO 

// Purpose: Encodes a string 

// 

CString xdBase64::Encode(LPCTSTR szEncoding, int nSize) 

CString sOutput » _T( ); 
int nNumBits = 6; 
UINT nDigit; 
int Ip = 0; 
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ASSERT( szEncoding != NULL ); 
if{ szEncoding — NULL ) 

return sOutput; 
m_szlnput = szEncoding; 
m_n!nputSize = nSize; 

m_nBitsRemaining = 0; 

nDigit = read_bits( nNumBhs, &nNumBits, Ip ); 

whiie( nNumBits > 0 ) 

{ 

sOutput += m_sBase64Alphabet[ (int)nDigit ]; 
nDigit = read_bits( nNumBits, &nNumBits, lp ); 

} 

// Pad with -' as per RFC 1 52 1 
while( sOutput.GetLength() % 4 != 0 ) 
{ 

sOutput += •='; 

} 

return sOutput; 
} //End of Encode() 

II 

// Method: DecodeO 
// Purpose: Decodes data 

// Notes: The size of the output buffer must not be less than 3/4 the 

// size of the input buffer. For simplicity, make them the same 

// size. 

// 

int xdBase64::Decode(LPCTSTR szDecoding, LPTSTR szOutput) 
{ 

CString slnput; 
int c, lp =0; 

int nDigit; 
CString strDecode; 

int* pDecode » (int*)strDecode.GetBuffer(256*sizeof(int)); 

ASSERT( szDecoding != NULL ); 
ASSERT( szOutput != NULL ); 
ifl[ szOutput — NULL ) 

return 0; 
\% szDecoding = NULL ) 

return 0; 
slnput = szDecoding; 
if( slnput. GetLengthO = 0 ) 

return 0; 

// Build Decode Table 
// 

for( int i = 0; i < 256; i++ ) 

pDecode[i] = -2; // Illegal digit 
for( i=0; i <64; i++) 
{ 

pDecode[ m_sBase64Alphabet[ i ] ] = i; 

pDecodef m_sBase64AIphabet[ i ] | 0x80 ] = i; // Ignore 8th bit 
pDecodef '='] = -!; 

pDecode[ ^ 1 0x80 ] = -!;// Ignore MIME padding char 

} 

// Clear the output buffer 

memset( szOutput, 0, si npuL GetLengthO + 1 ); 

// Decode the Input 
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// 

for( lp = 0, i = 0; Ip < $Input.GetLength(); lp++ ) 

c =» slnput[ lp ]; 

nDigit = pDecodef c & 0x7F ]; 

if( nDigit <-l ) 

{ 

return 0; 

} 

else if( nDigit >= 0 ) 

// i (index into output) is incremented fay write J>its() 
write J>its( nDigit & 0x3F, 6, szOutput, t ); 

return i; 
} // End of DecodeQ 



// 

// Method: read_bits() 
// Purpose: dunno 

// 

UrNT xdBase<54::readJ>its(int nNumBits, int * pBitsRead, int& Ip) 
ULONG IScratch; 

while( ( rnjiBitsRemaining < nNumBits ) && 
( Ip < rnjiInputSize ) ) 

int c = mszlnput[ Ip-M- ]; 
mJBitStorage «= 8; 
mJBitStorage |= (c & Oxff); 

m_nBitsRemaining +- 8; 

if[ m nBitsRemaining < nNumBits ) 

IScratch = mJBitStorage « ( nNumBits - m_nBitsRemaining )• 
*pBitsRead = rnjiBitsRemaining; 
m_nBitsRemaining = 0; 

else 
{ 

IScratch « mJBitStorage » ( rnjiBitsRemaining - nNumBits V 
♦pBitsRead = nNumBits; 
^ m_nBitsRemaining -= nNumBits; 

return (UINT)lScratch & m_nMask[nNumBits]; 
} // End of readj>its0 



// 

// Method: write J>its() 
// Purpose: dunno 

// 

void xdBase64::write_bits ( UINT nBits, int nNumBits, LPTSTR szOutput, int& i ) 
UINT nScratch; 

mJBitStorage = (mJBitStorage « nNumBits) | nBhs; 
m_nBitsRemaining += nNumBits; 
while( m_nBitsRemaining > 7 ) 

nScratch = mJBitStorage » (rnjiBitsRemaining - 8); 
szOutput[ i++ ] = (TCHARXnScratch & OxFF); 
rnjiBitsRemaining -= 8; 
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} //End of write_bits() 
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// Module: xdBase64.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Declaration module for the xdBase64 class. 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#if !defined(_INC_XDBASE64_H_) 
tfdefine JNC_XDB ASE64_H_ 

#ifdef_VXD_SOURCE_ 

#include <xdCString.h> 

#endif 



#if _MSC_VER >= 1000 
#pragma once 

#endif//_MSC VER>= 1000 



// 

// xdBase64 encoder class 
// 

class xdBase64 
{ 

public: 

xdBase64 ( void ); 
virtual ~xdBase64 ( void ); 



virtual int Decode ( LPCTSTR szDecoding, LPTSTR szOutput ); 

virtual CString Encode ( LPCTSTR szEncoding, int nSize ); 



protected: 

void 
UINT 



write J>its ( UINT nBits, int nNumBts, LPTSTR szOutput, int& Ip ); 
read_bits ( int nNumBits, int* pBitsRead, int& Ip ); 



protected: 

int mnlnputSize; 

int m_nBitsRemaining; 

ULONG mJBitStorage; 

LPCTSTR m_szlnput; 

static int m_nMask[]; 

static CString m_sBase64Alphabet; 

>; 



#endif // !defined(_INC_XDBASE64_H_) 
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// Module: xdGlobals.h 

// Subsystem: Xrdrive 

// Contents: Global definitions used throughout the system 

// 

//Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by Kno Ware(r), Inc. 

//All rights reserved. 

// 

// 

// 

#ifhdef_fNC_XDGLOBALS_H_ 
#defme JNC_XDGLOBALS_H_ 

#ifdef_VXD_SOURCE_ 

// 

// This HodgePodge helps us to be able to compile all of our code 
// under Ring-3 and Ring-0 without too much modification. 

// 

#ifhdefUSE_NDIS 

#deflne USE_NDIS 

#endif 



^include <vtoolscp.h> 



// VTooIsD main header file 



#ifhdefLPCTSTR 

typedef char 
typedef unsigned char 
typedef const TCHAR* 
typedef TCHAR* 
typedef unsigned char 
typedef BYTE* 

typedef DSKTLS YSTEMTIME 
typedef HANDLE 
^define _T(x) 



Uendlf 



TCHAR; 
_TUCHAR; 
LPCTSTR; 

LPTSTR; 

BYTE; 

LPBYTE; 
SYSTEMTIME; 

HINSTANCE; 

(x) 



#ifiidef B ASED_CODE 

^define BASED_CODE 

#endif 

#imdef INVALID^ HANDLE_VALUE 

#deflne INVALID HANDLE VALUE (HANDLE)-! 

#endif 



#define 

^define 

#deflne 

#deflne 

#define 

#define 

^define 

^define 

#define 

tfdefine 

tfdefine 

#define 

#define 



tcsstr 
_tcslen 
_tcscpy 

_tcsrchr strrchr 

_tcscat 

_ttoi 

Jtol 

_tcsrev 

_tcschr 

jcsncpy strncpy 
Jcspbrk strpbrk 
.stprintf sprintf 
tcslwr 



strstr 
strlen 
strcpy 

s treat 

atoi 

atol 

strrev 

strchr 



strlwr 



// Standard Unicode mappings 
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ffdefine _tcsupr strupr 

#define _tcsicmp stricmp 
#define _tcscmp strcmp 
^define tcscoll strcmp 
#define istdigit isdigit 
// #define ASSERT Assert 

typedef HANDLE HWND* 

#endif 



// Setup a whole bunch of constants that we can use throughout the systems 

^define chNL TfW) 

//define chCOMMA ~ jq ^ 

fldefine chDOSSLASH _TC\V) ~~ 

#define chUNIXSLASH _T(V) 

#define chQUOTE 7(»\«) 

^define chDQUOTE T(V") ~ 

#define chPERIOD ~T(7) 

^define chBAR ~TCr) 

#define chTAB ~T(V) 

^define chCR ~T(V) 

^define chSPACE " jp •) 

#define chCOLON TO 

#define chSEMICOLON ~ 

#defme chDASH _T('-') 

#define chPLUS Zt( , + i ) 

#define chPERCENT JTC%') 

^define chOPENBRACKET JT^l') 

#define chCLOSEBRACKET _T(J) 

#define chNUL T(W) 

^define chZERO JITO*) 

^define chONE _T(T) 

//define chTWO 7(1*) 

^define chTHREE " T(»3») 

#deftne chFOUR TC4 f ) ~ 

#define chFIVE ~T05') 

//define chSIX ZtC6') 

//define chSEVEN ~~ 7(7*) 

#define chEIGHT jrfP) ~ 

//define chNINE Zt(*9') 

#define chOPENPAREN Z T CO 
#define chCLOSEPAREN _TO') 

#definechAT _T( , @ r ) 

#define szNL _T("\n") 

#defme szCOMMA T( M ,") 

^define szDOSSLASH _T( n \\") ~ 

#define szUNIXSLASH JT( n r) 

#define szQUOTE j>( utn ) 

#define szDQUOTE T("V m ) ~ 

#define szPERJOD Z T C") 

#define szBAR JT(T) 

#define szTAB JT( M \r) 

//define szCR _T(* V) 

#define szSPACE ~T( n -) 

#define szCOLON ~ T("* w ) 

#define szSEMICOLON _T( n ; ,f ) ~ 

//define szDASH _T( w - n ) 

#define szPLUS JT( n + w ) 

^define szOPENB RACKET _T( W [ W ) 

#deftne szCLOSEBRACKET _T(T) 
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//define szAT 
#defineszEMPTY 
#define szCURRENTDIR _T(".") 
tfdefine szPARENTDIR 
#define szFTPJDOT 
#define szFTP_SLASH 
^define szOPENPAREN 
#define szCLOSEPAREN _T( M ) W ) 



_T( w ftp:/r) 



_T(".. M ) 
JT("ftp. M ) 



_T(»@") 



jT("") 



PCT/US00/30536 



#define XD_CACHEJBASEDIR 
#defme XD_LOGFILE_NP 
#defineXD LOGFILE VXD 



T("xdcache M ) 



T("xdrive.log M ) 
TTCxdrivevxd.log") 



// 



// We need to define the scope of values which will be used in the system. 
// They are defined here since we need to read/write these to the registry 
// 

// 

// General defines 
// 

#defme XD_LEN_32 32 

^define XD_LEN_64 64 

#defineXD_LEN_128 128 

#define XDLEN_256 256 

^define XD_LEN_512 512 

#define XD_LEN_ 1 024 1 024 

^define XD_LEN_2048 2048 



// these program IDs are also the 1st two digits of the registration number 

// 

tfdefine XD_PROG JD_XDR1 VE 0x53 // {DB2 1 1 2AD-0000-0000-0053-00000428 1 965} 



// IN will generate a directory listing and the local file that contains 
// that information will have an extension of \fhd\ For example, if 
// IN/FND does a directory listing of ftp.microsoft.com/softlib/msl files, 
// it will place the raw directory listing in the in the local IN cache 
// directory (which is currently defined as hanging off of the same 
// directory where IN is located) as 



// c:\xdCache\ftp.microsoft com\root.softlib.msl files. Is 
// 

// and the parsed FND formatted data will be placed into 
// 

//c:\xdCache\ftp.miciX)soft.com\root.softlib.msIfi!es.fiid 



// the .fhd file is parsed out to produce the information returned as a 
// result of the FINDFI RST()/FINDNEXT() calls to the NP. 

// 



// 



// 



// 



// 



#define XD_F1LEEXT_LS 
#define XD_F1LEEXT_XDR 

// 

// Here is our Network Provider Name 

// 

#define XD PROVl DERJM AME 
#define XD PROVIDER NETID 



T(Ms w ) 
T(".fhd") 



JTrXdrive") 
0x00120000 



#endif// INC XDGLOBALS H 
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// Module: xdParseDate.h 

// Subsystem: Xrdrive Tools Library (xdTools.dll) 

// Contents: Declaration moduie for the CParseDate utility class 

//— - 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1 999 by KnoWare(r), Inc. 

// All rights reserved. 

// . 

// 

// 

#ifadef_rNC_XDPARSEDATEH_ 
#define _INC_XD PARSED ATE_H 



^include <xdTokens.h> 

class XDTOOLS_PUBLIC CParseDate 
{ 

public: 

CParseDate ( void ); 
-CParseDate ( void ); 



BOOL 

int 
int 
int 
int 
int 
int 

TCHAR 
TCHAR 
TCHAR 



Parse ( LPCTSTR s ); 

rnJYear; 

mJMonth; 

m_iDay; 

m_iHour; 

m_iMinute; 

m_iSecond; 
m_szDate[64J; 
m_szTime[32]; 
m_szOrig[64J; 



private: 



#endif 



BOOL isNUM ( LPCTSTR s ); 

BOOL isDOW ( LPCTSTR s ); 

xdTokens mtokens; 
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// Module: xdRegistry.h 

// Subsystem: Xrdrive Tools Library (xdTools.dll) 

// Contents: Declaration module for the xdRegistry utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#ifhdef _INC_XDREG I STR Y_H_ 
^define _INC_XDREGISTRY_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif//_MSC_VER>= 1000 

^include <xdGlobals.h> // X:drive system wide globals 

^include <xdTools.h> // Xrdrive Tools Related 

II 

// xdRegistry 

// the registry class encapsulates the regitry functions. You must open 

// at least a hive in the constructor, then you can optionally open 

// a subkey & read/write information to the registry. AH methods will return 

/A true upon successful completion, false will be returned if an error 

// has occurred. 

// 

class XDTOOLS_PUBLIC xdRegistry 
{ 

public: 

xdRegistryO; 
-xdRegistryO; 

// 

// public interface 

// 

public: 

BOOL RegOpenRead ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegOpen Write ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegClose ( void ); 



BOOL RegDeleteKey ( HKEY hHive, LPCTSTR szSubKey ); 

BOOL RegDeleteValue ( LPCTSTR szVal ); 

BOOL RegEnumKey ( int i, LPCTSTR szKeyName, UINT uiLenWithNull ); 

BOOL RegEnumVal ( int i, LPCTSTR szValName, UINT uiLenWithNull, LPCTSTR 

szValData, UINT uiDataLenWithNull ); 

BOOL RegEnumStr ( int i, LPCTSTR szVal, UINT uiLenWithNull ); 

BOOL RegGetStr ( LPCTSTR sName, LPCTSTR szVal, UINT uiLenWithNull ); 
BOOL RegPutStr ( LPCTSTR sName, LPCTSTR szVal ); 

BOOL RegPutBin ( LPCTSTR sName, BYTE* pBuffer, UINT uiLen ); 



BOOL RegGetNum ( LPCTSTR sName, BOOL& bVal ); 

BOOL RegGetNum ( LPCTSTR sName, WORD& wVal ); 

BOOL RegGetNum ( LPCTSTR sName, DWORD& dwVal ); 

BOOL RegGetNum ( LPCTSTR sName, UINT& uiVal ); 

BOOL RegPutNum ( LPCTSTR sName, DWORD dwVal ); 

14 of 51 

170 



WO 01/33381 



PCT/LJSOO/30536 



LONG RegGetLastError ( void ); 

private: 

HKEY rn_hKey; // the current open hive 
LONG m_IRetCode; // the last return code 

} ; // End of xdRegistry 

#endif // _INC_XDREGISTRY_H_ 
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// Module: xdTokens. h 

// Subsystem: Xrdrive Tools Library (xdTooIs.dll) 

// Contents: Declaration module for xdTokens utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

// 

// 

#imdef JNC_XDTOKENS_H_ 
#define _INC_XDTOKENS_H_ 

#if - MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1 000 

^include <xdGlobals.h> // Xrdrive system wide globals 

^include <xdTools.h> // X.drive Tools Related 



#defineXD MAX TOKENS 1024 



// 

// xdTokens 

// This class is a big worker class, its used to parse strings into 

// tokens or substrings. Strings are parsed by supplying a string of 
// characters which will be used to parse out the string. 
// 



class XDTOOLS_PUBLIC xdTokens 
{ 

public: 

xdTokens(LPCTSTR pTokens = NULL); 
-xdTokensO; 



// 

// Public Interface 

// 

public: 

tnt 
bit 

LPCTSTR 

If 

II Private Members 
// 

private: 

LPCTSTR 
int 

LPTSTR 
LPTSTR 
LPTSTR 
}; // End of xdTokens 



Parse(int iNiimToParse, LPCTSTR pString, LPCTSTR pTokens=NULL); 
Parse(LPCTSTR pString, LPCTSTR pTokens=NULL); 
operator[](mt ilndex); 



*m_pTok; 

m_iNumParsed; 

m_szWorkString; 

m__szTokens; 

m_pWorkString; 



#endif // INC XDTOKENS H 
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// Module: xdTools.h 

// Subsystem: Xidrive Tools Library (xdTools.dll) 
// Contents: Main header file for the xdTools library 
// 

II 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

II 

II 

// 

# ifhdef_IMC_X DTOOLS_H_ 
#defme JNC_X DTOOLS_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

^include <xdGIobals.h> // X:drive system wide globals 

#ifdef_VXD_SOURCE_ 

^include <xdCString.h> 

#endif 

^pragma warning (disable : 4 1 00) 
#pragma warning (disable : 4201) 

// 

// The following code block will insure the proper resolution of any 

// API functions (and classes) which are exposed from the XDTOOLS library. 

// When compiling the XDTOOLS library source code, make sure that the 

// following #define is defined in the project settings (both debug & release). 

// This will cause any classes and/or API functions defined as to 

// be exported to the LIB file. If you are USING the library by linking to 

// the XDTOOLS.LIB or XDTOOLSD.LIB import libraries, then ignore the 

// following #define's for 

// 

#ifdef_XDTOOLS_SOURCE_ 

tfdefine XDTOOLS_PUBLIC _declspec( dllexport ) 

#else 

tfdefine XDTOOLS_PUBLIC // _declspec( dllimport ) 
#endif // _XDTOOLS_SOURCE_ 

// 

// If we are debugging & we trap an exception, we will display it 

// in a message box, otherwise in release mode, we wont. 

// 

#ifdef_DEBUG 

#define XDTRACE(x) AfxMessageBox(x) 

#else 

#define XDTRACE(x) TRACEO(x) 

#endif 

II 

// XDDATE API (Date Functions) 

// 

XDTOOLSJPUBLIC int XDDATE_MonthNum ( LPTSTR szMonth ); 

II 

// XDSTR API (String Functions) 
// 
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XDTOOLS_PUBLIC 
XDTOOLS JPUBLIC 
XDTOOLS J>UBLIC 
XDTOOLS_PUBLIC 
XDTOOLS_PUBLIC 
XDTOOLS PUBLIC 
XDTOOLS_PUBLIC 
XDTOOLS PUBLIC 



LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
BOOL XDAP1 
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XDSTR__Squish ( LPTSTR p ); 
XDSTR_StripChar ( LPTSTR p, TCHAR c ); 
XDSTR_DirS!ashAdd ( LPTSTR sz, TCHAR c ); 
XDSTR_DirSlashRemove ( LPTSTR sz, TCHAR c ); 
XDSTR_TrimRight ( LPTSTR ); 
XDSTRJTrimLeft ( LPTSTR ); 
XDSTRJTrim ( LPTSTR ); 

CreatePath ( LPCTSTR ); // calls CreateDirectoryQ to make a path. 



II . — 

// Stuff for messge boxes 
// 

#ifhdef_VXD_SOURCE_ 

int XDTOOLS_PUBLIC XD_MSG ( LPCTSTR szText, UINT uiMsgFIags ); 

int XDTOOLS_PUBLIC XDJJUESTION ( LPCTSTR szText, UINT uiMsgFIags ); 

LPCTSTR XDTOOLS_PUBLIC XD__TEXT ( HINSTANCE h, UINT uiResId ); // LOADS A 
RESOURCE! 

BOOL XD_DoHelp ( LPHELPINFO ); 

void XD_DoHelpContext ( CWnd* ); 

#endif 



// 

// the calling object needs to supply the resource 

// handle for loading the string. So set up a stupid macro 

// that will automatically supply this! 

// 

#defme XD_LOADSTRiNG(x) XD_TEXT(AfxGetResourceHandleO>(x)) 
// 

// DEBUGGING STUFF 
// 

#define CATCH_MSG JT("Caught Exception in File %s, Line %d\n\n") 
#ifdef_VXD_SOURCE_ 

#deflne XDCATCH dprintf(CATCH>tSG, __T(_FILE_), _LINE_ ) 

#else 

#define XDCATCH { CString s; s.Format(CATCH_MSG, _T(_FILE_), _LINE_ ); 
AfxMessageBox(s); } 
#endif 



// 

// Ring 0 File I/O 

// 

#ifdef_VXD__SOURCE_ 
#defme GENERIC^ READ 
#define GENERICWRITE 
^define CRE ATE__N E W 
^define CREATE_ALWAYS 
^define OPEN_EXISTING 
#define OPENALWAYS 
#define TRUNCATE_EXISTING 
#define FILE_SHARE_READ 
^define FILESHA RE WRITE 
#define FILE_SHARE DELETE 



(0x80000000)/* from WINNT.H */ 

(0x40000000)/* from WINNT.H */ 

1 

2 

3 

4 

5 

0x00000001 
0x00000002 

0x00000004 // not supported 



HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read-write) mode 

DWORD dwShareMode, // share mode 

void* IpSecAtt, // pointer to security 

attributes 

DWORD dwCreateFlags, // how to create 

DWORD dwFIagsAndAttributes, // file attributes 
HANDLE); 
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BOOL CloseHandle ( HANDLE hFile ); 

BOOL ReadFile ( HANDLE hFile, // handle of file to read 

void* lpBuffer, // pointer to buffer that receives data 

DWORD nNumberOfBytesToRead, // number of bytes to read 
DWORD* lpNumberOfBytesRead, // pointer to number of bytes read 
void* IpOverlapped); // pointer to structure for data 

BOOL ReadFileLine ( HANDLE hFile, // handle of file to read 

BYTE* lpBuffer, // pointer to buffer that receives 



data 



DWORD d wBytesToRead, // number of bytes to read 

DWORD* dwBytesRead, // pointer to number of bytes read 

DWORD* dwOffset); // pointer to structure for data 



BOOL WriteFile ( HANDLE hFile, LPCTSTR lpBuffer, DWORD dwBytesTo Write, 

DWORD* pBytesWritten, void* p); 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ); 

#endif 

#endif // !definedCINC_XDTOOLS_HJ 
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// 

// Module: xdEngine.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Main include file for the xd Engine subsystem 

// 

// 



// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996-1999 by KnoWare(r), Inc. 

// AH rights reserved. 

// _ 

// 

// 



#ifiidef JNC_XDR1VE_ENGINE_H_ 
^define _INC_XDRJVE_ENGINE_H_ 

#if _MSC_VER >= 1 000 
#pragma once 

#endif//_MSC_VER>= 1000 

tfpragma warning (disable : 4100) 
#pragma warning (disable : 4201) 

#ifdef _XDENG lNE_SOURC E_ 

#define XDAPI_PUBLIC _declspec( dllexport ) 

#else 

#define XDAPI_PUBLIC //_declspec( dllimport ) 
#endif // _XDENGINE_SOURCE_ 

#pragma pack( 1 ) // byte pack this thing! 

#include <xdGIobals.h> 

// — 

// XD_DIRENTRY - directory listing item 
// 

// The following structure is used to hold an object in the file listing 

// file. Xdrive will generate the file list for the directory and store it 

// in the cache directory. That file will contain 

// a list of record structures of this type. The .mnd file is generated 

// based upon the FTP server specific format in the .idx file in the same 

// cache directory. 

// 

typedef struct _xd_direntry_ 
{ 

USHORT cb; // class size, MUST BE FIRST! ! ! ! 

DWORD dwFileAttributes; 

FILETIME ftCreationTime; 
FILETIME ftLastAccessTime; 
FILETIME ftLastWriteTime; 
DWORD nFileSizeHigh; 

DWORD nFileSizeLow; 
TCHAR cFileName[ XD_LEN_512 ]; 

TCHAR m_szObPerms [ XD_LEN_32 + I ]; 

BYTE m_bObOwnerPerms[4]; 

BYTE m bObGroupPerms[4]; 

BYTE m_bObWorldPerms[4]; 
} X D_D J RENTR Y, * LPXD_DIRENTRY; 

#pragma packQ 
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// 

// Return codes 

// 

typedef UINT XDJRJETCODE; 

#define XD_SUCCESS (int)0 
#define XD_CANCEL (int) I 

^define XD_ERR_CONNECTFAILED (int)2 

#define XD_ERR_LOG INF AILED (int)3 

#define XD_ERR_CONNECTREFU SED (int)5 

#define XD_ERR_CANTRESOLVEHOST (int)6 

#defineXD_ERR_SERVERUPGRADING (int)7 

#define XDJERR_OTHER (int>- 1 
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// socket connect failed 
// bad username/pwd 
// socket connect refused 
// cant resolve host 
// upgrading our servers 



// 

// The following constants are used in the notification structure. 

// 

typedef enum 
{ 

XD_NOTIFYJDLE = 0, 

XD_NOTIFY_STATUS_MSG - 1000, 
XD_NOTIFY_XFERDATA_DN =1001, 
XDNOTIFYXFERDATAUP = 1002, 
XD_NOTIFY_QUOTA = 1003, 

XD_NOTIFY_START - 1004, 

XD_NOTIFY_STOP « 1005 

} XD_NOTIFY_CODE; 



// nothing happening here 
// status msg 
// downloading 
// uploading 

// Update the quota 
// Start an operation 
// Stop an operation 



// 

// XD_ NOTIFY - This is our notification structure. The http engine 
// will use this structure to pass status information back to the 
// invoking method. 

// 

#pragma pack(l) 

typedef struct _xd_notification_ 
{ 

int m_iNotifyType; 

TCHAR m_szMessage [ 1 024 + sizeof(TCH AR) ]; 

II 



II used for send/receive 
// 



ULONG 
ULONG 

DWORD 
DWORD 



m_dwStartTime; 
m_dwCurremTime; 



// GetTickCountO/1 000 
// GetTickCountQ/1 000 



m_dwCurrentBytes; 
m_dwTotaJBytes; 



TCHAR 
TCHAR 

} XD_NOTIFY, *LPXD_NOTIFY; 
#pragma packO 

tfdefine XD NOTIFY MAX 50 



m_szLocalFileName [ MAX_PATH + sizeof(TCHAR) ]; 
m_szRemoteFiIeName [ MAX_PATH + sizeofl[TCHAR) J; 



#endif // INC XDRiVE ENGINE H 
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// Module: tdimsgtbl.h 

// Subsystem: Xidrive Client Engine (xdEngine.dll) 

// Contents: TDI Error table. 

// 

II 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by River Front Software 

// All rights reserved. 

U 

II 

// 

#ifhdef TDIMSGTBLH 

#define _TDI M SGTBLH 

typedef struct 
{ 

TDI_STATUS Status; 
int WinStatus; 
char *szMsg; 
} INETTDIMSG; 

INETTDIMSG TdiMsgTblQ - 
{ 

{TDI_SUCCESS, ERROR_SUCCESS, "TDI Success"}, 
{TDI_NO_RESOURCES, ERROR_B A D_COMM AN D, "No resources."} , 
{TDI_ADDR_IN_USE, ERROR_BAD_COMMAND, "Address already in use."}, 
{TDI_BAD_ADDR, ERROR_BAD_COMMAND, "Address given is bad."}, 
{TDI_NO_FREE_ADDR, ERRORBADCOMMAND, "No addresses available."}, 
{TDI_ADDR_IN VALID, ERROR_BAD_COMMAND, "Address object is invalid."}, 
{TDI_ADDR_DELETED, ERROR_BAD_COMMAND, "Address object was deleted."}, 
{TDI BUFFER OVERFLOW, ERROR JBAD_COMM AND, "Buffer overflowed."}, 
{TDI_BAD_EVENT TYPE, ERROR_BAD_COMMAND, "Bad event type."}, 
{TDI_BAD_OPTION, ERROR_BAD_COMMAND, "Bad option or length."}, 
{TDI_CONN_REFUSED, ERROR_BAD_COMMAND, "Connection was refused."}, 
{TDI_INVALID_CONNECTION, ERROR_B AD_COM M AND, "Invalid connection."}, 
{TDI_ALREADY_ASSOCIATED, ERROR_B AD_COM M AND, "Connection already associated."} , 
{TDI_NOT_ASSOCIATED, ERROR_B AD_COMM AND, "Connection not associated." } , 
{TOI_CONNECTION_ACTIVE, ERROR_BAD_COMMAND, "Connection is still active."}, 
{TDl_CONNECTION_ABORTED, ERROR_BAD_COMMAND, "Connection was aborted."}, 
{TDI_CONNECTION_RESET, ERROR BAD COMMAND, "Connection was reset."}, 
{ TDI_TIMED_OUT, ERROR BAD COMMAND, "Connection timed out"}, 
{TDI__GRACEFUL_DISC, ERROR J3AD COMMAND, "Received a graceful disconnect."}, 
{TDI_NOT_ACCEPTED, ERROR_BAD_COMMAND, "Data not accepted."}, 
{TDI__MORE_PROCESSING, ERROR_B AD_COMMAND, "More processing required."} , 
{TDI_INVALID_STATE, ERROR_BAD_COMMAND, "TCB in an invalid state."}, 
{TDMNVALID PARAMETER, ERROR_B ADCOMM AN D, "An invalid parameter."}, 
{TDI_DEST_NFTUNREACH, ERROR_BAD_COMMAND, "Destination net is unreachable."}, 
{TDI_DEST_HOST_UN REACH, ERROR_B ADCOM M AN D, "Dest. host is unreachable."}, 
{ TDI JDESTJJN REACH ABLE, ERROR_BAD_COMMAND, "Dest is unreachable. "}, 
{TDI_DESTJPROT_UN REACH, ERROR_BAD_COMMAND, "Destination protocol is unreachable."}, 
{ TDI_DEST_PORT_UN REACH, ERROR_BAD_COMMAND, "Dest. port is unreachable."}, 
{TDI_INVALID_QUERY, ERROR_BAD_COMMAND, "Invalid query type specified."}, 

{TDI_R£Q_ABORTED, ERROR_BAD_COMMAND, "Request was aborted for some reason."}, 
{TDIJBUFFERJTOO_SMALL, ERROR_BAD_COMMAND, "Buffer was too small."}, 
{TDJ_CANCELLED, ERROR_BAD_COMMAND, "The request was cancelled."}, 
{TDI_BUFFER_TOOJBlG, ERROR_BAD__COMMAND, "Invalid request."}, 
{ERROR_SEM_TIMEOUT, ERROR_SEM_T1MEOUT, 'Timed out."}, 
{TDM>ENDING, ERROR_BAD_COMMAND, "Pending"} 
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tfendif 
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// Module: tdisock.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: TDI Socket header file. 

// 

// Copyright (c) 1 999 by X:dri ve(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by River Front Software 

// All rights reserved, 

// 

// " _ 

// 

#i*hdef_TDISOCK_H 
#define __TDISOCK_H 



#define TDISOCKjriMEOUT 1 5000 

#define WSADESCRIPTJON_LEN 256 

#define WSASYS_STATUS_LEN 1 28 

typedef short SHORT; 

typedef unsigned short USHORT; 

typedef unsigned short ushort; 

typedef unsigned int uint; 

typedef unsigned long ulong; 

typedef unsigned long ULONG; 

typedef struct WSAData { 

WORD wVersion; 
WORD wHighVersion; 

char szDescription[WSADESCRlPTION_LEN+ 1 ] 

char szSystemStatus[WSASYS__STATUS LEN+11- 
unsigned short iMaxSockets; 
unsigned short iMaxUdpDg; 
char FAR * IpVendorlnfo: 
} WSADATA; 



typedef WSADATA FAR *LPWSADATA; 



#define USE_NDJS 1 

#include <vtoolscp.h> 
^include <crtl.h> 

#undefUSEJMDIS 



^include <tdi.h> 
^include <vxdsvc.h> 
//include <tdivxd.h> 
^include <tdistath> 

#undef VTDI_DeviceJD 
^include <vtdi.h> 
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^define HI WORD(l) ((WORD)(((DWORDX1) » 1 6) & OxFFFF)) 

Adeline LOBYTE(w) ((BYTE)(w)) 

#define HIBYTE(w) ((BYTE)(((WORD)(w) » 8) & OxFF)) 
/* 

* Structures returned by network data base library, taken from the 

* BSD file netdb.h. All addresses are supplied in host order, and 

* returned in network order (suitable for use in system calls) 
*/ 

struct hostent { 

char FAR * h_name; /* official name of host */ 

char FAR ♦ FAR * h_a!iases; /* alias list */ 

short haddrtype; /* host address type */ 

short hjength; /* length of address */ 

char FAR * FAR * h_addrjist; /* list of addresses */ 
^define h_addr h_addr_list[0] /* address, for backward compat */ 

/**♦** Wait for semaphore flags */ 

#define WAIT_SEMA_FLAGS 0 //BLOCK_SVC_INTS | BLOCK_POLL 

Macro to call wait on semaphore function */ 
#define SEMAPHORE_WAIT( hSem, nTimeout ) \ 

WaitOnSemaphore( s, hSem, #hSem, nTimeout ) 



/***♦* Checks for valid TD1 status */ 

#deflne TDI_CHECKSTATUS(s) if ( (s) != TDI_SUCCESS ) 
\ 

Line:%d TDI [%d] - %s\n", \ 
MapTdiToString(s)); ); \ 



\ 
{ 

errdebug( DBGJog("ERROR - File: %s 

FILE , _LIME_, (s), 

goto Exit; 
\ 

} 



/***♦* Destroys a semaphore */ 

#define SEMAPHORE_SAFE_DESTROY(hSem) \ 

if(hSem) \ 

* \ 
vbsdebug( DBG_log( M Destroy Semaphore %s", #hSem); ); \ 
UtilSemDestroy(hSem); \ 

hSem = 0; \ 
> 



/*♦**• signals a semaphore */ 

#define SEMAPHORE_SAFE_SIGNAL(hSem) \ 

if(hSem) \ 

{ \ 
vbsdebug( DBGJogC*** Signal Semaphore %s B , #hSem); ); \ 
vbsdebug( DBG JogJiexJongC hSem ); ); \ 
Signal_Semaphore_No_Switch( hSem ); 

} \ 
else \ 

{ \ 

vbsdebug( DBGJogC*** NO SEMAPHORE TO SIGNAL %s n , #hSem); ); \ 
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/* 

* Basic system type definitions, taken from the BSD file sys/types.h. 
*/ 

typedef unsigned char u_char; 
typedef unsigned short u_short; 
typedef unsigned int u_int; 
typedef unsigned long u_long; 



/* 

* Constants and structures defined by the internet system, 

* Per RFC 790, September 1981, taken from the BSD file netinet/in.h. 
*/ 



/* 

* Protocols 
•/ 

#define IPPROTOJP 0 

ffdefine IPPROTO_ICMP 1 

#define IPPROTOJGMP 2 

^define IPPROTOJ3GP 3 

#define IPPROTOJTCP 6 

#define IPPROTO_PUP 12 

#define !PPROTO_UDP 1 7 

#define IPPROTOJDP 22 

tfdefine IPPROTOJMD 77 

^define IPPROTORAW 255 

tfdefine IPPROTO MAX 256 



/* dummy for IP */ 

/* control message protocol */ 

/* internet group management protocol */ 

/* gateway A 2 (deprecated) */ 

/* tcp */ 

/* pup */ 

/* user datagram protocol */ 
/* xns idp */ 

/* UNOFFICIAL net disk proto */ 
/* raw IP packet */ 



/* 

* Port/socket numbers: network standard functions 
*/ 

#define IPPORT_ECHO 7 
#define IPPORT_DISCARD 9 
#define IPPORT_SYSTAT 1 1 
#defineIPPORT_DAYTIME 13 
#define IPPORTNETSTAT 15 
#define IPPORT_FTP 21 
#define IPPORTJTELNET 23 
#define IPPORT_SMTP 25 
#define IPPORTTIMESERVER 37 
#define rPPORTJNAMESERVER 42 
#define IPPORT_WHOIS 43 
#define IPPORT_MTP 57 

/* 

* Port/socket numbers: host specific functions 
*/ 

tfdefine IPPORTTFTP 69 
#define IPPORTJUE 77 
#define IPPORT_FINGER 79 
#defme IPPORTTTYLINK 87 
#define IPPORT_SUPDUP 95 

/* 

* UNIX TCP sockets 
*/ 

tfdefine IPPORT_EXECSERVER 5 12 
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#define IPPORT_LOGINSERVER 5 1 3 
^define IPPORT_CMDSERVER 514 
#define IPPORT_EFSSERVER 520 

/* 

* UNIX UDP sockets 
*/ 

^define IPPORT_BIFFUDP 512 
#define 1 PPORT_WHOSERVER 5 1 3 
#define I PPORT_ROUTESERVER 520 

/* 520+1 also used V 

/* 

* Ports < IPPORTJIESERVED are reserved for 

* privileged processes (e.g. root). 
*/ 

#defme IPPORT_RESERVED 1024 
/* 

* Link numbers 
*/ 

#define IMPLINK JP 1 55 

#defme IMPLINK_LO WEXPER 1 56 
#define IMPLINK_HIGHEXPER 1 58 

/* 

* Internet address (old style... should be updated) 
*/ 

struct in_addr { 
union { 

struct { u_char s_bl,s_b2,s_b3,s_b4; } S_un_b; 
struct { u_short s_wl,s_w2; } S_un_w; 
u_long S_addr; 
} S_un; 
#define s_addr S_un.S_addr 

/* can be used for most tcp & ip code V 
^define s_host S_un.S_un_b.s_b2 

/* host on imp */ 
tfdefine s_net S_un.S_un_b.s_b 1 
/* network */ 
#defines_imp S un.S_un_w.s_w2 

~ /* imp */ 
#define s_impno S_un.S_un_b.s_b4 

/* imp # V 
^define slh S_un.S_un_b.s_b3 

/* logical host */ 

}; 

^define htons(host) ( (((host) & Oxff) « 8) | ((host) » 8) ) 
ULONG htonl( ULONG hostlong ); 

/* 

* Definitions of bits in internet address integers. 

* On subnets, the decomposition of addresses to host and net parts 

* is done according to subnet mask, not the masks here. 
V 

#define IN_CLASSA(i) (((long)(i) & 0x80000000) = 0) 

#define IN_CLASSA_NET OxffDOOOOO 
#define IN_CLASSA_NSHIFT 24 
#define IN_CLASSA_HOST OxOOffffif 
#defineIN CLASSA MAX 128 
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define IN_CLASSB(i) (((!ong)(i) Sl OxcOOOOOOO) = 0x80000000) 

#defme IN__C L ASSB_N ET OxfTTfOOOO 

// end first 30 pages aj 



int iMax = i; 

CString* pArray » new CString[iMax]; 
i=0; 

while (rl RegEnumKey(i++ ,szVal,dwCnt)) 

pArray[i-l ] = szVal; 
rl.RegCloseO; 
for (i=0; i<iMax; i+-t-) 

{ 

CString str = pArray[i]; 
CString strTmp; 

strTmp.Format(_T("%s\\%s"), (LPCTSTR)szSubKey, (LPCTSTR)str); 
rl -RegDeleteKey(hHive,strTmp); 

} 

delete[] pArray; 

} 

// 

// then Delete the key 

// 

mJRetCode = "RegDeleteKey ( hHive, szSubKey ); 

#endif 

#ifodef _VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

// 

// bOK is TRUE if ERROR_SUCCESS was returned 

// 

bOK = (ERROR_SUCCESS = m JRetCode); 

return bOK; 
} // End of RegDeleteO 

// 

// Method: RegCloseO 

// Purpose: the the registry is open, close it. 

// 

BOOL xdRegistry::RegC!ose ( ) 
{ 

BOOL bOK = TRUE; 

#ifiidef J/XD__SOURCE_ 
try 
{ 

#endif 

if(mJiKey != NULL ) 

::RegCloseKey ( m_hKey ); 
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tfifhdef _VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

// 

// unconditionally null the key 

// 

m_hKey = NULL; 

return bOK; 
} // End of RegC!ose() 
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// 

// Method: RegEnurnStrO 

// Purpose: enumerates subkeys for a key. i is the index to get 
// 

BOOL xdRegistry::RegEnumStr ( int i, LPCTSTR szValue, UINT uiLenWithNuIl ) 
{ 

BOOL bOK — TRUE; 
DWORD dwldx - i; 

DWORD dwSize = (DWORD) uiLenWithNuIl; 

LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 
// 

if(mJiKey==NULL) 
return FALSE; 

#ifiidef _VXD_SOU RCE_ 
try 

{ 

#endif 

// 

// initialize the string to be empty 

// 

memset ( pValue > 0, uiLenWithNuIl ); 

#ifdef_VXD_SOURCE_ 

mlRetCode = :;RegEnumKey ( m_hKey, 

of the key to get 
name will go here 



buffer 
#else 



// hive/key 
dwldx, // index 

(LPTSTR)pValue, // key 

dwSize); // the size of the 



#ifdef_UNICODE 

CString sTmp; 

TCHAR szBuf = (BYTE*)sTmp.GetBuffer(512); 
m_IRetCode = ::RegEnumKeyA (m_hKey, 



key to get 
go here 



// hive/key 

dwldx, 



CString fred(bu0; 



// index of the 
(char*)buf, // key name will 
dwSize);// the size of the buffer 
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_tcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode = ::RegEnumKey ( m_hKey, // hive/key 



of the key to get 
name will go here 
buffer 

#endif 

#endif 



dwldx, // index 

(LPTSTR)pValue, // key 

dwSize); // the size of the 



bOK - (ERROR_SUCCESS = m JRetCode); 

if (bOK != FALSE) 

{ 

// 

// terminate the string. ..ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szVaIue) [ rnin(dwSize,uiLenWithNull) ] = 0; 

} 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumStrO 



//. 

// Method: RegGetStrO 

// Purpose: retrieves a string value from the registry. NOTE: The length 

// of the string MUST include space for the NULL terminator since 

// this character IS read from the registry. So, if you want to 

// read * ABCD* from the registry, supply a uiLen WithNull of five(5). 

BOOL xdRegistry::RegGetStr ( LPCTSTR szName, LPCTSTR szValue, UINT uiLenWithNull ) 
{ 

BOOL bOK = TRUE; 
DWORD dwType = 0; 

DWORD dwSize = (DWORD) ui Len WithNull; 

LPBYTE pValue - (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(m_hKey = NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 



#endif 



{ 



// 

// initialize the string to be empty 

// 

memset ( p Value, 0, uiLen WithNull ); 
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#ifdef_VXD_SOURCE_ 

mJRetCode = ::RegQuery ValueEx (m_hKey, 

// value name 

// reserved 

// the REG * type 

// pointer to the storage area 

// # to fetch (WITH NULL) 
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// hive/key 
(LPTSTR)szName, 

NULL, 

&dwType, 

pValue, 

&dwSize); 



#else 



#ifdef JJN1CODE 

char sShort[512]; 
char sDefau!t[512]; 
char buf[512]; 
BOOL b; 

•sDefcult » *sShort=0; 

WideCharToMuhiByte ( CP_ACP, 0, szName, -1, sShort, 512, sDefault, &b ); 

^ " " *" //hive/key 

sShort, 



mJRetCode = ::RegQuery ValueExA (mJiKey, 
// value name 

// reserved 
//the REG_* type 
pointer to the storage area 

// # to fetch (WITH NULL) 
CString fred(buf); 
_tcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode = ::RegQueryValueEx (m hKey, 

name 

// reserved 
REG_* type 

pointer to the storage area 

fetch (WITH NULL) 
#endif 

#endif 

bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK =» TRUE ) 

{ 

// 

// make sure that it was a string value which was returned. 
// If not, Delete the entry so we can regen it as a string 

if (REG_SZ != dwType) 

"RegDeleteValue ( m_hKey, (LPTSTR)szName ); 

// 

// terminate the string...ensure that we dont go past 
// the max lenth of the string! 



0, 

&dwType, 
(LPBYTE)buf, // 
&dwSize); 



// hive/key 

szName, // value 

&dwType, // the 

pValue, // 

&dwSize); //#to 
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// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNull) ] = 0; 

} 

tfifhdef VXD_SOURCE_ 
"} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegGetStr() 

II : 

// Method: RegPutStrO 

// Purpose: write the information to the registry (write the NULL TOO). 

// 

BOOL xdRegistry::RegPutStr ( LPCTSTR szName, LPCTSTR szValue ) 
{ 

BOOL bOK = TRUE; 

// 

// Make sure that the registry is open 
// 

if(m_hKey = NULL) 
return FALSE; 

#ifiidef_VXD_SOURCE_ 
try 
{ 

#endif 



#ifdef_VXD_SOURCE_ 
// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 
// 

CString sTmp; 

LPTSTR szBuf » sTmp.GetBuffer(5 12); 
memset ( szBuf, 0, 5 1 2 ); 

memcpy ( szBuf, szValue, min(sTmp.GetAHocLength()-l,strlen(szVaIue)) ); 

// 

// remember...always write the NULL byte too! 
// 

UINT uiLenWithNuIl - strlen(szBuf) + 1 ; 

mJRetCode = ::RegSetValueEx ( m_hKey, (LPTSTR)szName, 0, REG_SZ, 

(LPBYTE)szBuf, 

uiLenWhhNulI ); 
#else 

#ifdef_UNICODE 

char sShort[512]; 
char sShortVal[5 121; 
char sDefauh[512]; 
BOOL b; 

♦sOefauIt = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, szName, -1, sShort, 512, sDe fault, &b ); 
WideCharToMultiByte ( CP_ACP, 0, szValue, - 1 , sShortVal, 5 12, sDefault, &b ); 
mJRetCode * ::RegSetValueExA (mJiKey, sShort, 0, REG_SZ, 
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strMsShortValHl); (LPBYTE) sShortVal, 

#else 

CString sTmp; 

LPTSTR szBuf = (LPTSTR)sTmp.GetBuffer(1024); 
memset ( szBuf, 0, 1024 ); 

memcpy ( szBuf, szValue, min(1023,_tcslen(szValue))*sizeof(TCHAR) ); 
szBufLtcslen(szValue)J = 0; 

// 

// remember...always write the NULL byte too! 
// 

UINT uiLen WithNuiJ = _tcslen(szBuf) + I ; 

mJRetCode = "RegSetValueEx ( mJiKey, szName, 0, REG_SZ, 
uiLenWithNul.); " (LPBYTE) szBuf, 

#endif 

#endif 

bOK = (ERROR_SUCCESS = m_IRetCode); 

#ifhdef _VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
}//End of RegPutStrQ 



// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry, there are various 

M overloads for different types. 

// 

BOOL xdRegistry::RegGetNuni(LPCTSTR sName, DWORD& dwValue) 

BOOL bOK = TRUE; 
CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 

memset ( szBuf, 0, XD LEN 64 ); 

DWORD dwType = 0; 

DWORD dwSize = XDJLEN_64- 1 ; 

// 

// Make sure that the registry is open 

// 

if (m_hKey = NULL) 
return FALSE; 

#imdef_VXD_SOURC£_ 
try 

{ 

#endif 

#ifdef_VXD_SOURCE_ 

bOK = RegGetStr ( sName, szBuf, sTmp.GetAllocLengthOI ); 
if ( bOK — TRUE ) 
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dwValue = (DWORD)atol((LPTSTR)szBu0; 



#ifdef_LTNICODE 

char sShort[512]; 
char sDefault[512]; 
char bufTmp[512]; 
BOOL b=0; 
♦sDefauft = *sShort=0; 
WideCharToMuItiByte 



( CP_ACP, 0, sName, - !, sShort, 512, sDefault, &b ); 

// hive/key 

sShort, 



m_lRetCode = ::RegQueryVa!ueExA (mjiltey, 
// value name 

// reserved 

// the REG * type 

// pointer to the storage area 

// # to fetch (WITH NULL) 

bOK = (ERROR_SUCCESS = m_IRetCode); 

if ( bOK = TRUE ) 

{ 

if ( dwType = REG_S2 ) 

dwValue = (DWORD)ato](bufTmp); 

} 



#else 



mJRetCode = ::RegQueryValueEx ( 



m_hKey, 



#endif 



bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK = TRUE ) 

{ 

if ( dwType = REG_SZ ) 

dwValue = (DWORD)_ttpl((LPTSTR)szBuf); 
if ( dwType = REG_DWORD ) 

dwValue = * ((DWORD*)szBuf); 

} 



#endif 



#ifhdef_VXD_SOURCE - 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 



flendif 



} 



0, 

&dwType, 

(LPBYTE)bufTmp, 

&dwSize); 



sName, 
0, 

&dwType, 
(BYTE*)szBuf, 
&dwSize ); 



return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. UINT version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, UINT& uiValue) 
{ 
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uiValue = (UINT) dwValue; 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. BOOL version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, BOOL& bValue) 
{ 

DWORD dwValue = bValue; 

BOOL bOK = RegGetNum(sName,dwValue); 

bValue = (BOOL) dwValue; 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. WORD VERSION. 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, WORD& wValue) 

{ 

DWORD dwValue = wValue; 

BOOL bOK = RegGetNum(sName,dwVaIue); 

wValue = (WORD) dwValue; 

return bOK; 
} //End of RegGetNumO 

// 

// Method: RegPutNumO 

// Purpose: writes a numeric value to the registry. 

// 

BOOL xdRegistry::RegPutNum(LPCTSTR sName, DWORD dwValue) 
{ 

BOOL bOK = TRUE; 

// 

// make sure the key is open 

// 

if(m_hKey===NULL) 
return FALSE; 

#ifridef_VXD_SOURCE_ 
try 
{ 

#endif 

#ifdef_VXD_SOURCE_ 

CString sTmp; 

BYTE* szBuf =(BYTE*)sTmp.GetBuffer(132); 
sprintf( (LPTSTR)szBuf, _T("%lu"), dwValue); 

UINT uiLen WithNull = strlen((LPTSTR)szBuO + 1 ; // ADD THE NULL! !!!!!! 
mJRetCode = ::RegSetValueEx ( mJiKey, (LPTSTR)sName, 
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0, REG_SZ, szBuf, 



#e!se 



bOK = (ERRORJSUCCESS = mJRetCode); 



#ifdef JJNICODE 

char sShort[512]; 
char sDefauIt[512]; 
BOOL b; 

*sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, sName, - 1 , sShort, 512, sDefault, &b )• 
sprintfl[ sDefault, M %lu" t dwValue ); 

mJRetCode = ::RegSetValueExA (mJKey, sShort, 0, REG_SZ> 

(LPBYTE)sDefault > 

strlen(sDefault)+I ); 
#else 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 
wsprintf( (LPTSTR)szBuf, _T("%Iu M ), dw Value); 

UINT uiLenWithNull = _tcslen((LPTSTR)szBuf) + I; //ADD THE NULL!!!!!!! 
mJRetCode = ::RegSetValueEx ( mJKey, 

sName, 
0, 

REGSZ, 
(BVTE*)szBuf, 
uiLenWithNull); 



#endif 



#endif 



bOK = (ERROR_SUCCESS = mJRetCode); 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegPutNumQ 



// 

// Method: RegDeleteValueO 

// Purpose: 

// 

BOOL xdRegistry::RegDelete Value ( LPCTSTR szValue ) 
BOOL bOK = TRUE; 



// 



// make sure the key is open 

// 

if (m_hKey=NULL) 
return FALSE; 

#imdef_VXD_SOURCE_ 
try 
{ 

flendif 



mJRetCode = ::RegDeIetc Value ( mJiKey, (LPTSTR)szVahie ); 
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bOK = (ERROR_SUCCESS = mJRetCode); 
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#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegDeleteValueQ 



// 

// Method: RegEnumVal() 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumVal ( int i, LPCTSTR szValueName, UINT uiNameLenWithNulI, 

LPCTSTR sz Value Data, UINT 

uiDataLenWithNuli) 
{ 

BOOL bOK = TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiNameLenWithNulI; 

DWORD dwDataSize = (DWORD)uiDataLenWithNulI; 
LP BYTE pValue = (LPBYTE) szValueName; 

LPBYTE pData Value - (LPBYTE) szValueData; 

// 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#ifhdef JVXD_SOURCE_ 
try 

{ 

/tendif 

// 

// initialize the string to be empty 
// 

memset ( pValue, 0, uiNameLenWithNulI ); 
memset ( pData Value, 0, uiDataLenWithNuli ); 

#ifdef_VXD_SOURCE_ 

mJRetCode = ::RegEnumValue(mJiKey, 

of the value to get 
valuename will go here 
size of the buffer 

// reserved, 
address of type code 



#else 



// hive/key 

dwldx, // index 

(LPTSTR)pValue, // 

&dwSize, //the 
0, 

NULL, // 

pDataVahie, 
&dwDataSize); 



mJRetCode = ::RegEnumVaIue(m_hKey, 
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dvvldx, // index 

of the value to get 

(LPTSTR)pValue, // 

valuename will go here 

&dwSize, // the 

size of the buffer 

0, 

// reserved, 

NULL, // 

address of type code 

pDataValue, 
&dwDataSize); 

#endif 

bOK = (ERROR_SUCCESS ™ m_IRetCode); 

if ( bOK. — TRUE ) 

{ 

// 

// terminate the string.. .ensure that we dont go past 

// the max ienth of the string! 

// 

((LPTSTR)szValueName) [ mm(dwSize,uiNameLenWithNulI) ] = 0; 
((LPTSTR)szValueData) [ min(dwDataSize,uiDataLenWithNulI) ] - 0; 

} 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumValO 

// 

// Method: RegPutBinO 

// Purpose: write the information to the registry 

// 

BOOL xdRegistry::RegPutBin ( LPCTSTR szName, BYTE* pBuffer, UINT uiLength ) 
{ 

BOOL bOK = TRUE; 
// 

// make sure the key is open 

// 

if(m_hKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

tfendif 

// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

// 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(132); 
memset ( szBuf, 0, 1 32 ); 
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memcpy ( szBuf, pBuffer, min(sTmp.GetAllocLength()-l ,ui Length) ); 
m JRetCode = ::RegSetValueEx ( mJiKey, 
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bOK = (ERROR J5UCCESS = m JRetCode); 



(LPTSTR)szName, 
0, 

REG_BINARY, 
(LPBYTE) szBuf, 
uiLength ); 



#ifhdef_VXD_SOURCE_ 



} 

catch(...) 
{ 



XDCATCH; 
bOK = FALSE; 



#endif 



return bOK; 
}//End ofRegPutBinO 



// : 

// Method: RegEnumKeyO 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumKey ( int i\ LPCTSTR szValueName, UINT UiNameLenWithNulI) 

BOOL bOK>TRUE; 
DWORD dwldx - i; 

DWORD dwSize = (DWORD) UiNameLenWithNulI; 

LPBYTE pValue = (LPBYTE) szValueName; 

// 

// make sure the key is open 
// 

if(mJiKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 

{ 

#endif 

// 

// initialize the string to be empty 

// 

memset ( p Value, 0, uiNameLenWithNulI ); 

#ifdef_VXD_SOURCE_ 

m_IRetCode = ::RegEnumKey(m hKey, 

value to get 
go here 



buffer 
//else 



value to get 
go here 



m JRetCode = : :RegEnumKey(m_hKey, 



// hive/key 

dwldx, 

(LPTSTR)pValue, 
dwSize); 



// hive/key 
dwldx, 

(LPTSTR)pValue, 



// index of the 
// valuename will 
// the size of the 

// index of the 
// valuename will 
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dwSize); // the size of the 

buffer 
#endif 

bOK = (ERROR_SUCCESS — mJRetCode); 
if (bOK=TRUE) 

{ 

// 

// terminate the string.. .ensure that we dont go past 

// the max lenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNull) ] = 0; 

#imdef_VXDSOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumKeyO 
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// Module: xdFilelO.cpp 

// Subsystem: Xidrive Tools Library (xdTools.dll) 
// Contents: Redefinitions for the FILE IO functions 
// 

// 

// Copyright (c) 1999 by X:drive(tm)» Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

II 

II 

// 

^include "stdafx.h" 

^include <xdGloba!s.h> // Xrdrive system wide globals 

#include <xdTools.h> 

#ifdef_DEBUG 

#undef TH1S_FILE 

static char BASED_CODE THIS_FILE[] = _FILE_; 

#endif 

#ifdef_VXD_SOURCE_ 

#include LOCKED_CODE_SEG MENT 
#include LOCKED_D AT A_S EG MENT 

tfendif 

#ifdef_VXD_SOURCE_ 

// 

// Function: CreateFileO 

// Purpose: This API function maps the standard Win32 CreateFile function 

// to the Ring-0 R0_OpenCreateFiIe() call. 

// Returns: INVALID_HANDLE_VALUE - bad 

// something else - good! 

// 

HANDLE CreateFi !e ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read-write) mode 

DWORD dwShareMode, // share mode 

void* IpSecAtt, // pointer to security 

attributes 

DWORD dwCreateFlags, // how to create 

DWORD dwFlagsAndAttributes, // file attributes 
HANDLE) 

{ 

HANDLE h = IN V ALID_H AN DLE_V A LU E; 

WORD wError = 0; 
WORD wMode = 0; 
BYTE action = 0; 

switch (dwDesiredAccess) 
{ 

case GENERICJtEAD: 

wMode - OPENACCESSREADONLY; 
break; 

case GENERIC WRITE: 

wMode = OPEN_ACCESS_WRJTEONLY; 
break; 

default: 

wMode = OPEN_ACCESS_READWRITE; 
break; 

} 
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// 

// file sharing not supported! 

// 

wMode |= OPENSH ARE_COMPATI BLE ; 

// 

// Create Attributes 
// 

switch ( dwCreateFlags ) 
{ 

case CR£ATE_NEW: // create Mew file, fail if file exists 

action - ACTION JFEXISTS_FAIL | ACTIONJFNOTEXISTS_CREATE; 
break; 

case CREATE_ALWAYS: // create New file, overwrite if exists 

action = ACTION JFEXISTSJTRUNCATE I ACTIONJFNOTEXISTS CREATE* 
break; ~~ * 

case OPEN_EXlSTING: //open file, fail if the file does not exists 

action = ACTIONJFEXISTS_OPEN J ACTION JFNOTEXISTS_FAIL; 
break; 

case OPEN_ALWAYS: // open file, if 'exists, create 

action = ACTION jreXISTSOPEN | ACTION_I FNOTEX I STS_CRE ATE; 
break; 

case TRUNCATE_EXISTING: // open&truncate file, fail if it does not exist 

action = ACTIONJFEXISTS OPEN | ACTION 1FEXISTS TRUNCATE I 
A CTION J FNOTEX I STS_FA 1 L; ~ " ~ 

break; 

} 

h = R0_OpenCreateFile(l,(LPTSTR)lpFileName,wMode, 

^ . x ATTR__NORMAL,action,R0 NO CACHE t & wError, 

&action); - - ' 

return h; 

}//End ofCreateFileQ 



// : 

// Function: ReadFiIc() 

// Purpose: This API function maps the standard Win32 ReadFile function 
11 to the Ring-0 R0_ReadFiIeO call. 

// Returns: TRUE - Good read 

fl FALSE -Bad Read 

// 

BOOL ReadFile ( HANDLE hFile, void* IpBuffer, DWORD dwBytesToRead, 

DWORD* pdwBytesRead, void * pdwOfifeet) 

WORD wError = 0; 
DWORD dwOflfset = 0; 

if(pdwOffset) 

dwOffcet = *((DWORD*)pdwOffset); 

♦pdwBytesRead » ROJteadFHe ( TRUE, hFile, IpBuffer, dwBytesToRead, 

dwOfFset, &wError ); 

return ( wError = 0 ); 
}//End ofReadFileQ 



//. 



// Function: WriteFileO 

// Purpose: This API function maps the standard Win32 WriteFile function 

11 to the Ring-0 R0 WriteFileO call. 

// Returns: TRUE - Good write 

II FALSE - Bad write 
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// 

BOOL WriteFile( HANDLE hFile, LPCTSTR IpBuffer, DWORD dwBytesTo Write, 

DWORD* pBytesWritten, void* p) 

{ 

WORD wError =0; 

DWORD dwFilePos = RO_GetFileSize(hFile,&wError); 

♦pBytesWritten = RO_WriteFile ( TRUE, hFile, (void*)lpBuffer, dwBytesToWrite, 

dwFilePos, &wError ); 

return (wError = 0); 
} //End of WriteFiieO 



II. 

// Function: CIoseHandJeO 

// Purpose: This API function maps the standard Win32 CloseHandle function 

// to the Ring-0 R0_CloseFiIeQ call. 

// Returns: TRUE - success 

// FALSE - failure 

// 

BOOL CloseHandle ( HANDLE hFile ) 
{ 

WORD wError = 0; 

return R0_CloseFile ( hFile, &wError ); 
} // End of CloseHandleQ 



// Function: GetFileSizeO 

// Purpose: This API function maps the standard Win32 GetFileSize function 

// to the Ring-0 R0J3etFileSizeO call. 

// Returns: TRUE - success 

// FALSE - failure 

// 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ) 
{ 

WORD wError = 0; 

return RO_GetFileSize ( hFile, &wError ); 
} // End of GetFileSizeO 



// 

// Function: ReadFileLineO 

// Purpose: This API function maps the standard Win32 Read File function 

// to the Ring-0 R0_ReadFiIe() call. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFileLine ( HANDLE hFile, BYTE* IpBuffer, 

DWORD dwBytesToRead, 

DWORD* pdwBytesRead, 
DWORD* pdwOffset ) 

{ 

WORD wError = 0; 
DWORD dwOffset = 0; 



if ( pdwOffset ) 

dwOffset = *((DWORD*)pdwOffset); 

// 

//Check for EOF 

// 

if ( dwOffset RO_GetFi!eSize{hFile,&wEiTor) ) 
return FALSE; 
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// * P dwBytesRead = ROJleadFile ( TRUE, hFile, IpBuffer, dwBytesToRead, 

dwOffeet, &wError ); 

memset ( IpBuffer, 0, dwBytesToRead ); 

int iTmpBytesRead = 1 ; 
BOOL bFoundEOL = FALSE; 
int i=0; 

for ( i=0; (iTmpBytesRead N 0) && (i<dwBytesToRead) && 

(wError = 0) && (bFoundEOL=FALSE); i++ ) 

• pSSS^^ l7 Slt^S^^ '* dwOffcet+i, &wEm>r ); 

if ( IpBuffer[i] = chNL ) 

bFoundEOL = TRUE: 

^ > 

} 

♦pdwBytesRead = i; 

return ( wError = 0); 
} // End of ReadFileLineO 
#endif 
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// Module: xdDebugger.cpp 

// Subsystem: X:drive Tools Library (xdToois.dll) 

// Contents: Implementation module for the xdDebugger utility class 

// 

// 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

^include "stdafich" 

^include <xdGIoba!s.h> // Xrdrive system wide globals 

^include <xdTools.h> // X:drive Tools Related 

# include <xdDebugger.h> 

#ifhdef_VXD_SOURCE_ 
//include <afxmt.h> 
^include "resource.h" 

tfendif 

#ifdef_DEBUG 

#undef THISFILE 

static char BASED_CODE THIS FILED = FILE - 
#endif ~ ~' 

#ifdef_VXD_SOURCE_ 

^include LOCKED_CODE_SEGMENT 
#include LOCKEDDATASEGMENT 

#endif 

// 

// Method: xdDebuggerO 

// Purpose: Constructor for the debugger class. 

// 

xdDebugger :xdDebuggerO 
{ 

#ifiidef_VXD_SOURCE 
try 

#endif 

{ 

m_szLogFile - (LPTSTR)malloc(XD_LEN_I024); 
m_szMsg = (LPTSTR)malIoc(XD_LEN_2048); 
m_szBuf = (LPTSTR)malloc(XD_LEN_2048); 

m_hLogFile = NULL; 
mJ>LogFile * FALSE; 

_tcscpy ( m_szLogFHe, XD_LOGFILE_N P ); 

#ifhdef_VXD_SOURCE_ 

m_pSem = new CSemaphore(lJ); 

#endif 

} 

#imdef_VXD_SOURCE_ 
catch(...) 
{ 

xek:atch; 
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} 

#endif 

} // End of xdDebuggerO 

// 

// Method: -xdDebuggerQ 
// Purpose: Destructor. 
// 

xdDebugger: :~xdDebugger() 
{ 

#ifhdef_VXD_SOURCE_ 
delete m_pSem; 

#endif 

free(m_szMsg); 

free(m_szLogFile); 

free(m_szBuf); 

} // End of -xdDebuggerO 

// 

// Method: DebuggerOnO 

// Purpose: turns on debugging to the optional logflle 
// 

void xdDebuggen:DebuggerOn(BOOL blnitialize) 
{ 

#ifdef_VXD_SOURCE_ 

WORD wError = 0; 
BYTE bAction = 0; 

// 

// force a creation of the file if it does not already exist Then 
// simply close the file; we 11 open it when we need to write to 
//it 
// 

mJ>LogFile = TRUE; 
if ( blnitialize = TRUE ) 
{ 

LPTSTR szOldFile = (LPTSTR)malloc( XD_LEN_1024 ); 
strcpy ( szOldFile, m_szLogFile ); 
LPTSTR pDot = strrchr(sz01dFile,chPERJOD); 
if(pDot !=NULL) 

♦pDot = NULL; 
strcat ( szOldFile, -.old" ); 
R0_De!eteFile ( szOldFile, 0, &wError ); 
R0_RenameFile ( m_szLogFile, szOldFile, &wError ); 
mJiLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 

OPEN_SHARE_DENYWRITE|OPEN_ACCESS_WRITEONLY, 

ATTRNORMAL, 

ACTION JFEXISTS_TRUNCATE| 
ACTION_IFNOTEX I STS_CRE ATE, 

0, &wError, 

(PUCHAR)&bAction ); 

free(szOldFiie); 

} 

else 

mhLogFile = R0_OpenCreateFile ( TRUE, m_szLogFile, 
OPEN_SHARE__DENYWRlTE|OPEN_ACCESS_WRITEONLY, 

ATTRNORMAL, 
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ACTION_IFEXISTS_OPEN| 

ACT10N_I FN OTEX I STS_CRE ATE, 

(PUCHAR)&bAction ); 
// 

// Ok, we opened/created the close it again. We never want to keep 
// the logfile open so that we ensure that its contents are saved 
// to disk. 
// 

if ( (m JiLogFHe != NULL) && (wError — 0) ) 
R0_CloseFile ( mhLogFile, &wEnror ); 
mJiLogFile = NULL; 



//else 



try 
{ 



// 

// force a creation of the file if it does not already exisL Then 
// simply close the file; we 11 open it when we need to write to 
//it. 
// 

mJ>LogFile = TRUE; 
if (blnitialize = TRUE) 



{ 



#ifdef_UNlCODE 

#e!§e 

#endif 

} 

else 

#ifdef JJN1CODE 

#else 

#endif 



CString sOldFile; 

LPTSTR szOldFile = sOldFile.GetBuffer(5I2);; 
_tcscpy ( szOldFile, m_szLogFi!e ); 
LPTSTR pDot « _tcsrchr(szO!dFile,chPERIOD); 
if(pDot !=NULL) 

♦pDot » NULL; 
_tcscat ( szOldFile, _T(".oId") ); 
DeleteFile ( szOldFile ); 
try 

{ 

CFile: :Rename( m_szLogFile, szOldFile ); 

catch(„.) 

{ 

} 

m hLogFile = _wfopen(m_szLogFile,_T("w+ M )); 
inJiLogFile = fopen(m_szLogFile,_T( M w+")); 



m_hLogFile = _wfopen(m_szLogFile,_T( w a+ M )); 
m_hLogFile - fopen(m_szLogFile > _T( , *a+ ,, )); 



} 

catch(...) 
{ 



if ( mJiLogFile != NULL ) 

fclose(mJiLogFile); 
inJiLogFile = NULL; 



#endif 



> 



XDCATCH; 
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0, &wError, 
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} // End of DebuggerOnO 

// 

// Method: DebuggerOffO 

// Purpose: turns off debugging to the optional logfile 

// 

void xdDebugger::DebuggerOff0 
{ 

#ifdef_VXD_SOURCE 

WORD wError = 0; 
if(m_hLogFile!=NULL) 

R0_CloseFtle ( mJiLogFile, &wError ); 
mJ>LogFiie = FALSE; 

#else 

m_bLogFile = FALSE; 

#endif 

} // End of DebuggerOffO 

II 

// Method: DEBUGMSGO 

// Purpose: always dumps the messages to debugger window and optionally to 
// the file... 

// 

void xdDebugger::DEBUGMSG(TCHAR *fmt v ..) 
{ 

#ifdef_VXD_SOURCE_ 

va_tist args; 
// 

// parse out the info 

// 

va_start(args,fmt); 

vsprin tf(m_szBuf,frnt,args); 

va_end(args); 

// 

// add a <cr> 
// 

if(strchr(m_szBuf > chNL)==NULL) 
strcat(m_szBuf ) "\r\n ,, ); 

strcpy ( m_szMsg, "FSD: w ); 
strcat ( m szMsg, m_szBuf ); 

tfifdefDEBUG 

DEBUGTRACE(m_szMsg); 

#endif 

// 

// if the logfile is engaged, dump it! 
// 

if(mJ)LogFile=TRUE) 
{ 

WORDwError-0; 
BYTE bAction = 0; 

// 

// open the file, dump the string, then close the file!!! 

// 

mJiLogFile = R0_OpenCreateFile ( TRUE, mjszLogFile, 
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OPEN_SHARE_DENYWRJTE|OPEN_ACCESS_WRJTEONLY, 

ATTR NORMAL, 

ACTION JFEXISTS_OPEN | ACTION_l FNOTEXISTSCREATE, 

0, &wError, 

(PUCHAR)&bAction ); 

if ((mJiLogFile != NULL) && (wError = 0)) 
{ 

DWORD dwOffset = RO_GetFileSize ( m_hLogFile, &wError ); 
R0_WriteFile ( TRUE, m_hLogFiie, m_szMsg, strlen(m_szMsg), 

dwOffset, &wError); 
RO^IoseFileCm^hLogFile^wErTor); 
mJiLogFile = NULL; 



} 

#else 

try 
{ 



#ifdef_UNICODE 
#else 



} 



// 

// only wait 1 second, then do it. This guarantees that 

// we dont lock up the system 

// 

if ( m_pSem->Lock(5000) = TRUE ) 

vajist args; 
// 

//parse out the info 

// 

va_start(args,fhu); 

_vstprintf{m_szBuf,nnt,args); 

va_end(args); 

// 

// add a <cr> 
// 

if Ctcschr(m_szBuf,chNL)=NULL) 
_tcscat(m_szBuf,szNL); 

*m_szMsg = 0; 

Jcscpy(m_szMsg,_T( n LOG: ")); 
_tcscat(m_szM sg, mjzB u 0; 

// 

// dump h to the IDE debugger 
// 

#ifdef_DEBUG 

OutputDebugString(m_szMsg); 
#endif 

// 

// if the logfile is engaged, dump it! 
// 

if (mJ>LogFHe = TRUE) 
{ 

// 

// open the file, dump the string, then close the file!!! 
// 

mJiLogFile = _wfopen(m_szLogFiIe,_T( ,, a H )); 
rn_hLogFile = fopen(m_szLogFne,_T( w a M )); 
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#endif 

if(m_hLogFile !=NULL) 
{ 

_fputts(m_szMsg > m_Ji LogFi le); 
//fflush(mJiLogFile); 
fclose(m_hLogFile); 
mJiLogFile - NULL; 

} 

} 

} 

} 

catch(...) 
{ 

XDCATCH; 

if(m_hLogFiIe!=NULL) 

{ 

//fflush(m_hLogFile); 
fclose(m_hLogFile); 
mJiLogFile = NULL; 

} 

} 

m_j>Sem->Unlock(); 

#endif 

} // End of DEBUGMSG 
#ifhdef_VXD_SOURCE_ 

II 

// Method: DEBUGMSG() 

// Purpose: loads the string and then dumps it to the logftle. 

// 

void xdDebugger::DEBUGMSG(UINT uiResourceld) 
{ 

CString s = XD_LOADSTRFNG(uiResourceld); 

DEBUGMSG(_T("%s\n"),s); 
} // End of DEBUGMSGO 
#endif 

// 

// Method: SetLogNameO 

// Purpose: 

// 

void xdDebuggen:SetLogName(LPCTSTR s) 
{ 

Jtcscpy ( m szLogFile, s ); 
} // End of SetLogName() 

// ; — 

// Method: IsDebuggerOn() 
// Purpose: 

// 

BOOL xdDebugger::lsDebuggerOn ( void ) 
{ 

return m_bLogFiIe; 
} // End of IsDebuggerOnQ 
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JavaScript Listing 



//button js 1 

//diskJnfojs ; 6 

//launch js 10 

//navjs 1 1 

//saveToXdrivejs 28 

//securejogin js 3 1 

//skipjs 33 

//skipthedownload.js 35 

//submit js 38 

//uploadStatusjs 53 

//utilsjs * 54 

//verify_libjs 57 

//xparse js 69 
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//button.js 

// Is called upon loading of page to set up the button image arrays 
function XDloadToolbarButtons () 
{ 

if (XD_gsAction =='•){ 

for (var i=0; i < 4; i=i+3) 
{ 

g__aimgUpload[i] = new Image () ; 
g_aimgDownload[i] = new Image ( ) ; 
g_aimgNewFolder [i] = new Image <) ; 
g_aimgMove [i] = new Image () ; 
g_aimgRename [i] = new Image () ; 
g_aimgDelete [i] = new Image () ; 
g_aimgHelp[i] '= new Image ( ) ; 
g_aimgView[i] = new Image (); 
g_aimgShare [i] = new Image {) ; 



".gif"; 
i + " .gif 
" -gif 



g_aimgUpload[i] .src = XD_gsGraphicsLanguageRoot+ "up" + i + 

g_aimgDownload[i] .src - XD_gsGraphicsLanguageRoot+ "down" + 

g_aimgView[i] .src - XD_gsGraphicsLanguageRoot+ "view" -f i + 

L + „ gif „. 9.aimgNewFolder[i].src = XD_gsGraphicsLanguageRoot+ "new" + 

tf g„aimgMove[i] .src = XD_gsGraphicsLanguageRoot+ "move" + i + 
* gx i * 

g„aimgRename[i] .src = XD_gsGraphicsLanguageRoot + "name" + i 

\ + . git ; 

„ Wm g_aimgDelete[i] .src = XD_gsGraphicsLanguageRoot+ "delete" + 
x + • gxi / 

i + " gif". g_airogShare[i] .src = XD_gsGraphicsLanguageRoot + "share" + 

( / , g_aimgUpload[i] .src - XD gsGraphicsLanguageRoot+ 

"nav_upload" + i + ".gif; ~ 

f J ^ , g__aimgDownload[i] .src = XD gsGraphicsLanguageRoot+ 

"navjdownload" + i -i- ".gif"; ~" 

U „ g_aimgView[i] .src - XD_gsGraphicsLanguageRoot + "nav view" + 
x + • gif ; 

*J ^ ^ g_aimgNewFolder[i] .src - XD gsGraphicsLanguageRoot+ 
"navjiewf older" + i + ".gif"; 

if* " gif"- g.airagMove[i] .src = XD_gs Graph xcsLanguageRoot* "nav_move" + 

{/ g_aimgRename[i] .src = XD gsGraphicsLanguageRoot + 

"nav_rename" + i + ".gif"; ~~ 

{/ , g_aimgDelete[i] .src = XD gsGraphicsLanguageRoot+ 

"nav delete" + i + ".gif"; ~~ 



_ .gif". 

{/ ^ g_aimgShare[i] .src « XD gsGraphicsLanguaqeRoot + 

"nav_share" + i + ".gif"; " 

) 



) 

} 



// Takes a button and an event and returns a status 
// as defined by the containt button statuses 
function XDtoolbarButtonStatus (button, event) 
{ 

var rv = XD_TOOLBAR_BUTTON ENABLED; 
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// Just exit if no controls are enabled 

if ( JControlsEnabled) 

{ 

return XD__TOOLBAR_BUTT0N DISABLED; 

} 

if (event == XD_EVENT_MOUSEOVER) 
{ 

rv = XD_TOOLBAR_BUTTON_ACTIVE; 
> 

else if (event == XD_EVENT_MOUSEOUT) 
{ 

rv = XD_TOOLBAR_BUTTON_ENABLED; 
} 

else if (event == XD_EVENT_CLICK) 
{ 

rv = XD_TOOLBAR_BUTTON_CLICKED; 
} 

if ((button ==- XD_TOOLBAR_BUTTON_UPLOAD) 

&& (XD gnSelectedFolderCount ! = 1)) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABLED; 
} 

else if 

( (button XD_T(X)LBARJ3UTTON_DOWNLOAD) 
^ && (XD_gnSelectedCount != 1 || XD_gnSelectedFolderCount != 0)) 

rv = XDJTOOLBAR_BUTTON_DISABLED; 
} 

else if 

( (button « XD_TOOLBAR_BUTTON_NEWFOLDER) 
&& (XD_gnSelectedFolderCount != 1)) 

[ 

rv = XD_T0OLBAR_BUTTON_DISABLED; 
} 

else if 

( (button == XD_TOOLBAR_BUTTON_MOVE) 
&& (XD_gnSelectedCount — 0)) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABLED; 
} 

else if 

( (button. XD_TOOLBAR_B0TTON_DELETE) 
&& (XD_gnSelectedCount » 0)) 

{ 

rv = XD_TOOLBAR_BUTTON_DISABLED; 
> 

else if 

( (button ===== XDJTOOLBAR_BUTTON_RENAME) 
&& (XD__gnSelectedCount !- 1)) 

{ 

rv = XD_T00LBAR_BUTTON__DI SABLED; 
} 

else if 

(button ~ XDJTOOLBAR BUTTON VIEW) 

{ 

rv = XDJTOOLBAR_BUTTON_DISABI,ED; 

if (XD_gnSelectedCount =« 1 && XD_gnSelectedFolderCount =*= 0) 
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rv = XD_TOOLBAR_BUTTON_ENABLED; 
} 

} 

else if 

(button — XDJTOOLBAR_BUTTON__SHARE) 

{ 

rv = XD_TOOLBAR_BUTTON_DISABLED; 

if (XD_gnSelectedCount == 1 && XD_gnSelectedFolderCount == 0) 
{ 

rv = XD_TOOLBAR_BUTTON_ENABLED; 
} 

) 

return rv; 
) 

// Wrapper for updating images, used for checking if the image exists before 
// attempting to udpate it. 

function XDImageUpdate (olmage, imgGraphic) 
{ 

if (olmage) 
{ 

// If the image exists then update it 

olmage. src - imgGraphic; 

> 



else 



} 



{ 

// otherwise do nothing 
} 



// Takes a button and an event, finds the status 
// and then refreshes the button. 

function XDref reshButton (sButton, sEvent) 
{ 

if (XD_gsAction ==••)< 

var nStatus = XDtoolbarButtonStatus (sButton, sEvent); 
var oFrame = XD_goFrameControls; 

XD_gsPreviousGrove = grove; 

if (sButton == XD_TOOLBAR_BUTTON_UPLOAD) 
< 

XDImageUpdate (oFrame . document . img_upload, g_aimgUpload [nStatus] .src) ; 
} 

else if (sButton == XD_TOOLBAR_BUTTON_DOWNLOAD) 
{ 

XDImageUpdate (oFrame . document . img_download, g_aimgDownload [nStatus] . src) 
) 

else if (sButton — XD_TOOLBAR_BUTTON_NEW FOLDER) 
{ 

XDImageUpdate (oFrame . document . img_newf older , 
g_aimgNewFolder [nStatus] .src) ; 
) 

else if (sButton — XD_TOOLBAR_BUTTON_M0VE ) 
{ 

XDImageUpdate ( oFrame. document, img move,g aimgMove [nStatus] . src) ; 
> 

210 3 ° f76 



WO 01/33381 PCT/USOO/30536 
else if (sButton XD_TOOLBAR_BUTTON RENAME) 
{ 

XDImageUpdate (oFrame . document . img_rename, g_aimgRename [nStatus] . src) ; 

else if (sButton == XD_TOOLBAR_BUTTON DELETE) 
{ 

XDImageUpdate (oFrame . document - img_delete, g__aimgDelete [nStatus ] . src) ; 

else if (sButton XD_TOOLBAR_BUTTON VIEW) 
{ 

XDImageUpdate (oFrame . document . img_view, g_aimgView [ nStatus ] . src) 

else if (sButton XD_TOOLBAR_BUTTON SHARE) 
{ 

XDImageUpdate (oFrame. document .img_share, g_aimgShare [nStatus] . src) ; 
} 

) 

//This refreshes all the buttons at one time, 
function XDref reshAllButtons ( ) 
{ 

XDref reshButton (XD_TOOLBAR_BUTTON_UPLOAD, null); 
XDref reshButton (XD_TOOLBAR_BUTTON_DOWNLOAD, null ) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_NEWFOLDER, null ) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_MOVE, null) ; 
XDref reshButton (XD_TO0LBAR_BUTTON_RENAME, null ) ; 
XDref reshButton ( X D_TOOLBAR_BUTTON_DELETE , null ) ; 
XDref reshButton (XD_TOOLBAR_BUTTON_VIEW, null ) ; 
XDref reshButton (XD_TOOLBAR_BUTTON SHARE, null); 
} 

// Wraper that handles button click events, 
function XDbuttonClick (sButton) 
{ 

XDref reshButton (sButton, XD_EVENT CLICK); 
} 



// Wrapper that handles the button MouseOver events 
function XDbuttonOver (sButton) 
{ 

XDref reshButton (sButton, XD_EVENT MOUSEOVER); 
> 



// Wrapper that handles teh button MouseOut events, 
function XDbuttonOut (sButton) 
{ 

XDref reshButton (sButton, XD EVENT MOUSEOUT); 
) 

function XDfunctionStatus (button) 
{ 

if (! ControlsEnabled) 
{ 

return false; 
> 
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if (XDtoolbarButtonStatus (button, XD_EVENT_M0USEOVER) == 
X D JTOOLBAR_BUTTON_ACT I VE ) 
{ 

return true; 
} 

else 

{ 

return false; 
} 
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//disklnfo.js 

// NOTE: The table trick works differently in IE vrs Netscape. In netscape 
you need to 

// have an   as a value within the TD's while in IE you do not need 
anything. 

function mresponse() 
{ 

parent . parent . parent . frames [ • centerview 1 ] . document . location = 
" . . /explorer /more_space_mai 1 * html" ; 

} 

function XDdisplayDisklnf o (oFrame) 
{ 

//3K always taken up by xdrive, public and private folders 

//changed code so it doesn't show as red any more 
var nUsed = XD_gnQuotaUsed; 
var nTotal = XD_gnQuotaTotal ; 

//var nGraphWidth = XD_gnFileGraphWidth; 
var sGraphUsedColor = XD_gsUsedColor ; 
var sGraphFreeColor = XD_gsFreeColor ; 

var freeMB - nTotal - nUsed; 

var usedPercent = Math . round { 100 * (nUsed/nTotal) ) ; 

///// Do some basic bound checking 
if (usedPercent > 100) 
{ 

usedPercent = 100; 

sGraphFreeColor » sGraphUsedColor; 
} 

if ( usedPercent < 0 ) 
{ 

usedPercent =» 0; 
} 



var freePercent = 100-usedPercent ; 

oFrame. write ( • <F0RM name= t '*controlForm"> ' ) ; 

oFrame. write('<TABLE width«500 border=0 cellpadding=0 
cellspacing=0xTR>\n* ) ; 

oFrame. write ('<TD width=300>  </TD>\n ' ) ; 

oFrame.write{*<TD align= n right " width=50xBXFONT si ze= n -i m >* + 
XD_gsEmpty + • </FONTX/Bximg src="/images/spacer . gif " width=l 
height=lx/TD>\n 9 ) ; 

oFrame. write ( *<TD align="center w width=100>\n * ) ; 

oFrame . write ( ' <TABLE width=100 CELLPADDING=0 CELLSPACINGS 
BORDER=0><TR>\n' ) ; 
if (usedPercent != 0) 
{ 

oFrame . write ( ' <TD height=10 WIDTH* 5 " ' + usedPercent + BGCOLOR= H 1 + 

sGraphUsedColor + ' "ximg src="/images/spacer . gif rt width=l 
height=lx/TD>\n ' ) ; 
} 

oFrame. write {'<TD height=10 WIDTH^' + freePercent + '%" BGCOLOR—" 1 + 
sGraphFreeColor + * "ximg src="/images/spacer . gif " width=l 
height=lx/TD>\n • ) ; 

oFrame. write ( 9 </TRx/TABLE>\n 1 ) ; 
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oFrame. write <'</TD><TD align=»lef t » width=50ximg 
src-Vimages/spacer.gif" width-1 height=lxBxFONT size="-l">' + XD asFull + 
• 'C/FONTx/BX/TD^n* ) ; Au_gstuj.j. + 



oFrame. write ( ' </TR>\n f ) ; 
oFrame . write ( • </TABLE>\n ' ) ; 



if (usedPercent>90) 
{ 

oFrame . write ( * <TABLE width-500 border=0 cellpadding=0 
cellspace=0><TRXTD width=300ximg src="/images/spacer . gif » width=300 
hexght=lx/TDXTD width=200 valign=center align-lef txFONT size="-l» 
face= w verdana,arial">' + XD_gsOutOf Space + • ?<BRxA HREF-"/cgi- 
bin/addspace.cgi?action=intro" target="centerview"> • + XD gsBuyMore + 
•</AX/FONTX/TDx/TRx/TABLE>» ) ; - Y«o« 



} 



oFrame.write('<input type-"hidden" name= "multiples elect" value="N w > • ) • 
oFrame. write ( ' </FORM>' ) ; 

} 

function XDSelectedList { ) 
{ 

return XD_gsSelectedList ; 
} 

function XDSelectedFolder ( ) 
{ 

return 

XD_gsSelectedFolderList . substring { 0, XD_gsSelectedFolderList . length-1 ) ; 
/***********************^^ 

* XDCleanupPath: Cleanup the passed path by removing the VX:drive/» prefix 

* and the + postfix. 

***************** + *** #+/ 
function XDPathCleanup (sPath) 
{ 

var sCopy = sPath; 

sCopy = sCopy. substring {9, sCopy. length) 

//sCopy = sCopy. substring (0, sCopy. length-1) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
{ 

if (sValue != 'null* && sValue >=* "") 
{ 

m_sMultiSelect = sValue; 
} 

else 

{ 

return m_sMultiSelect; 
} 

} 

function HTMLNavigation () 
{ 

var sHTML = HTMLStart() 

+'<table width= n 100%" border= w 0 M cellspacinQ= tt O w 
cellpadding="0 ,, > , 
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+'<tr align="left" valign="top" bgcolor="#5EBll 4 "> • 
+ , <tdxiing src=" /images /main/logo_top . gif" width= t, 153 ,t 
height="28"></td>' 

+ '</trxtr>' 

+ • <tdximg src="/images/main/logo — center . gif" width=" 17 1 " 
height-" 97" alt=* w X: drive"x/td> ' 
+ '</trxtr>' 

+ ' <tdximg s rc="/ images /ma in/ race_logo_bot torn, gif " 
width« M 171" height="35"></td> , 

+ , </tr></table> > 

+ '<a target="toolbar" href="http: //www. mit . edu">MIT</a> ' 

+ f </BODY>\n</HTML>' ; 
return sHTML; 
> 

function HTMLStart () 
{ 

return "<HTML>\n" 

+ , <body bgcolor="#6961AB" topmargin="0" lef tmargin="0 w marginheight="0" 
marginwidth^'O" text="#FFFFFF" vlink="#FFFFFF" alink= w # FFFFFF" link="# FFFFFF" 
{ onload} >■ 

+"\n"; 

} 

function HTMLEnd () 
{ 

return "\n</BODY>\n</HTML>\n w ; 
> 

function RedrawToolBar ( ) 
{ 

var sWindow = • window . toolbar ' ; 

sWindow. document .write (HTMLStart ( ) + ' test • +HTMLEnd ( ) ) ; 
} 

function roundoff (value, precision) 
{ 

value +=* .000000001; 

part = + parselnt (value) ; 

size — part. length; 

value = + value; //convert value to string 
return value. substring ( 0, size+l+precision) ; 
} 

function XDDiskUsedO 
{ 

var nUsed = XD_gnQuotaUsed; 

var nUsedMB = nUsed/1024; 

var nRound » roundoff (nUsedMB, 2 ) ; 

var sRounded; 

// if (nUsed < 1024) 
// { 

// sRounded = • . f +nRound; 

// } 

// else 
// { 

sRounded = nRound; 

// ) 

return sRounded; 

) 
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function XDDiskTotal ( ) 
{ 

var nTotal = XD_gnQuotaTotal; 
var nTotalMB = nTotal/1024; 
var nRound = roundoff (nTotalMB, 2) ; 
var sRounded; 

// if (nTotal < 1024) 
// { 

sRounded = ' . f +nRound; 
// } 
// else 

// i 

sRounded = nRound; 



} 



return sRounded + ■ MB*; 



function XDDiskFree() 
{ 

var nUsed = XD_gnQuotaUsed; 
var nTotal = X D__gnQuota Total; 

var nFreeMB - (nTotal - nUsed)/1024; 
var nRound = roundoff {nFreeMB, 2 ) ; 
var sRounded; 



// if (nFreeMB < 1) 
// f 

/ / sRounded = f . 1 tnRound; 

} 

// else 

// { 

sRounded = nRound; 
// ) 

return sRounded + • MB*; 
} 
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//launch.js 

* XDExplorerLaunch: Launch the passed explorer URL in a popup window. 



function XDExplorerLaunch ( 

sURL, //* + + (I) The URL to open in the popup window 
nHeight, //*** (I) The height of the popup 
nWidth) //*** (I) The width of the popup 
{ 

var w = 

window, open (sURL, "XDriveExplorer n , " location=no, toolbar=no, menubar=yes , "+ 
w status=no, resizable=no, scrolling— yes, scrollbars=no, " + 
"width="+nWidth+", height="+nHeight ) ; 

//*** make sure the opener knows who the parent is 
if (w. opener — = null) w. opener = self; 

//*** focus on the newly created window 

w. focus ( ) ; 

) 

function XDExplorerURL ( ) 
{ 

return ' /cgi-bin/explorer . cgi 1 ; 
} 

function XDDataURL ( ) 
{ 

return 1 /cgi-bin/explorer_data . cgi * ; 
} 
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//nav.js 

// Added by Julie Wang 111999 
// 

^irof'sLiice 5 ^ Wlth ^ href> t0 P ° P UP an ° ther WindOW t0 Sh - X:drive. S 

// page 

function toe ( ) 
( 

var url, window_name; 

url="/company/toc. html 
window_name= n toc M ; 
window. open ( 

url, 

wi ndo w_name , 

Ight^O™' * enUbar=no ' 3crollbars=yes / f ullscreen-no, resizable=no, width=650, he 
) ; 

return; 
} 

// Added by Julie Wang 122199 
// 

// Iamo?i°LiL^ Se ? <a href> t0 P ° P UP an ° ther window to show a 

// sample letter when someone use "Tell A Friend" feature. 

function tell_a_f riend_sample_email ( ) 

var url, window^name; 

Vgeneric_join_sample_email.html"; 
window_narae= "toe" ; 
window. open ( 

url, 

window_name, 

igh?=Joo" n °' menubar=no ' «croUb.r.-ye« f f ullscreen=no, r es izable=no, width=650, he 
) ; 

return; 
) 

// Added by Julie Wang 102699 
// 

everTv^itorj" 65 ^ ""^ mGnu/bUtt ° ns on ^^"1 HTML pages for 

function lef* t^menu ( ) 

ceSSSS^lS^;^ *<*^™*' border=X-0N- cellspacing-VOX" 

docunent.write('<tr align=\"lef t\" valign-\"top\">\n* ) - 
docuraent.write<'<td><a href=\ "http: //www. xdrive.comX-^img 
S ff ~\^ g f a P hlcs/internal /btn_xdrivehome.gif\» width=\»138\» heiqht=\"19\» 
alt=\»X: drive Home\» border=\«0\»x/a><br><irag "eagnt \ 19\ 

S ff"v N r^ r f Phi f S/internal/divider -9 if ^" width=\-138\- height=\-5\» 
alt=\ n Divider\"></td>\n') ; 9 N 3N 

document . write ( • </tr>\n • ) ; 
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document.write('<tr align=\"lef t \" valign=\ "top\">\ n • ) * 
document . write { 1 <td>\n 1 ) ; 

document-write (»<table width=\"138\" border=\"0\" cellspacinq=\"0\" 
cellpadding=\"0\" backgrounds " /graphics/internal/lines . gif\ ">\n ■ ) • 

document.write('<tr align=\"left \" valign=\ "top\">\n ■ ) - 

document.write('<td width=\"38\"ximg src=\ Vgraphics/lnt ernal/icon- 
new.gif\» width=\"38\" height=\»31\" alt=\"New\"x/td>\n ■ ) • 

document.write('<td align=\"lef t V valign=A "middle \" width=\"100\ "xbxf ont 
face=\"Arial, Helvetica, sans-serif\" size=\"2\ "xa 
hre f=Vcompany /new. html \">What\ 's New</a></fontx/bx/td>\n ' ) ; 

document. write { '</tr>\n' ) ; 

document. wr it e('<tr align=\"lef t\" valign=\"top\ w >\n • ) • 

document, write ( »<td width=\»38\"ximg src= Wgraphics/internal/icon- 

about.gif\" width=\"38\" height=\"34 \ " alt=\"About X :drive\ "x/td>\n ' ) • 

document.writeC<td align=\"lef t\" valign==\"middle\" width=\ "l00\"xb><£ ont 

face=\"Arial, Helvetica, sans-serifv size*\ M 2\"Xa 

href=\Vcompany/company.html\">About X: drive</ax/f ontx/bx/td>\n • ) - 
document. write { , </tr>\n' ) ; 

document. write (*<tr align=\" lef t \" valign=\ "top\">\n • ) ; 

document, .write ( '<td width=\"38\"Ximg 
src=\ Vgraphics/internal/icon_desktop.gif\" width=\"38\" heiqht=\"28\" 
alt=\"Desktop X : drive\"x/td>\n » ) ; 

document, write ('<td align=\"lef t\» valign-V»middle\" width=\ »100\ "xbxf ont 
face=\"Arial, Helvetica, sans-serif \ H size=\"2\"Xa 

href=\"/company/main_download.html\">Desktop X :drive</ax/f ontx/bx/td>\n f ) • 
document . write ( 1 </tr>\n 1 ) ; 

document .write ( *<tr align=\"lef t\ " valign-^topX^Xn 1 ) ; 

document. write ('<td width=\"38\"ximg src= Wgraphics/internal/icon- 
affilxates.gif \" width=\»38\» height=\»28\ » alt-\"Af f iliates\"x/td>\n ■ ) ; 

document, write ('<td align=\"lef t\" valign=\"middle\" width=\"100\ "Xbxfont 
face=\"Arial, Helvetica, sans-serif \" size=\"2\"Xa 
href=\"/affiliates/befree/index.html\">X: drive 
Af f iliate</ax/fontx/bx/td>\n 1 ) ; 

document . write ( * </tr>\n ' ) ; 

document. write ( '<tr align=\"lef t \ " valign=\ tt top\">\n' ) ; 

document.writeC<td width=\"38\"ximg src= Wgraphics/internal/icon- 
faq.gif\" width=\"38\" height=\»32\ " alt=\"FAQs\"x/td>\n ' ) ; 

document. write <»<td align=\"lef t \« valign=\"middle\" width=\"100\ "xbxf ont 
face=\"Arial, Helvetica, sans-serif\" size=\"2\"xa 

href=\"/company/faq.html\">FAQ</ax/fontx/bX/td>\n r ) ; 
document . write ( • </tr>\n 1 ) ; 
document . write ( • </table>\n ■ ) ; 

document .write ( f </td>\n • ) ; 
document . write ( 1 </tr>\n 1 ) ; 

document .write ( »<tr align=\"lef t\" valign=\"top\">\n ' ) ; 

document, write { '<tdxa href=\ M /cgi-bin/signup_f orra. cgi\ n ximg 
src=\ "/graphics /internal /sign-up-now.gif \" width=\"138\" height=\"58\ rt 
alt=\"Sign Up Now ! \" border=\ ff 0\ t, x/ax/td>\n , ) ; 

document .write ( '</tr>\n' ) ; 

document .write ( »<tr align=\"lef t\" valign^^topX^Xn 1 ) ; 

document . write { 1 <tdximg src=\ "/graphics/int ernal/whats-hot . gif \ " 
width=\"138\ w height=\"19\" alt-\ "What\ • s Hot ?\"xbrximg 
src=\"/graphics/internal/divider.gif \" width=\"138\" height=\"5\" 
alt^V'DividerN^x/tdrsAn 1 ) ; 

document .write ( 1 </tr>\n* ) ; 

document .write { '<tr align=\"lef t\" valign=\"top\ ">\n f ) ; 

document. write ( '<tdx a href=\ »/f reebies/english/f reebiesout . htmlV'ximg 
src=\"/graphics/internal/freebies.gif\" width=A w 138\ n height=\"82\" 
alt=A"Check Out Freebies - Click Here\" border=\ w O\"x/ a xbrximg 
src^Wgraphics/internal/divider.gifX" width=\"138\" height«\"5\" 
alt-N^Divider^x/td^n* ) ; 

document, write { , </tr>\n f ) ; 
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document. write ( '<tr align=\ "lef t\" valign=\"top\ ">\n 1 ) ; 

document . write ( 1 <td><a href =\ " /company /main_download . html \ "ximg 
src=\ n /graphics/internal/btn_get__application .gif \" width=\ M 138\" 
height=\ ,, 82\" alt = \"Download the desktop application ! \" 
border=\"0\"x/axbrximg src=\ "/graphics /internal /divider . gif \ " 
width=A"138\ w height=A"5\" alt=\ M Divider\"x/td>\n • ) ; 

document . write (• </tr>\n ') ; 

document. write ( '<tr align=\ "lef t\ " valign=\ n top\ ">\n' ) ; 

document .write ( • <td><a href =\" /demo /index . html \ "ximg 
src=\ n /graphics /internal/btn_skipdownload. gif \ n width=A w 138 " heights "82" 
alt=\"Skip the download! \" border=\"0\"></a><brximg 
src=\"/graphics/internal/divider .gif \ M width=\"138\" height=\ "5\ M 
alt^N^DividerX-x/td^n* ) ; 

document . write ( f </tr>\n ') ; 

document .write ( 1 </table>\n 1 ) ; 

document . close ( ) ; 
return true; 

} 

// Added by Martin Hald 
function PathRemovePref ix (path) 
{ 

return path . substring ( 10, path . length) ; 
} 

// Function that redraws the file explorer 

function show() 
{ 

var oDocument = FrameObject ( ) ; 

oDocument .open ("text/html") ; 
oDocument .write ( "'ChtmlrAn" ) ; 
oDocument .write ( n <head>\n w ) ; 

oDocument . write ( ,, </head>\n ,f ) ; 

oDocument . write { • <body BGCOLOR=" ' + XDBackgroundColor ( ) + • " 
BACKGROUND^' + XDBackgroundlmage ( ) + ,H >M; 
oDocument .write (XD_sNewdoc) ; 

XDdisplayDisklnfo (oDocument ) ; 

oDocument .write ("</body>\n w ) ; 
oDocument . write ( M </html>\n M ) ; 
oDocument . close () ; 
XDrefreshAllButtons () ; 



// parses the XML tree from the top frame and first calls show* 
// This must be called on load of the main page, 
function process (sExtra) 
{ 

if (XD_gsAction =~ f ? ) 



grove = Xparse (XD_gsXML) ; 



//this resets the variables that track how many files and folders 

are selected 

//don't reset if we are going into an action 
XDresetSelected ( ) ; 
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// If we have just performed an action that involved a folder then 
// we will open that folder so the user can see the results of the 
// action. To do so we update the old directory listing so that 
// the directory from which the action took place gets opened, 
if (XD_gnSelectedFolderID !* • •) 
{ 

XD_gsPreviousGrove. index [XD_gnSelectedFolderID] . attributes . show = 
1; ~ 
} 



// Now sync the view of the filesystem between the current and 
// previous views. 

synch (XD__gsPreviousGrove, grove) ; 

//reset attributes . selected for all items so that blue line does not 
get drawn 

XDresetAllSelected{) ; 

} 



function BuildUpload ( ) 
{ 

var oOocument = FrameObject ( ) ; 
XD_gsActionUpload = true; 
HTMLGenericStart (oDocument ) ; 



// var rand_num = parent . createRandomID () ; 
var rand num = createRandomID {) ; 



i f ( XD_gbEx t r aHelp ) 
{ 

oDocument .write (XDHelp (XD_gsHelpFileUpload) ) ; 

} 

oDocument. write ( "</TABLE>\n" ) ; 

oDocument . write (• <p>\n' ) ; 

oDocument . write (XDHelp (XD__gsClientAd) ) ; 

oDocument . write ( • </p>\n • ) ; 

oDocument. write ( •<form name=" f orm_upload w raethod^POST" action-"/cgi- 
bin/f ile_save .cgi" onSubmit="return 

parent .parent .parent . openOpload (parent .parent .parent . XDCheckFormlnput ( ) , \ • /eg 
i-bin/f ile_upload_stat . cgi?id= ' +rand_num+ 1 \ • , \ • window\ • , (this ) ) ; " 
TARGET^centerview" • ) ; 

// oDocument .write ( '<form name="f orm_upload" method="POST" 
action=* w /cgi-bin/f ile_save. cgi" onSubmit="return 

(parent .parent .parent .XDCheckFormlnput () ) ; " TARGET=" center view" f ) ; 

oDocument .write ( • enctype="multipart/f orm-data"> • + "\n" ) ; 
var results = ••; 

results += *<input type- "hidden" name="s Folder Cur rent" value=" 1 + 
XDSelectedFolder () +'">\n'; 

oDocument . write (results) ; 

oDocument . write ( * <input type-hidden name=id value= * +rand_num+ * > ' ) ; 

oDocument. write ( • <TABLE cols=2> • +"\n") ; 



for (var i— 1; i<=5; i++) 
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{ 

oDocument. write ( ' <trxtd valign=»top" width="30"xFONT f ace=»verdana 
anal^ sans" size="-l»xb> ' + XD_gsFile + i + </bx/FONTX/td><td><FONT' 
tace= verdana, arial, sans" size="-l rt xinput type="file" 
name^'file^to^uploadj)' + i + size= tt 20"x/FONTx/tdx/tr> ' + "\n" ) ; 

oDocument . write ( ■ </tr> 1 + " \n") ; 

oDocument. write ( '<tr valign="top"> »+"\n<td colspan=2>\n" ) ; 

oDocument .write ( 1 <center> ■ + "\n n ) ; 

oDocument . write (XDFormSubmitButtons ( ) ) ; 

oDocument .write { l </center>' + w \n n ) ; 

oDocument . write ( * </td> 1 + n \n") ; 

oDocument . write ( ' </tr> ' + n \n n ) ; 

oDocument . write ( 1 </TABLE> • ) ; 

oDocument . write ( 1 </body> , + "\n" ) ; 

oDocument .write ( 1 </html> • +"\n" ) ; 

oDocument . close ( ) ; 

XD_gnFrameHeight=* 85 • ; 

return true; 

} 

function BuildCreate ( ) 
{ 

var oDocument = Fr ameOb j ect ( ) ; 
HTMLGenericStart (oDocument) ; 

if (XD_gbExtraHelp) 
( 

^ oDocument . write (XDHelp (XD_gsHelpCr ea teFolder ) ) ; 

oDocument .write ( '<form name="f orrn_create" action-Vcgi- 
bin/folder_create.cgi" method="POST M onSubmit= w return 
parent .parent .parent . XDCheck Form Input { ) ; M target="centerview"> » ) ; 

var results = ' * ; 

results += '<input type=" hidden" name="s Folder Current" valuer" •+ 
XDSelectedFolder ( ) + ' ">\n ■ ; 

oDocument .write (results) ; 

oDocument . write ( • <tr><td valign-center><B> • + XD_gsFolderNaine + • • </b> • ) 
oDocument.write<'<input type="texf name= B s Folder New" value-" "><br> •) • 
©Document . write (XDFormSubmitButtons ( ) ) ; 
oDocument . write ( 1 </tdx/tr> ' ) ; 

oDocument . write ( • </TABLE> 1 ) ; 
oDocument . write ( l </body> , + "\n") ; 
oDocument . write ( • </html> • + n \n " ) ; 
oDocument . close () ; 
XD_gnFrameHeight=' 85 1 ; 
return true; 

} 

function BuildRename ( ) 
{ 

var oDocument = FrameOb j ect ( ) ; 
HTMLGenericStart (oDocument) ; 

if (XD_gbExtraHelp) 
( 



oDocument. write (XDHelp (XD_gs Help Folder Rename) ) ; 
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oDocument .write ( "<form method="POST w name="f orm_rename" action='7cgi- 
bin/selected_rename . cgi " onSubmit^" return 
parent . parent . parent . XDCheckFormlnput ();"*>; 

oDocument .write ( 1 target= n centerview n value= M ' +XDSelected { ) + 1 ">\n ' ) ; 

var results = * ' ; 

results += ' <input type=" hidden" name- " s FolderCur rent " 
value=" • +XDSelectedFolder ( ) + ' ">\n ■ ; 
oDocument . write ( results ) ; 

oDocument .write ( 1 <tr><td valign=center><B> * + XD_gsNewName + , :</b>*); 
oDocument .write { ' <input type="hidden" name= "sit emCu r r en t w value="' + 
XDSelected { ) + ' ">\n f ) ; 

if (XDProf ileEditExtensions) 
{ 

oDocument . write ( * <input type="text" name="sItemNew" value='" + 
XDSelectedThingName ()+ 1 ">\n' ) ; 

oDocument . write ( f <input type="hidden" name= B sItemExtension" 
value="">\n' ) ; 
} 

else 
{ 

oDocument . write {' <input type="text" name="sItemNew M 
valuer" ' +XDSelectedThingNameMinusExtension { ) + * "> 1 +XDSelectedThingNameExtensio 
n() + »\n' ) ; 

oDocument . write { • <input type= "hidden" name="sItemExtension M 
valuer" ' +XDSelectedThingNameExtension () + • ">\n' ) ; 
} 

oDocument . write {XDFormSubmi t But tons ( ) ) ; 
oDocument .write ( *</td></tr>' ) ; 
oDocument . write ( 1 </TABLE> • } ; 
oDocument -write ( , </body> 1 +"\n") ; 
o Document, write ( • </html> • + "\n" ) ; 
oDocument . close () ; 
XD_ gnFrameHeight = • 85 ' ; 
return true; 

} 

function BuildDelete ( ) 

{ ' 

var oDocument - FrameObject ( ) ; 

HTMLGenericStart (oDocument) ; 

var pathToFile « XDSelected () ; 

var lastSlash = pathToFile. last IndexOf ( V* J ; 

var file = pathToFile .substring (lastSlash+1, pathToFile. length) ; 

if (XD_gbExtraHelp) 
{ 

oDocument .write (XDHelp (XD_ gsHelpDelete) ) ; 

} 

oDocument. write ( '<form name="form_delete w action=" /cgi- 
bin/selected_delete.cgi" method="POST" on Submit=" return 
parent . parent . parent . XDCheckFormlnput { ) ; " t arget» f, centerview ,, > f ) ; 

var results — * 1 ; 

results += *<input type=" hidden" name="sFolderCurrent " value="'+ 
XDSelectedFolder ( ) +• ">\n f ; 

oDocument . wr i t e ( results ) ; 

oDocument . write ( ' <trxtd valign=center><B> ' + XD_gsSureDelete + ■ • + 
file + , ?</b> 1 ); 

oDocument . write (• <input type^ "hidden" name-"s!temCurrent " value="' + 
XDSelected () + , "><br> f ); 

oDocument . write ( *<input type=" hidden" name— "sFolderCur rent" valuer" ' + 
XDSelectedFolder ( ) + • "><br> • ) ; 
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oDocument . write (XDFormSubrnitButtons { ) ) ; 

oDocument .write ( , </td></tr> 1 ) ; 
HTMLGenericEndf oDocument) ; 
XD_gnFrameHeight= ■ 85 ' ; 
return true; 



function BuildExplorer (grove, sStartDirectory) 
var returnValue = true; 
if (XD_gsAction == 'Upload 1 ) 

returnValue = BuildUpload ( ) ; 
else if (XD_gsAction == 'Create') 

returnValue = BuildCreate ( ) ; 
tlse if (XD_gsAction == 'Rename') 

returnValue = BuildRenanie { ) ; 
Ise if (XD__gsAction == 'Delete') 
returnValue = BuildDelete ( ) ; 

Ise 



t • 



var result 
var nDepth = -2; 

. . » . „ t _ result += 9 < ^BLE compact border-0 cellspacing-0 cellpadding=4 
width="'+ XD_gnExplorerTableWidth +'»>\n'; F 9 

result += XDFormSubrnitButtons (1) ; 

result += "<trxth align=\"lef t \">»+ XDExplorerFont ( ) + '<font 
<B^» + XDPossesive ^ D -9 sF "StName + • ■ + XD,gs Last Name) + • X:dSSe 

+XDDiskTotal () +" "+XD_gsCapacity+", " 
+XDDiskFree ( ) +" "+XD_gsRemaining 
+ "</thxth align=*\ M left\ ,, > t, + 

align=\«l e ft\'^"+ XPl ° rerF0ntn + ,<fOnt size= " 2rt> ' + XD^gsSize + "</thxth 

"</thX/tr>\n" XDEXPl ° rerFOnt0 + ,<f0nt si2e= " 2 " >f+ XD_gsLastModified + 

result += dotag (grove, sStartDirectory, nDepth); 
result += ,, </TABLE>\n r, ; 
XD_sNewdoc - result; 

show ( ) ; 

//johngaa 11/22/99 

//Highlight bug fix 

if (XD_gsXOffset I I XD_gsY0f f set ) 

^ XD_goFrameFileExplorer.scrollTo(XD_gsXOffset f XD_gsYOf f set ) ; 
//end of johngaa bug fix 
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} 

return returnValue; 

} 

function XDPossesive (name) 
{ 

var length = name. length; 
var lastChar = name . charAt (length-1 ) ; 
var possesive=name + n, s"; 
if (lastChar 's' ) 
{ 

possesive = name + 
> 

return possesive; 

) 

function XDExplorerFont ( ) 
{ 

return '<font f ace-"verdana, arial, sans n > 1 ; 
) 

// constructs the HTML from the file explorer from the parsed XML 

function dotag(tag, path, nDepth) 

{ 

path += + tag. name; 

var result = ' 1 ; 

var sCellColor - new StringO; 

var slconlmage = new StringO; 

var sFolderPointer = new StringO; 

var fileSize = new StringO; 

var fileString = new StringO; 

var sDate; // The last modified date and time stamp 



//johngaa 11/23/99 
//highlight netscape bug fix 
// var sFlipFunction = new String ( 'parent .parent .parent . flip ( ' + 
tag.uid + ' ) 1 ) ; 

if (navigator. appName — "Netscape") 
{ 

var sFlipFunction = new String (• parent . parent .parent . flip ( ' + 
tag.uid + f , window .pageXOff set, window. pageYOff set ) •) ; 
) 

else 
{ 

var sFlipFunction = new String ( 1 parent .parent . parent . flip ( • + 
tag.uid + ' , document .body . scrollLeft, document .body . scrollTop) *); 

) 

//johngaa orginal 11/22/99 
//highlight netscape bug fix 
//var sSelectToggleFunction = new 
String (* parent, parent .parent. XDselectToggle ( • + tag.uid + 1 )'); 
if (navigator .appName == "Netscape") 
{ 

var sSelectToggleFunction = new 
String ( 'parent .parent .parent .XDselectToggle ( ' + tag.uid + 
• , window. pageXOffset, window. pageYOffset) •) ; 
) 

225 



18 of 76 



WO 01/33381 PCT7US00/30536 

else 
< 

var sSelectToggleFunction = new 
String (.'parent .parent .parent . XDselectToggle ( 1 + tag.uid + 
1 /document. body. scrollLeft, document. body. scroilTop) ' ) ; 
} 

//end of johngaa bug fix 

// If the object is selected, 

// then add it to the selected arrays 

// and up the selected counts 

// and set the cell color to selected 

//set background color of the cells depending on status: selected 
move or at rest ' 
if (tag. attributes. selected) 
{ 

XD_gnSelect edCount=l ; 
sCellColor =XD_gsSelectedColor ; 

XD_gsSelectedList +- PathRemovePref ix (path) + •+•; 

if (tag. attributes . folder) 
{ 

XD_gnSelectedFolderCount=l ; 
XD_gnSelectedFolderID = tag.uid; 
^ XD_gsSelectedFolderList += PathRemovePref ix (path) + ' + '; 

else 
( 

XD_gnSelectedFileCount=l ; 

) 

) 

else if (tag. attributes -move) 
i 

// ELSE IF, it is set to move, 
// Then change the colors and 
sCellColor = XD_gsMoveSelectedColor; 

} 

else 
{ 

// ELSE, set the cell color to not selected 
sCellColor = XD_gsNotSelectedColor; 



if (tag. attributes. folder) 
I 

// SET special graphics and links for folder. 
nDepth++; 

if (tag. attributes. show) 
{ 

if (tag. attributes. move) 
{ • - 

// The folder is open 
sFolderPointer » • <IMG SRC="' + 
XD_gimgOpenFolderPointer + BORDER="0 w >\n t ; 

slconlmage = '<IMG SRC= W • + XD_gimgOp en Folder 
BORDERf-O" ALIGN= w absmiddle n , + n \n\t"+ , HSPACE= ,, 2" VSPACE= M 0" HEIGHT= W 16" 
WIDTH= W 16">' ; 

} . 

else 

{ 
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sFolderPointer = • <A HREF=" javascript : ' + 
sFlipFunction + ' ;"><IMG SRC=" ■ + XD_gimgOpenFolderPointer + • " 
BORDER^'CX/A^n' ; 

slconlmage = • <IMG SRC= W * + XD_gimgOpen Folder + ,M 
BORDER— 11 0 M ALIGN= M absmiddle° ' +"\n\t M + , HSPACE="2 M VSPACE="0" HEIGHT=" 16'* 
WIDTH="16 n > 1 ; 

} 

} 

else 
{ 

sFolderPointer = '<A HREF=" javascript : 1 + sFlipFunction + 
' ;"><IMG SRC="' + XD^gimgClosedFolderPointer + * +"\n"+ • 
BORDER="0 n x/A>\n' ; 

slconlmage = '<IMG SRC=" • + XD_gimgFolder + BORDER="0" 
ALIGN="absmiddle" , +"\n\t ,, + 'HSPACE= M 2" VSPACE= H 0" HEIGHT="16" WIDTH=" 16 w > 1 ; 

} 

} 

else 
{ 

// This is a file and not a folder so show a FILE icon and do not 
show any + or - 

sFolderPointer = ExplorerBlankFolderPointer ( ) ; 

slconlmage = '<IMG SRC=" ■ + XD_gimgFile + BORDER— M 0 w 
ALIGN="absmiddle M '+ ,, \n\t" + , HSPACE="4 n VSPACE= ,, 0"> 1 ; 
} 



if (tag . attributes . size) 
{ 

// SET file size indicator is attribute is present 
fileSize = XDExplorerFont () +tag . attributes . size+ ' k 1 ; 

) 

else 
{ 

fileSize '  '; 

} 

if (tag . attributes . lastModif ied) 
{ 

sDate - tag. attributes. lastModif ied; 

} 

else 
{ 

sDate = •   ' ; 

> 

if (tag .attributes .move) 
{ 

f ileString=* slconlmage; 

> 

else 
{ 

fileString = *<A HREF- 1 * javascript : * + sSelectToggleFunction + 
•;">'+ ' \n' + slconlmage; 
) 

if ( (tag. attributes, folder) I [ ( ! XDAction ( ' Move ' ) ) || 
(tag. attributes. move) ) 
{ 

// ONLY show IF it is (a folder or not in moving) 
// OR the object is question is being moved, 
result += *<A NAME= w • + tag. name + • "></A><TR> B ; 
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result += »<TD BGCOLOR= " 1 + sCellColor + ,M 
valign="absiaiddle"><p> ■ ; 

result += "\n"; 
result += "\n"; 
result += _indent (nDepth) ; 
result += sFolderPointer; 
result += fileString; 
result += XDExplorerFont { ) ; 
result * <FONT SIZE= ,, 2"> , ; 
result tag. name; 
result += '</A></TD>'; 
result += "\n"; 
result += "\n"; 

result += »<TD BGCOLOR=" ' + sCellColor + 
valign="absmiddle"xpXFONT SIZE**^"^ + fileSize + ' </F0NT></TD> • ; 

result += ' <TD BGCOLOR^"' + sCellColor + ,w 
valign=* , absmiddle"xp><FONT SIZE= n 2' t > , ; 

result += XDExplorerFont {) ; 

result += sDate; 

result += "</FONTx/td>\n"; 

result •</TR>'; 
result "\n M ; 

} 

if (tag. attributes. show) 
{ 

for (var i = 0; i < tag. contents . length; i + +) 

if (tag. contents [i] .type == "element") 
{ 

// To sort we simply recursivly call ourselves with 

the next element 

// in the sort order 

result dotag (tag. contents [i] , path, nDepth); 
result += "\n"; 

} 

} 

} 

return result; 



function ExplorerBlankFolderPointer {) 
{ 

return »<IMG SRC— *"/ images/ explorer/f not . gif M WIDTH=15 HEIGHT=15 
BORDER=0>\n l ; 
} 

// returns a true if the tag has any children that are selected 
function XDopenChild (tag, children) 
{ 

var result = false; 

if (children) 
< 

if ( (tag. attributes. selected) I I (tag. attributes .move) ) 

//added so user can close folder if items are selected 
//deselects item in folder if folder is closed 
tag . attributes . select ed=false ; 
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//original 
. return true; 

} 

} 

for (var i = 0; i < tag . contents . length; i++) 
{ 

if (tag. contents [i] .type = "element") 
{ 

if (XDopenChild (tag. contents [i] f 1) ) 
{ 

//added so user can close folder if items are selected 
//deselects item in folder if folder is closed 
grove. index [i] . attributes . selected = false; 
return false; 

//original 
//return true; 

} 

) 

} 

return result; 
} 



function _indent (count) 
{ 

var spaces - ' * ; 
for (i=0; i<=count; i++) 
{ 

spaces += '         ' ; 
} 

return spaces; 
} 

// This is called when a item name is clicked, 
// either flipping it open or closed 

//original johngaa 11/23/99 
//highlight netscape bug fix 
//original function flip (id) 
function f lip (id, xof f set, yof f set ) 

{ 

//johngaa 11/23/99 
//highlight netscape bug fix 
XD_gsYOffset = yoffset; 
XD_gsXOffset = xoffset; 

//end of johngaa add 
XDresetSelected ( ) ; 

// before closing, check to see if it has selected children. 
//If child is selected, then do not allow to close dir. 
if (! XDopenChild (grove. index [id] , 0)) 

if (grove, index [id] attributes, show == 1) 
{ 

grove- index [id] .attributes. show « 0; 

) 

else 
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{ 

grove. index [id] . attributes . show = l- 

} 

> 

Bui IdExplorer { grove , XD_gsRoot Di rectory ) ; 
} 

// This is called when an item icon is clicked, causing 
// it to toggle between selected and not selected 

//original johngaa 11/22/99 

//highlight netscape bug fix 

//function XDselectToggle (id) 

function XDselectToggle (id, xof f set , yof f set ) 

//johngaa 11/22/99 
//highligt bug fix 
XD_gsYOffset = yoffset; 
XD_gsXOffset = xof f set; 
//end of johngaa bug fix 

// Ts r n£ 1° Si: t bUg ^ ^ ±n WS ^ thS err ° r *rove. index 

if (! grove. index) 
{ 

return; 
} 

if (id>=0) 
I 

XDresetSelected ( ) ; 

if (grove. index [id] .attributes. selected) 
{ 



else 
{ 



grove. index [id] .attributes. selected = false; 



XDresetAllSelected ( ) ; 
XD_gnSelectedCount++; t 

grove. index [id] .attributes. selected = true; 
if (grove. index [id] . attributes . folder) 

XD_gnSelectedFolderCount++; 

grove. index [id] .attributes. show = 1; 

else 
{ 

XD_gnSelectedFileCount++; 

} 

) 

} 

else 
{ 

XDresetAllSelected () ; 

} 

//if this is the page generated directly after a login 
//make XDrive the default and select it 

//then reset variable so we no longer select Xdrive as the default 
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if (XD_gnLogin==l) 

r 

grove . index [0] . attributes . selected=true; 
XD_gnLogin=0; 

) 
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h- C ed SVery time the file explorer changes 

//^ * ? T CreateS ' m ° VeS ' deletes and renames 9 
//use a setTxmeout for NS on NT because otherwise the 
//browser crashes if there is no wait period 

//n ?^ Ut r BUildExpl ° rer(grove ' XD gsRootDirectory) - 50)- 
//BuxldExplorer (grove, XD gsRootDirictory) ; CCOry} ' 50) ' 



// function to check to see if the root is selected 
function XDRootSelected() sexected 

if (grove. index fO] .attributes. selected) 

return true; 
} 

return false; 
} 

// This sets a selection to a value 
function XDselect (id, value) 
{ 



// is^not an o^ct^ 9 Wh6re ^ *"* *~ th * grove . index 



if ( ! grove . index ) 
{ 

return; 
} 



if (grove. index [id] . attributes. folder) 

grove. index [id] .attributes. selected = true- 
grove . index [id] . attributes. show = value; ' 

} 

// a? S ^- tS eve ^ thin 9 if so that only one thing can be selected 
// Is LxS^" 111 " 5 "-^P^elect checkbox fro^ltT 

function XDresetAllSelectedO 
{ 

var length = grove . index . length; 
for (var i =0; i < length; i++) 

grove. index [i] .attributes. selected = 0; 

} 

function XDresetAllMovedSelected { ) 

x" Ug^ve^ndfx, " aftSr firSt l0gin COuld not -how X:drive 
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{ 

return; 
} 

var length = grove . index . length; 

var oFrame = XD_goFrameUsageInf o; 
for (var i =0; i < length; i++) 
{ 

grove. index [ i] . attributes. move = 0; 
} 

} 

// resets the number of selected, called by both flip and XDselectToggle 
function XDresetSelected ( ) 
{ 

XD_gsSelectedList = 1 f ; 
XD_gnSelectedCount = 0; 
XD_gnSelectedFolderCount =0; 
XD~gnSelectedFileCount =0; 
XD_gsSelectedFolderList = ""; 

} 

function strip (str) 
{ 

var A = new Array ( ) ; 

A - str. split {"Vn") ; 
str = A. join { ) ; 
A = str. split ( M ") ; 
str = A. join( WM ) ; 
A - str. split ("\t") ; 
str = A. join { " n ) ; 

return str; 
} 

function entity (str) 
{ 

var A = new Array ( ) ; 

A = str. split ("&"); 
str = A. join ("Samp;" ) ; 
A = str. split (-<") ; 
str = A. join ( "&lt ; w ) ; 
A = str. split ( n > n ) ; 
str - A. join("> w ) ; 

return str; 
} 

function synch (prev_grove, new_grove) 
{ 

var prev_tag, new_tag, pi, ni; 
if (! prev^grove) 

//set a flag so we know the first time a user logs in 
//there will be no prev_grove in this one case 

//flag is used to show blue bar on XDrive folder only right after 

logging in 

XD_ gnLogin=l ; 
return; 
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} 

//NS4.05 doesn't like this syntax 

/ /change to new syntax 

//if (! prev_grove. at tributes) 

if (prev_grove . attributes ' = ■ • ) 
{ 

return; 
} 

if (! new__grove. contents) 
I 

return; 
} 

if (prev_grove. attributes. show) 
pi = 0; 

for (var ni = 0; ni < new^grove . contents . length; ni ++ ) 
if (new__grove. contents [ni J .type "element") 
if (prev_grove. contents [pi] ) 
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prev_tag = prev_grove . contents [pi] ; 



if (new_grove. contents [ni] ) 
{ 

new_tag = new__grove . contents [ni J 



exists before checking them 
properties" errors. 



if ((prev_tag) && (new_tag) J 



if (pre v_tag. name new_tag . name) 



prev^grove. con tents [pi] . attributes; 



// Make sure the contents for this object 
//to avoid javascript "has no 
if (prev_grove. contents [pi] ) 

new__grove.contents[ni] .attributes = 

} 



flse if (prev_tag.name > new_tag . name) 
pi++; 

lse 

ni++; 



} 



new_grove. contents (ni ] ); 

} 

pi++; 



synch (prev_grove . contents [pi ] , 
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//saveToXdrive.js 

var win = external .menuArguments; 

ExtMen = external .menuArguments; 
ExtMenTag = ExtMen . event . srcElement ; 
ExtMenDoc = ExtMen . document; 

var url; 

function f indAnchor (el) { 

Wh el e - ( i? 1!=nUll) " "el.tagNameS-A") « (el . href . — ,, ) 
el = el.parentElement; e1, ))} 

return el; 

) 

function findUrlf) ( 
var re; 

var IMGinsideLink = false; 

//alert (-Tag name is V + ExtMenTag . tagName) ; 

switch ( ExtMenTag . tagName ) { 

// if a "LINK", return the link's URL 

case A M : 

url « ExtMenTag. href; 
breaks- 
case "TD" : 

I" ^ wi " • d °cument . selection . createRange ( ) ; 
a ~ f indAnchor {el. parentElement (0) ); 
if (a != null) 
{ 

url = a. href; 
} 

break; 

case "m£ T S an ima9e ' th6n thiS 96tS ^Plicated: 

/ Lr h T C J Xi n kS t0 make sure we aren "t in one: 

if TSLenSLT^ 1 ExtMenDo ^ links, length; counts ) 

IMSns^n^^^r" , - COntainS( E * tMe ^ > > < 

break; 
} 

it t f .TM? G ^ f ° Und ' retUrn the im *3 e URL: 
if ( .'IMGinsideLink ) 

url = ExtMenTag. src; 
else { 

^ url = ExtMenDoc. links ( count ) .href; 
break; 
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default : 

url = ExtMenDoc.href ; 

break; 

) 

// Replace 
re = /%2e/g; 

url = url. replace (re, " ."); 



// Replace ":" 
re = /%3A/g; 

url - url. replace (re, "."); 
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// See if from hotfiles ZD-Net 
if (url .indexOf { "hot files. zdnet") »= -1) 
{ 

var startlndex; 
var endlndex; 

startlndex = url . indexOf ( "ref resh_url=" ) ; 
if (startlndex != -1) 
{ 

startlndex += 12; 

endlndex - url . indexOf ( "&", startlndex); 
if (endlndex -1) 

url = url. substring (startlndex, endlndex); 
) 

) 

// see if from "download.com" C-Net 

else if (url. indexOf { "download. com") != -1) 

{ 

var indexHttp; 
var indexFtp; 

indexHttp = url.lastlndexOf {"http://"); 
indexFtp = url.lastlndexOf ("ftp://") ; 
index = indexHttp; 
if (indexFtp > indexHttp) 
index « indexFtp; 

//alert ( "index is " + index ); 

if (index > 0) 
{ 

var tempUi;l; 

tempOrl = url.substr (index) ; 

url = tempUrl; 

) 

) 



} 

findUrK) ; 

//alert ("begin") ; 
//alert (url) ; 

29 of 76 



236 



WO 01/33381 

// Call x: Drive to perforn, actual copy PCT/US00/30536 

xd_s kip ( url ) ; 
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//securejogin.js 



// 

// Written 12/1/99 

// Description: 

// Allow users to login securely from the start 

// 
// 

function getStateO 
{ 

// 

//return the value of the checked item 

//called by checkSubmit 

// 

var state; 

if (document .Login. bSecurityfO] .checked) 

^ state = document . Login .bSecurity [0] .value; 
} 

else 

{ state = document. Login. bSecurity[l] .value; 
} 

return state; 

} 

function checkSubmit ( ) 
{ 

II . 

// checks if secure toggle button is pressed or not 
// if it is don't allow the submition of the current 
// form but submit the secureLogin form 
// 

if (getStateO "on") 

1 document. secureLogin. user, value = document . Login . user . value ;> 
document. secureLogin. pass .value - document . Login .pass . value; 
document . secureLogin . submit ( ) ; 
return false; 

) 

else 
{ 

return true; 

} 

return false; 

} 

function writeFormO 
{ 

// 

// creates a the secure form 

iir fullHostName = XDGet Full Host Name ( ) ; - 

var cgiAction = -https://" + fullHostName + "/cgx-bm/login.cgi , 

var formStr; 

formStr = "<form name- \" secureLogin \" method- \ "post\ w action-\"; 
formStr += cgiAction; 
formStr +- "\"> n ; 
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fnmCf . „ . PCT/USOO/30536 
formStr += <mput typ e =\"hidd e n\» name=\ »user\ - value=\ »\ "> » ; 

formStr +- »<input type-\»hidden\- naroe=\ " pass \ " value-\-\»>- - 
..l-X^^:;^' ^e^-hiddenN" name=X "Ssecurit^ U> ' 
document .writeln (formStr) ; 

) 

function clickSecureState ( ) 

var tempL = new String (document . location) - 
var start = -1; 

start = tempL. indexOf ("https") ; 

if (start != -1) 

{ 

if (document. Login. bSecurityfO] .value == "on") 
^ document .Login. bSecurity[0] . click ( ) ; 

else 
{ 



^ document . Login . bSecurity [ 1 ] . click ( ) ; 



} 

} 
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//skip.js 

// xd skip: Popup a skip the download window for the X: Drive skip 

// the download service. 

// 

// In ^^ url . the absolute URL of the file to fetch 
// filename : the name to call the stored file 
// file~size ; the file size in KB 
// 

// Outputs: 

var skipPartner; 
var skipLanguage; 
var height = 200; 
var width = 575; 

function xd_change_location (url) 
{ 

document . location=url; 

} 

function xd_skip<file_url, filename, alt_url , catid, gid, sid, langauge, partner ) 
{ 

var base_url = "http://www.xdrive.com/cgi-bin/skip_the_download.cgi"; 

if (! file_name II file_name . length == 0) 
{ 

var ii; 

for (ii=0; ii<= file_url . length; ii++) 

if (file_url .charAt (ii) == V) 
{ 

f ile_name = ' ' ; 

} 

else 
{ 

file_name - file_name + file_url. charAt (n) ; 

) 

} 

} 

var params = w FILEURL= n + escape { file_url ) + 
" & FI LENAME= n + escape ( file — name) + 
M & ALT URL—" + escape (alt_url) ; 

if (langauge) { 

skipLangauge = langauge; 

} 

if (partner) { 

skipPartner - partner; 

} 

if (skipPartner) 
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{ PCT/US00/30536 

? params = params + " & ST DPARTNER= " + escape (skipPartner) ; 

if (skipLanguage) 
{ 

^ params = params + "SLANG^" + escape (skipLanguage) ; 

if (catid) 
1 



} 



params = params + »&CATID=« + escape (catid) ; 



if (gid) 
{ 



} 



params = params + -&GID-- + escape (gid) ; 



if (sid) 
{ 



params = params + »£SID=« + escape (sid) ; 



if (skipPartner ™ • cnet ■ ) 
{ 

height - 235; 
width = 600; 

} 

url = base_url + + params; 

var d = new Date(); 
var name = d.getTime(); 

window. open 
( 

url, 
name, 



); 

return; 
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//skipthedownload.js 

<SCRIPT LANGUAGE-" JavaScript" 

SRO " ht tp : / / www . xdr i ve . com/ j s / s kip . j s " >< / SCRI PT> 
<SCRIPT LANGUAGE=" JavaScript" defer> 

var win - external . menuArguments ; 

ExtMen = external .menuArguments ; 
ExtMenTag » ExtMen . event . srcElement ; 
ExtMenDoc = ExtMen . document ; 

var url; 

function f indAnchor (el) { 

while ((el!-null) && ( (el . tagName ! ="A" ) && (el . href ! " ) ) ) 

el = el .parentElement ; 
return el; 

} 

function f indUrl ( ) { 
var re; 

var IMGinsideLink » false; 

//alert ("Tag name is " + ExtMenTag. tagName) ; 

switch ( ExtMenTag- tagName ) { 

// if a "LINK" , return the link's URL 

case "A" : 

url « ExtMenTag. href ; 

break; 

case "TD": 

var el = win. document . selection ..createRange () ; 
a = f indAnchor (el. parentElement (0) ) ; 
if (a != null) 
{ 

url = a. href; 
} 

break; 

// if it was an image, then this gets complicated: 
case "IMG" : 

// check all links to make sure we aren't in one: 
for { count - 0; count < ExtMenDoc. links . length; count++ ) 
if ( ExtMenDoc. links ( count ).contains( ExtMenTag ) ) { 
IMGinsideLink = true; 
break; 
} 

//if none was found, return the image URL: 
if ( ! IMGinsideLink ) 

url « ExtMenTag. src; 
else { 
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^ url = ExtMenDoc. links { count ).href; 
break; 

default: 

url = ExtMenDoc. href ; 

break; 

) 

// Replace " . " 
re = /%2e/g; 

url = url .replace (re, "."); 

// Replace " : " 
re = /%3A/g; 

url = url .replace (re, "."); 

// See if from hotfiles ZD-Net 

if (url. indexOf ("hotfiles. zdnet") -i) 

var startlndex; 
var endlndex; 

startlndex = url . indexOf ( "refresh url-")- 
if (startlndex != -l) ~ 

startlndex += 12; 

endlndex = url . indexOf ( startlndex); 

if (endlndex !=* -1) 
( 

url = url. substring (startlndex, endlndex); 

) 

} 

// see if from "download.com" C-Net 

else if Curl. indexOf ("download.com") > = -l) 

var indexHttp; 
var indexFtp; 

indexHttp = url . last IndexOf ("http •//») - 
indexFtp - url.lastlndexOf ("ftp-//") • ' 
index = indexHttp; 
if (indexFtp > indexHttp) 
index = indexFtp; 

//alert ( "index is " + index ); 

if (index > 0) 
{ 

var tempUrl; 

tempUrl = url . substr (index) ; 

url = tempUrl; 

) 

) 
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J 

findUrl () ; 
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//alert ("begin") ; 
//alert (url) ; 

// Call X: Drive to perform actual copy 

xd_skip (url) ; 

</script> 
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//submit.js 

* s^^^i^ir^iSroi*:^ 1 th rf e actions — oci-t... with 

* form for server parsing P * * Wlnd ° w or submi t an existing 



if there are errors, give then alert, if not, submit 
function XDCheckFormlnput () 



//make sure user is not allowed to upload a blank file 
if (XD_gsAction == 'Upload') le 

if ^ormL^ X ?-?°^ an,eF ^ leEXPl ° rer • doc ->ent . form upload; 
if (sFormName. file_to_upload_01 .value == • • ) ~ 

alert (XD_gsAlertUploadEmptyFile) • 
return false; 



( 

{ 
} 



} 

//make sure user cannot create a blank file 
else if (XD_gsAction == 'Create') 



sFormName = XD_goFrameFileExplorer . document . form create- 
if (sFormName. sFolderNew. value==' •) "^.create, 



< 

alert (XD_gsAlertCreateEmptyFile) ; 
return false; 

) 

} 

else if (XD_gsAction == 'Rename') 



//^noTaTlo^^^ rename; 
//rina just the file name to compare to what was input 

var lastSlash=sFormName . sltemCurrent . value . last IndexOf ( • / ' ) ; 

code th±S 1S 3 f ° lder ° f user mav «*" file extensions, use this 

,vn o , lf ((parent -P arent - XD ProfileEditExtensions) II 
(XD_gnSelectedFileCount==0) ) ns ' M 

f 

the //allow user to edit extensions so check everything after 

//last slash 
var 

rre^Iue^gth f * temCU " ent ' ^ ' -String ( lastSlash.l .sFormName . 

if (fileName == sFormName. sltemNew. value) 
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{ 

alert ( X D_gs Alert Re name SameName) ; 
return false; 

} 



} 

else 
{ 



as well 



//do not allow user to edit extensions so need to find last 

var lastDot=sFormName . sltemCurrent . value . last IndexOf ( ' . * ) ; 
var 

fileName=sFormName. sltemCurrent. value, substring ( lastSlash+1, lastDot) ; 

if (fileName == sFormName . sit emNew. value ) 
{ 

alert (XD_gsAlertRenameSameName) ; 
return false; 

} 

} 

//check to see if user is trying to name the file/folder nothing 
//give em an error message if so 
if ( s FormNarae . s 1 1 emNew . value == *') 
{ 

alert (XD_gsAlertRenameNothing) ; 
return false; 

} 

} 

else { } 

XD_gsAction = f ' ; 
//sFormName. submit () ; 
return true; 

} 

function XDSubmitView (sFormName) { 

// Always start by checking the status and if the status is not actxve 

then 

// return and do not perform any actions. 

//if (! XDfunctionStatus (parent-parent. XD_TOOLBAR_BUTTON_VIEW) ) 

if (! XDf unctionStatus (XD_TO0LBAR_B0TTON_VIEW) ) { 
return false; 

) 

ivar s Fixed = ' ' ; 

var sFileName = XDSelected ( ) ; 

for (i = 0;i sFileName - length; i++) { 
if (sFileName. char At (i) ~ - ') { 
sFixed f + f ; 

) 

else { 

sFixed += sFileName. charAt (i) ; 

} 

> 

// URL encode/escape string 
sFixed = escape (sFixed) ; 

var sURL - ' /cgi-bin/f ile_load. cgi/ • +sFixed+ • TsFileCurrent-' + sFixed + 
H &source=www. f ileExplorer . view" ; 
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XDReaderShow (sURL, 400, 400) , PCT/US00/30536 

return true; 

} 

// Justin's upload status stuff. 

function openUpload(form_check, *url, name, f) { 

if (i form_check) { 
return false; 

} 

var formJLength = f. length; 
var cnt « 0; 

for {var i = 0; i < f. length; i++) { 
var e = f. elements [i] ; 

if ( (e.type — "file") & & (e . value . length > 0) ) i 
cnt++; * * 

} 

) 

var amp_nof - "&nof="; 
url += amp_nof + cnt; 

msgWindow = 

window.open(url, name, - width-OSO, nei g ht=190, toolbar=no, resize=no, scrollbars=no 
return true; 

) 

function createRandomID () { 

substr_rand_nuni. = new String (Math. random( )) ; 



} 



return substr_rand_num. substring (2, 14) ,- 



function XDSubmitDownload {) 
{ 



// Always start by checking the status and if the status is not 

//i? C ^ V v n r en . ret c rn d ° n0t perform anv actions 0t 

f n ( yn f f u " ctl ° nStat «s (parent .parent .XD TOOLBAR BUTTON DOWNLOAD) ) 
Y (! XDf unct XonStatus (XD_T0OLBAR_BUTTON_DOWNLOAD)") 1 ™- uo " NI ' aAD ' > 



return false; 

) 



var sFileName = XDSelected ( ) ; 

var oDocument = XD_goFrameData . document ; 

var sExtraPath; 

sExtraPath = V+sFileName; 

HTMLGenericStart (oDocument) ; 

mo i-h rt H 0 S^ nt ' Write( ' <f0r,n nan >e="form download" target="u S erData» 
method-POST" action=-/cgi-bin/f ile load.cgi- + sExtraPath 
enctype="multipart/fonn-data">'+"\n")- scxcrapatn + 

value-°:~Na:i^^M; nPUt tyPe =" hIdden " name-sFileCurrent" 
oDocument . write ( * <input tvnp= n hiHHon« „ . 

oDocument . write ( • <i n ? u t ^"h^dde^ na a :::..: o ^ e r alUe =" dOWnload "> ' > ' 

value=-www. f ileExplorer. download"^ ) ; source 
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oDocument. write (»<input type-" hidden" name= rt sFolderCurrent" value= Wf + 
XDSelectedFolder () + ' M > 1 ) ; 

//johngaa test add 12/2/99 
oDocument .write ( 1 </f orm> ' ) ; 
//end of johngaa add 
HTMLGenericEnd ( oDocument ) ; 
oDocument . forms [0] . submit ( ) ; 
return true; 

} 

function XDSubmitNewFolder (sFormName) 

var sNewFolderName - prompt (XD_gs Re name Prompt ) ; 
XDFormSetGeneric (sFormName) ; 

XDFormSetFolderNew( sFormName, sNewFolderNaroe ) ; 
sFormName . submit ( ) ; 

) 

/ * XDItemDelete: Delete an item (no prompting here) 



function XDItemDelete ( ) 
{ 

var sFileName = XDSelectedList ( ) ; 
XDFormSetGeneric (sFormName) ; 
XDFormSetThingName (sFormName) ; 
sFormName . submit ( ) ; 

) 



* XDSubmit Delete: Verify they can delete the selected item and then 

* redirect to a web page that will prompt them to delete. 

****************** 



function XDSubmit Delete (sFormName) 

if ( ! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD_gsAlertDeleteFolder) ; 
return false; 

} 

location - "delete_prompt.html"; 
return true; 

} 

function XDBufferChange (sFormName, s Type) 

{ //We popup a new window for them to select a folder from 

XDFormSetBuf f erAction (sFormName, sType) ; 
parent . parent . XDopenFolderSelectWindow ( ) ; 
XDFormSetSelectedFiles (sFormName) ; 

} 

function XDSubmitBuf f erChange (sFolderTo) 

{ // This method is being access across frames so we cannot easily pass 

the form name . 

// so instead we set a variable equal to what the ob}ect would have 

been » 

sFormName « window, frames [XD_gsControl Frame] .document . form_buffer ; 
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XDFormSetGeneric (sForraName) ; 

XDFormSetFolderNew (sFormName, sFolderTo) • 
^ sFormName . submit ( ) ; 

function XDSubmitMove (sFormName ) 

XDFrameMove ( ) ; 
^ BuildExplorer (grove, XD_gsRootDirectory) ; 

-d;:;;;;;^^ — 

function XDReaderShowJsURL, nHeight, nWidth) { 

nWidth = 500; 
nHeight = 600; 

var r = window.open (sURX, "reader", "location-no, toolbar=no, menubar=no, - + 

"status=no,resizable=yes, scrolling=yes, scrollbars=yes, "+ 

"width=-!+nWidth+»,height=»+nHeight) ; 

//*** make sure the opener knows who the parent i 
lf (r- opener == null) r. opener = self; 

//*** focus on the newly created window 
//r. focus () ; 

) 

function FrameObj ect ( ) 



s 



} 



return XD_goFrameFileExplorer. document; 



function HTMLGenericStart (oDocument) 

oDocument . open ( "text /html") ; 
oDocument . write ( ' <html> • ) 
oDocument .write ("<head>\n") ; 

type=.t 0 J;tX e ?;Xn»'r r<li ^ "^^""^ href =■ /css/style_back. ess • 
oDocument . write ("<:/head>\n") ; 

^ oDocument .write < f <tablextr> f ) ; 

function HTMLGenericEnd (oDocument) 

oDocument . write { ' </table> ' ) ; 

oDocument . write ( , </body>' + "\ n ") ; 

oDocument. wri te { •</html> , +"\n") ; 
^ oDocument . close { ) ; 
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function XDBuildForm ( ) 
{ 

var form = 1 ' ; 

var sSubmitButton = ' /images /submit . gif ' ; 

i f ( XDAct ion { • Move • ) ) 
{ 

form += '<form name= w f orm_buf f er" action=" /cgi- 
bin/buf f er_paste . cgi n 1 + 

' method= w POST M target="centerview" ■ + 
• parent . parent . parent . XDReset ( ) ; "> 1 + " \n n ; 
f orm ' +- '<input type="hidden" name="sFile" 
valuer" 1 +XD_gsMoveSelectedList+ • M > ' ; 

sSubmitButton = ' /images /move . gif ■ ; 
XD_gnFrameHeight = '40'; 

} 

form '<input type=" hidden" name="sFolderCurrent" value= ,M + 
XDSelectedFolderO + ■">•; 

form += »<input type- "hidden" name-" type" value= w move B > • ; 
form += '<input type= n hidden" name="sItemCurrent " value="">* ; 
form -f= '<input type=" hidden" name= ,, sFolderNew w value="">'; 

form += '<p><INPUT TYPE="button n VALUE=" ' + XD^gsButtonSubmit + 
onClick="parent . parent . parent . XDSetMoveForm ( document . forms [0 ]);">' + 

•<INPUT TYPE="button" VALUE=" 1 + XD_gsButtonCancel + 
onCl ick="parent . parent . parent . XDReset ( ) ; 
parent . parent . parent .XDRef reshExplorer <);">' + 
•</td>' ; 
form += , </form>'; 

return form; 

} 

function XDSetMoveForm (oForm) 
{ 

oForm.sItemCurrent -value = XDSelectedToMove ( ) ; 
oForm. sFolderNew. value = XDSelectedFolderO; 

// adding check for target folder 

if <XD_gsSelectedFolderList . length > 0) 

'//check to see if the user is attempting to. move the file into 
//the folder it is already in - can't do that 
var slash=oForm.sItemCurrent. value. lastlndexOf <"/") ; 
var fileDirectory=oForm.sItemCurrent . value. substring(0, slash) ; 

if (oForm. sFolderNew. value f ileDirectory) 
{ 

alert (XD_gs Alert Move Same Folder ) ; 

} 

else 

// makes sure that the target is not the same as 
// source 

if (oForm. sFolderNew. value — oForm. sit emCurrent .value) 
{ 

alert { XD_gsAlertNoTarget Folder ) ; 

) 

else 
{ 
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the file reSSt ^ SUbmlt form onl V they can actually move 

XDResetO ; y ^ dial09 W3rnin 9 *»OX 

oForm. submit () ; 
} 

} 

} 

else 
{ 



^ alert (XD_gsAlertNoTargetFolder) ; 



} 



function XDFormSubrait But tons (generic) 

var HTMLString = ' » ; 
var FormString = » f ; 
var TotalString = ' r ; 

/ / Grab the appropriate HTML 
if (XDAction ( ■ Move ■ ) ) 

if (XD_gbExtraHelp> 

HTMLString = XDHelp (XD_gsHelpMoveHTML) ; 

FormString = XDBuildForm ( ) ; 
^ return HTMLString + "</TDx/TR><TR><TD>» + FormString; 

else if (XDAction ( 'Rename' ) ) 

if (XD_gbExtraHelp) 
{ 

HTMLString = XDHelp <XD_gsHel P FolderRename) ; 

} 

else if <XD_gbExtraHelp) 



if (XD^gnSelectedCount > 0 && ! XDRootSelected ( ) ) 

if (XD_gnSelectedFileCount ) 
{ 

^ HTMLString - XD_gsHelpFileSelected; 

else 
{ 

^ HTMLString = XD__gsHelpFolderSelected; 

} 

else 
{ 

if (XD_gsFirstTime ) 

{ . 

^ HTMLString = XD_gsHelpFirstTimeEnter; 

else 
{ 

^ HTMLString = XD_gsHelpEnter; 
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// Format the help box 
HTMLString = XDHelp (HTMLString) ; 

} 

if ( ! generic) 
{ 

var sSubmitButton; 

sSubmitButton - ' /images /submit . gif ' ; 
i f (XDAction { ' Rename • ) ) 

sSubmitButton =» XD_gsButtonRename; 
lse if (XDAction ( 'Upload' ) ) 

sSubmitButton = XD_gsButtonOpload; 
lse if (XDAction ( 'Create' ) ) 

sSubmitButton = XD_gsButtonCreate; 
ilse if (XDAction ( 'Delete' ) ) 

sSubmitButton = XD_gsButtonDelete; 

return ■ <p>< input type="submit " value=" • +sSubmitButton+ 1 ">\n ' + 
•<input type=button value-"' + XD^gsButtonCancel + 

onclick="'+ tx . 

' parent . parent . parent . XDReset ( ) ; + 

'parent .parent . parent .XDRef reshExplorer ( ) ; »>\n</FORM> ' ; 

> 

TotalString = HTMLString + FormString; 
return TotalString; 

} 



function XDHelp (sHelp) 
{ 

return 
+ ' " col span= 

color= ,, #666666 w ><b> , + XD_gsInstruct 
} 



•<trxtd height-50 bgcolor="' + XD_gsExplorerHelpBackgroundColor 
=3 valign=top><FONT FACE="arial, helvetica" size-"-l" 
66"><b>' + XD gslnstructions + '</b>\n' + sHelp + '\n</tdx/tr> ; 



* XDFrameShare : Share a file with another user 

^^^^^^^ A a**** + + + **** + + * + + * + *******************'**/ 
♦♦A**************************************** 

function XDFrameShare ( ) 
{ 

//if ( ! XDf unctionStatus (parent .parent .XD_TOOLBAR_BUTT0N_SHARE) ) 
if (! XDf unctionStatus (XD_TOOLBAR_BUTT0N_SHARE) ) 
{ 

return false; 
} 

var sFile » XDEscapeCharacters (XDSelected ( ) ) ; 
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frames [ • centerview • ] . document . location - ' /cai- 
bin/share_a_file.cgi?help= l + 

XD_gbExtraHelp + • &sFileName=' + sFile; 
return true; 

} 

function XDCheck (sName) 
{ 



} 



return "if (! XDAllowChange ( "+sName+ " ) {return false;)"; 



function XDSelectedThingName ( ) 
i 

var r = » ' ; 

var s = XDSelectedO ; 

for (var i=0; i<s . length; ++i ) 

var ch=s.charAt (i) ; 

if (ch = * /• ) 

{ 

r = "; 

} 

else 
{ 

r += ch; 

> 

} 

return r; 

} 

function XDSelectedThingNameMinusExtension ( ) 
var r = • • ; 

var b = false; // found first time 
var s = XDSelectedThingName () ; 
for (var i=s . length; i>=0; — i) 
{ 

var ch=s. charAt (i) ; 
if (ch =='.'&& > b) 
{ 

b = true; 
r = 

} 

else 
{ 

r = ch + r; 

} 

} 

return r; 

} 

function XDSel ec tedThingNameExt ens ion ( ) 
var r = • • ; 

var s = XDSelectedThingName () ; 

var bFoundDot = false; 

for (var i=0; i<s . length; ++i) 

var ch = s.charAt(i); 

if (ch == • . ■ ) 

{ 

r - ••; 

bFoundDot = true; 
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} 

else 
< 

r += ch; . 

) 

if (bFoundDot — true) 
return ' . ' +r ; 

else 

return ' 1 ; 

} 

* XDFrameUpload: Refresh the action frame with a form to perform the file 

* upload and set the form values during the HTML creation itself. 

+ + + + + + + + + + + * + + + + + + + + + + + + + + + + * + + + + * + + * + * + + * + * + + + 

function XDFrameUpload ( sCurrentFolder) 
{ 

//if ( ! XDfunctionStatus (parent .parent . XD_T<X>LBAR_BUTTON_UPLOAD) ) 

if (! XDfunctionStatus (XDJTO0LBAR_BUTTON_UPLOAD) ) 

{ 

return false; 

} 

XDActionStart ( 1 Upload' ) ; 
XD_gnFrameHeight ~ ' 1 ' ; 

frames [ 1 centerview * ] . document . location = XDCenterView () ; 
return true; 

} 

function XDFrameFolderNew () 
{ 

//if ( ! XDfunctionStatus (parent .parent .XD_TOOLBARJBUTTON_NEWFOLDER) ) 

if ( ! XDfunctionStatus (XDJTCX)LBAR_BUTTON_NEW FOLDER) ) 

1 

return false; 

} 

XDActionStart ( ' Create ■ ) ; 
XD_gnFrameHeight = ' 1 ' ; 

frames [ 'centerview' ] . document . location = XDCenterView {) ; 
return true; 

} 

function XDFrameRename {) 
{ 

if ( ! XDAllowChange (XDSelected ( ) ) ) 
{ 

alert (XD_gsAlert Rename Folder) ; 
return false; 

) 

//if { ! XDfunctionStatus (parent .parent .XD_TOOLBAR_BUTTON_RENAME) ) 

if (! XDfunctionStatus (XD_TOOLBAR_BUTTON_RENAME) ) 

{ 

return false; 

) 
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XD _9nFrameHeight = 

«S™ I ;^^ iaW ' 1 -* CWnt - 10Catlon = interview {); 

} 

function XDFrameDeletePrompt ( ) 

if (! XDAllowChange(XDSelected())) 

alert (XD^gsAlert Delete Folder) ; 
^ return false; 

return false; 

> 

XDActionStart ( f Delete • ) ; 
XD_gnFrameHeight -= ' 1 ' - ' 

) 

* XDsetSelectedToMove: takes all fiiir*^********************************* 

* their move attribute th3t 3re cur ^ntly selected and sets 

function XDsetSelectedToMove (tag) 

if (tag. attributes. selected) 

tag. attributes. selected = 0; 
tag. attributes. move « 1; 



for (var i = 0; i < tag. contents . length; ± ++) 



if (tag. contents [i]. type == "element") 



^ XDsetSelectedToMove (tag. contents [i] ) - 

} 

} 

function XDFrameMove ( ) 
f 

if ( I XDAllowChange (XDSelected ( ) ) ) 

alert <XD_gsAlertMoveFolder) ; 
return false; 



// XXX 

XD_gsMoveSelectedList = XD gsSelectedList ; 
XD_gsSelectedList = ww ; ' 

XDsetSelectedToMove (grove) ; 
XDActionStart ( 'Move ? ) ; 
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XD_gnFrameHeight = ' 1 ' ; 

frames [• centerview' ] .document . location « XDCenterView ( ) ; 



return true; 



* XDBrowserDownloadSupported: Returns true if the browser supports the 

* download button. This includes all Netscape versions and IE 5 or later. 

function XDBrowserDownloadSupported ( ) 
{ 

return !( (navigator . appName == "Microsoft Internet Explorer") && 
(parselnt (navigator .appVersion) 4 )); 

} 

function XDProf ile ( f orm) 
{ 

XDProf ileEditExtensions - form. elements [' bFileExtEdit ' ] .checked; 
XD_gbExtraHelp = form, elements [' bExtraHelp ' ]. checked; 
XD_gbMarketing « form, elements [ • bMarketing 1 ]. checked; 
XD_gbNewsletter = form. elements [' ©Newsletter 1 3 . checked; 

) 

function XDLogout ( ) 
{ 

var sUrl = * /cgi-bin/logout . cgi * ; 
parent. parent. location. href - sUrl; 
} 

/************************* *******^^ 
* 

* XDSelected: Return the currently selected file or folder and remove the 

* plus that appears at then end — used the separate elements in a multi 

* file/folder list. 

***★** + **** + + ******** + ****** + + ***** + ******** *** + +■**■*■*■******■**■* * + + + 

/ 

function XDSelected () 
{ 

return XD_gsSelectedList . substring (0, XD_gsSelectedList ; length-1 ) ; 
) 

function XDSelectedFolder ( ) 
{ 

alert (XD_gsLengthof Folder + XD_gsSelectedFolderList . length) ; 
return 

XD_gsSelectedFolderList . substring ( 0 , XD_gsSelectedFolderList . length-1 ) ; 
} 

function XDSelectedToMove ( ) 
{ 

return 

XD_gsMoveSelectedList .substring (0 f XD_gsMoveSelectedList . length-1) ; 
} 

/*************#*****************^^ 

* XDCleanupPath: Cleanup the passed path by removing the "/Xrdrive/" prefix 

* and the + postfix. 
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function XDPathCleanup (sPath) 
var sCopy = sPath; 

sCopy - sCopy.substring(9,sCopy. length) 
//sCopy - sCopy. substring (0, sCopy. length-1 ) • 
return sCopy; y ' ' 

} 

function XDDomain () 
{ 

^ baseAddress = java . net . InetAddress . getLocalHost ( ) • 
userDomain - baseAddress . getHostName\ ) ; ' ' ' 

alert (userDomain . toString ( ) ) ; 

function XDXdrive () 
{ 

XDDomain { ) ; 

return • /cgi-bin/explorer_user_data . cgi ' ; 

function XDCenterView () 
{ 

return '/cgi- 

& n ££2»j£?£ ; • ^^-^"i- thtl &SFr a m eHe ight = . + 

} 

function XDReset {) 
{ 

x *>_gnSelectedCount = 0; 
XD_gnSelectedFileCount = 0; 
XD_gnSelectedFolderCount - 0; 
XD_gsSelectedList « ""; 
XD_gnSelectedFolderID = ••; 
XD__gsMoveSelectedList « 
XD_gsSelectedFolderList = ""; 
XD_gsTarget Folder = r,w ; 
ControlsEnabled = true; 

XDresetAllMovedSelected ( ) ; 

XDActionEnd() ; 

) 

function XDAllowChange (sFolder) 
< 

- -private . ( ) F ° lder " " " SFOlder " " «' - .public ,| sFolder 

{ 

return false; 
} 

return true; 
> 

function XDAction (sAction) 
{ 

if (XD_gsAction == s Act ion) 
{ 

return true; 
} 

return false; 
} 
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// Register a new action 
function XDActionStart (sAction) 
{ 

XD_gsAction - sAction; 
} 

// Clear the current action 
function XDActionEnd () 
{ 

XD_gsAction = ' 1 ; 
} 

function XDRef reshExplorer ( ) 
{ 

//reset the action before calling this function 
//or the action screen will be drawn 
XDActionEnd () ; 
XD_gnFrameHeight = '40'; 

//also reset if a move has been started but never finished 
XDresetAllMovedSelectedO ; 

frames [ * centerview 1 ] . document . locat ion=XDCenterView ( ) ; 

} 

function XDGetButtonFrameHeight (oDocument) 
{ 

oDocument. open ("text /html") ; 

oDocument . write (XD_goButtonFrameHeight ) ; 

oDocument . close; 

} 

function XDSetButtonFrameHeight (height) 
{ 

XD_gnBut tonFrameHeight=height ; 

} 

/**************************** ***********************^ 

** XDRef reshBanner: Refresh the banner with a new advertisment . 
****************************************************************** 

function XDRef reshBanner ( ) 
{ 

if (XDBannerOnO ) 
{ 

frames [ f banner * ] * document . location = • /cgi-bin/ads . cgi * ; 
// WIP: parent 3 twice removed (from the above line) 
} 

) 

/**************************************************************************** 
** XDBannerOn: Return true if we should display the banner. 

****************************************************************************/ 

function XDBannerOnO 
{ 

if (XD_ gsPartner == 'xdrv') 
{ 

return true; 

} . 

else 

{ 

return false; 
} 

) 
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function XDTellAFriend ( ) 

var sUrl « • /cgi- 

bin/tell a fr^nd.cgi ? numFriends = ' + XD_gn N umFriend S ToTell; 
f rames [' centerview' ]. document . location-sOrl; 



function XDAddSpace{) 
{ 



frames [ 'centerview • ] . document . location=sUrl; 



f unction XDDownloadClient ( ) 



var sUrl = Vcgi-bin/download client. cgi' ; 
frames [ 'centerview'] .documentTlocation-sDrl; 



SDOCID: <WO 0133381A1JA> 



259 



52 of 76 



WO 01/33381 

//upioadStatus.js 



PCT/USOO/30536 



function openUpload ( f orm_check, url, name, f) { 

if (! form_check) { 
return false; 

} 

var f orro__length = f. length; 
var cnt = 0; 

for (var i = 0; i < f- length; i++) { 
var e = f. elements [i] ; 

if ( (e.type == "file") && (e . value . length > 0) ) { 
cnt++; 

} 

} 

var amp_nof = "&nof="; 
url += amp_nof + cnt; 

msgWindow = _ 
window. open ( url , name, • width=350, height=190, toolbar=no ; resize=no, scrollbars-: 

*); 

return true; 



function createRandoralD () { 

substr_rand_num = new String (Math . random ()) ; 

return substr rand_num. substring (2 , 14 ) ; 



. //--> 



i 
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//utilsjs 



* XDFormSetThingName: Set the 



for the thing in the passed foi 



function XDFormSetThingName (sFormName) 

sFormName. sThingName. value = XDSelectedList < ) ; 

function XDFormSetBuf ferAction (sFormName, sType) 
sFormName. type. value = sType; 

function XDFormSetFolderCurrent (sFormName) 

sFormName. sFolderCurrent. value = XDSelectedFolder ( ) ; 

function XDFormSetSelectedFiles (sFormName) 

sFormName. sFile. value = XDSelectedList () ; 

function XDFormSetFolderNew (sFormName, sFolderNameNew) 
sFormName. sFolderNew. value = sFolderNameNew; 



* XDFormSetThingOld: Set the old name attribute for the rename err 

function XDFormSetThingOldfsFormName, sThingName) 
sFormName. sThingNameOld. value = sThingName; 



* XDFormSetThingNew: Set the 



new name attribute for the rename CGI 



function XDFormSetThingNew(sFormName, sThingName) 
sFormName. sThingNameNew. value = sThingName; 

function XDFormSet Generic (sFormName) 

XDFormSetFolderCurrent (sFormName) ; 



+ ***************** 

* XDPopupShow: Show a popup browser 



function XDPopupShow ( 

sURL ,//*** (I) The URL to open in the popup window 
nHerght, //*** (i) The height of the popup 
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nWidth) //*** (I) The width of the popup 
{ 

var w = window. open(sURL, "viewer", "location=no, toolbar=no, menubar=no, " + 
"status=no, resizable=yes, scrolling=yes , scrollbars=no, " + 
"width= n +nWidth+", height="+nHeight ) ; 

//*** make sure the opener knows who the parent is 
if (w. opener — null) w. opener = self; 



//*** focus on the newly created window 

w. focus { ) ; 

) 

function XDSelectedList ( ) 
{ 

return XD_gsSelectedList ; 
} 



function XDBackgroundColor ( ) 
{ 

return XD_gsExplorerBackgroundColor; 
} 

function XDBackgroundlmage ( ) 
{ 

return XD_gsBac kgr oundlraage ; 
> 



function XDSelecteciFolder ( ) 
{ 

return 

XD_gsSelectedFolderList .substring (0, XD_gsSelectedFolderList . length-1) ; 
} 

/*********************************************** ***************************** 

* XDCleanupPath: Cleanup the passed path by removing the "/X: drive/" prefix 

* and the + postfix. 

****************************************************************************/ 
function XDPathCleanup (sPath) 
{ 

var sCopy = sPath; 

sCopy = sCopy. substring (9, sCopy. length) 

//sCopy = sCopy. substring (0, sCopy. length-1) ; 
return sCopy; 

} 

function XDMultiSelect (sValue) 
i 

if (sValue != 'null 1 && sValue != "") 
< 

m_sMultiSelect = sValue; 
} 

else 

{ 

return m_sMultiSelect ; 
) 

} 

function HTMLNavigation () 
{ 

var sHTML =* HTMLStart() 

+'<table width="100%" border="0" cellspacing= H 0 M 
cellpadding= "0 n >' 
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+j<tr align-"left" valign="top" bgcolor= M #5EB114 "> ' 
height="28 w ></td>' <td><im9 Src= " /ima 9 es/main/lo 9°- to P- 9if M width=»153" 
+ '</trxtr> ! 

. . » ..^ +'<tdximg src="/images/main/logo center.gif" width="171" 

hexght="97" alt = "X: drive"x/td> B 
+ , </trxtr>» 

. +,<td><im( 3 src=Vimages/main/race logo bottom.gif" 
width="171" height="35"x/td> ' ~ 

+ , </trx/table>' 

+'<a target="toolbar" href ="http: //www. mit . edu">MIT</a> • 

+ ' </BODY>\n</HTML> ■ ; 
return sHTML; 
} 

function HTMLStart () 
{ 

return °<HTML>\n" 

+'<body bgcolor=»#6961AB» topmargin="0" lef tmargin="0" marginheiqht=»0 » 
margxnwidth="0" text="#FFFFFF" 1 ink= " # FFFFFF " {onload}>» 
+"\n"; 
} 

function HTMLEnd () 
{ 

return "\n</BODY>\n</HTML>\n" ; 
} 

function RedrawToolBar ( ) 
{ 

var sWindow = 'window. toolbar ' ; 

sWindow. document . write {HTMLStart ( ) + • test • +HTMLEnd ( ) ) ; 

function XDEscapeCharacters (str) 

var A = new Array () ; 

A = str. split ("+"); 
str = A. join ( "%2B M ) ;. 

A = str .split (" ") ; 
str = A„ join ( w +" ) ; 

A « str. split ("%") ; 
str = A. join ( w %25") ; 

A = str. split <"&") ; 
str = A. join { "%26" ) ; 

return str; 
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*** Javascript library of functions commonly 

*** used in HTML forms. 



validateForm(form) 

attaches to the submit button and takes the 
form as an argument. Validates all the 
fields and will only let the form be submitted 
if all the fields validate. 

checkForm( ) 

attaches to nothing. Is used by the script 
internally to allow compel { ) to function w/o 
calling alert () , which would cause an infinite 
loop. 

requireElements (num) 

attaches to onLoad to initialize the array 
of required fields in the form. 

addRequiredElements ( ) 

attaches to nothing. Is used internally to 
construct a array of the names of all the 
required fields in a form. For this to work 
the form needs a "requiredElements" hidden 
input tag. It should be of this format: 

<INPUT TYPE="hidden" NAME=" requiredElements" VALUE=" name : email : "> 

List the required field names in order that 
they appear in the form. End each name with 
a 1 : f and lead the whole value with a blank 
space. If this tag is not used, then 
validateRequiredElements will identify a 
missing required field by its number in liue 
of the name- 
compel (text field) 

attaches to an onBlur event on a textfield. 
This causes focus to be kept on a textfield 
until checkFormO determines that they user 
has filled it out correctly. 

required (textfield, num) 

attached to an onBlur of a field is required. 
The number is it's location on the 
required^ elements array, i.e. 

<INPUT TYPE="text" NAME="name" onBlur= "required (this, 0)"> 

This tag declairs "name" as the first 
required field in the form. 

validatePhone (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
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textfield is blank or contains only 
0-9, (, or ) y 

validateEmail (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains an @ 

validateDate (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a date in 
the format DD-MON-RRRR 

validateDatejDld (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a date in 
the format DD/MM/YY 

validateNum (text field) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a number 
between -1 and infinity 

validateMoney (textfield) 

attaches to an onChage of a textfield. This 
function validates to true only if the 
textfield is blank or contains a number 
between with two decimal places (ie 2.56) 

confirmDelete (text field) 

attaches to an onClick on a submit button 
used as a delete button that you want the 
user to confirm before engaging. 

reset_b{) 

attaches to an onClick on a submit button. 
If you have a reset button, used confirmDelete 
or have a button that needs to override the 
validity of the form, this function should 
be attached to these buttons to allow them 
to function. 



emailOK « true; 
phoneOK = true; 
dateOK = true; 
lengthOK = true; 
all_numOK = true; 
all_moneyOK = true; 
deleteOK = true; 
yearOK - true; 

required_elements = new ArrayO; 

required_elements_names = new ArravM • 
blurred = 

in_required = false; 
submitted = false; 
var submitCount; 
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function val idate Form ( form) { 
addRequiredElements (form) ; 
if (!emailOK) { 

alert (XD_gsValidateEmail ) ; 

return false; 
} else if ( IphoneOK) { 

alert (XD_gsValidatePhone ) ; 

return false; 
} else if < IdateOK) { 

alert (XD_gsValidateDate) ; 
return false; 
} else if (llengthOK) { 

alert {XD_ gsValidateLength) ; 

return false; 
} else if <!all_numOK) { 

alert (XD — gsValidateNumber ) ; 
return false; 
} else if { !all_moneyOK) { 

alert (XD_gsValidateMoney ) ; 
return false; 
) else if (iyearOK) { 

alert (XD_gsValidateYear ) ; 
return false; 
} else if (ideleteOK) { 

return false; 
} else if { ! validateRequiredElements ( ) ) { 

return false; 

} 



function compel (textfield) { 
if (blurred — { 

blurred = textfield; 

} 

if ( ! checkForm ( ) ) { 
blurred. focus ( ) ; 
blurred. select () 

) 

if ( checkForm () && ! in_required) { 
blurred = w "; 

} 

) 



function checkForm ( ) { 
if ( lemailOK) { 

return false; 
} else if ( IphoneOK) { 
return false; 
} else if ( JdateOK) { 

return false; 
} else if ( IlengthOK) { 

return false; 
} else if ( !all_numOK) { 

return false; 
} else if ( ! all_moneyOK) { 

return false; 
} else if ( iyearOK) { 

return false; 
) else if ( IdeleteOK) { 
return false; 
} else { 

return true; 
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} 



function requireElements(num) { 
var i; 

for (i=0; i < num; i++) { 

^ required_elements[i] = false; 

} 

function addRequiredElements(form) { 
var found = false; 

for (var n=0; n < form. length; n++) { 

lf (f °™- e i ements tn].name "requiredElements") { 
round ~ true; 

} 

} 

if (found) { 

var length = form. requiredElements . value . lenqth • 
var start_index - 0; ^e.iengtn, 

var end_index = 0; 
var num = 0; 

for (var i-0; i < length; i++) { 

IV ( SIS" ZJ^I r t qU±redElementS • ^ • charAt ( i ) ; 

start^index = end_index + 1; 
end_index =* i; 
var string = 

form. requiredElements. value, substring < start_index, end index); 

num = requxred_elements_names. length? 
required^eleroents^naraes [num] « string; 

} // end of if " : » 
) //end for loop 
} // end of found 



yearOK = true; 



//make sure the file contains only numbers 
for (var n=0; „ < textfield. value. length; n++) 

var theChar = textfield. value. charAt (n) ; 
x£ ((theChar >= »0") && (theChar <= "9")) 

//do nothing, assume it's still true 



} 

else 
{ 



//contains non numeric elements 
yearOK=false; 



} 

if (.'yearOK) 
{ 
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if (textfield. value < 1900) 
{ 

yearOK - false; 

alert (XD_gsValidateGreaterl900) ; 

} 

if (textf ield. value. length != 4) 
{ 

yearOK = false; 

alert (XD__gsValidateFour Digits) ; 

} 

} 

/ / Checks for a properly formated email 

function validateEmail (textf ield) 

{ 

emailOK = true; 

if ( (textf ield. value "") I t (textf ield. value . indexOf ( "@") < 0) ) 
{ 

emailOK - false; 

alert (XD_gsValidateEmailFormat ) ; 
return false; 

} 

return true; 
} 

function required(textf ield, num) 
{ 

var alert_show = false; 
in_required - true; 
if (blurred == "") 

{ 

alert_show = true; 
blurred = textfield; 

} 

if (textfield. type == "select-one") 

//if the first option is chosen, assume that is not a real 

//choice, simply a default 

if (textfield. selectedlndex ==< 0) 

{ 

if (alert_show) 

alert (XD_gsValidateField + textf ield. name + 
XD_gsValidateRequired) ; 

} 

blurred . focus ( ) ; 

blurred . select ( ) ; 

required_elements [nural — false; 
)//end if selectedlndex empty 
else if (textfield. selectedlndex > 0) 
{ 

blurred « 

required_elements[num] = true; 
in_required =* false; 
}//end else 
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if (textfield. type == "text" m t^vt-^^i^ *. 

• , * Jh utrxc \ | textfield. t VDe == "tpyt-sroa" i i 

textfield. type "password") yF cextarea 11 

{ 

if (textfield. value. length==0) 

if (alert show) 
{ 

XD.gsValidateRequired?;^^ 0 - 95 ^ 1 ^^^ 1616 + d.name + 

}//end alert_show 

blurred. focus { ) ; 

blurred . select ( ) ; 

required_elements[num] - false; 
} //end if length empty 

else if (textfield. value. length > 0) 
blurred = " " ; 

required_elements [num] = true; 
in_required - false; 
}//end else 
} //end if text 

} 



function validateRequiredElements ( ) { 

var length = required_elements . length; 

for (var i - 0; i < length; i++) { 

if ( ! required_elements [i] ) { 

if (required_elements_names [i] *») { 

vn w i-^ alert(XD -9 sVali <*ateAllRequiredField + i + 
XD_gsValidateNotFilled) ; 

return false; 

} else { 

JiJ™™2?iSr a - ei ~" t3 - naaie3 1:11 + XD ^ sVali ^teNotFilled) ; 

} 

) // end of false element 
) // end of array 
return true; 

) 

function validatePhone ( textfield) { 
phoneOK=t rue ; 
var digits = 0; 



for (var i - 0; i < textfield. value. length; i++) { 
var theChar = textfield. value. charAt(i); 
if ({theChar >= »0") (theChar <= "9")) { 

digits++; 1 

continue; 

} 

if (theChar == » ») continue; 
if (theChar — »-») continue; 
if (theChar == "(») continue; 
if (theChar == ")-) continue; 

//else 



ers 
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phoneOK = false; 
} //end for 

phoneOK = phoneOK && (digits — 10); 
if (textfield. value == "") { 
phoneOK = true; 

) 

if (! phoneOK) { 

alert (XD_gsValidatePhoneFormat ) ; 

} 

return phoneOK; 



//Check that the date is in the form of DD-MON-YY 
function validateDate (textfield) { 
dateOK=true; 

if ( (textfield. value. charAt (0) > "3") II (textfield. value . charAt (0) < 



•0")) 



•0") ) 



"0") ) 



"0") ) 



•0") ) 



< "0") 



dateOK=f alse; 

if ( (textfield- value. charAt (1) > "9") It (textfield. value. charAt (0) < 
dateOK=false; 

if ( (textfield. value. charAt (7) > "9") II (textfield. value . charAt (7 ) < 
dateOK=false; 

if ( (text field, value. charAt (8) > "9") || (textfield, value. charAt (8) < 
dateOK=f alse; 

if ( (textfield. value. charAt (9) > "9") II (textfield. value . charAt ( 9) < 
dateOK=f alse; 

if (( textfield. value. charAt (10) > "9") II (textfield. value . charAt ( 10) 
dateOK=f alse; 

if (textfield. value. charAt (2) != "-") { 
dateOK=false; 

if (textfield- value. charAt (6) != "-") { 
dateOK=f alse; 

var month = textfield . value . substring (3, 6) ; 
month = month. toUpperCase () ; 

if (! (month == "JAN" II month "FEB" II 



month == "MAR" 
month == "MAY" 
month — "JUL" 
month == "SEP" 
month == "NOV" 
dateOK- false; 



| month 
I month 
I month 
I month 
I month 



"APR" I I 
"JON" | | 
"AUG" I I 
"OCT" I I 
"DEC") ) { 



> 



if (textfield. value ™ "") { 
dateOK = true; 

} 

if (! dateOK) { 

alert (XD__gs Validate Date Format) ; 
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iCnrt* k tha *l h * date is « the form of DD/MM/YY 
function valxdateDate_old (textfield) < wMM/ yy 



dateOK=true; 

0")) { ii^/ii (textfield. value. charAt (0) < 

dateOK^false; 

} 

"O"^ / lf ( (textfield * v 3lue.charAt (1) > « 9 ") M (textf ; olH 

0 >) { ' " ttextfxeld. value. charAt (0) < 

^ dateOK=false; 

if ftextfield. value. charAt (2) "/"){ 
dateOK-false; 

} 

-0-M / ±f ({textfielcl - v alue. charAt (3) > » 3 ») I j (textfi^in 
o )) { ' -i i (textfield. value. charAt (3) < 

dateOK=false; 

} 

. ftwn - if ^ te xtfield. value. charAt (4) > »9"> , , (textfiplH 1 
0")) { ' 11 itextrxeld. value. charAt (4) < 

dateOK=false; 

} 

if (textfield. value. charAt (5) f- «/") f 
dateOK=false; 

} 

-n»n / ±f {(textfield - v *lue. charAt (6) > "9") II ftextfi^in 
0 )) { / m (textfield. value .charAt (7) < 

dateOK=false; 

} 

if (( textfield. value . charAf (i\ war?\ >. ^ 
"0")) { xue. cnarAt (7) > 9") M {textfield. value. charAt (7) < 

dateOK=false; 

> 

if (textfield. value == ••••) { 
dateOK = true; 

} 

if (idateOK) { 

alert (XD_g S ValidateDateFonnat ) ; 

> 



all_numOK = true; 

for (var i- 0 ; i < textfield. value. length; 

H r ^!?! C ^ r = textfiel d. value. charAt(i); 
Jf ((theChar < »<>-) |, (theChar > "9")) 

if (textfield. value »= 

{ ' ' 

all_numOK = false; 

alert (XDgsValidateContainNums) ; 
break; 
} // end of if not - 
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} //end if not # 
} //end for 

return all__numOK; 

) 

// checks to see that the textfield contains two decimal places 
function validateMoney (textfield) { 

all_moneyOK = true; 

for (var i-0; i < textfield. value . length; i++) { 
var theChar = textfield . value . charAt ( i ) ; 
if ({theChar < "0") II (theChar > "9")) ( 
if (theChar !=".-){ 

allmoneyOK - false; 
alert (XD_gsValidateMoneyFormat ) ; 

break; 

> 

} //end if not # 
} //end for 

return all_moneyOK; 

} 

function validateLength (textfield, len) 
{ 

lengthOK = true; 

if (textfield. value. length < len) 
{ 

lengthOK = false; 

alert (text field. name + XD_gsValidateLengthFormat + len + 
XD_gsValidateChars) ; 
} 

} 

// attache to delete buttons to confirm 
function conf irmDelete (text field) { 

deleteOK = conf irra (textfield. value + Are you sure? ); 

} 

// attache to other buttons, such as add, to allow them to submit 
// after a failed delete confirm 
function reset_ b() { 
deleteOK « true; 
emailOK = true; 
phoneOK true; 
dateOK « true; 
lengthOK = true; 
yearOK = true; 
all_numOK = true; 
deleteOK = true; 
var length = required_elements .length ; 
for (var i=0; i < length; i++) I 

required_elements [i] - true; 

} 

) 

//a function to error check with 
function test ( ) { 

alert ("Testing ! rt ) 
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//H^ eCkS ^ SSe that the textfiel d contains only numbers and is 
//between 13 and 16 characters in length 

function validateLengthandlnput (textfield, minLength, maxLength, dateType) 
all_numOK = true; 

if ( (textfield. value. length<minLength) | | 
(textfield. value. length>maxLength) ) 

all_numOK » false; 

if (minLength ===== maxLength) 
{ 

if (dateType "ExpDate") ( 
alert (XD_gsValidateExpDateFormat ) ; 

else { 

vn „ w i «. ^ a lert(XD_gsValidateDateFormat + maxLength + . 
XD_gsValxdateChars) ; 

> 

} 

else 
{ 

maxLength + XD.gsvSidateShlrs) ^^^^ + minLe ^ th + XD_g S ValidateAnd ♦ 



} 

return all numOK; 



} 



for (var i=0; i < textfield. value, length; i++) 

var theChar » textfield. value . charAt (i) ; 
if ((theChar < "0") || (theChar > "9")) 
{ 

if (textfield. value != W -1 M ) 

all_numOK = false; 

alert (XD_gsValidateContainNums) ; 
break; 
} // end of if not - 
} //end if not # 
} //end for 

return all_numOK; 



function checkRequired (f orm) 
{ 

var complete = true; 

var length = form. elements. length; 

addRequiredElements (form) ; 
for (var i=0; Klength; i++) 
{ 



for (var j=0; j < required_elements_names . length; j++) 

if ( form, elements [i] .name === required_elements__names I j ] ) 
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if { (form. elements [i] .type == "text") I I 

(form- elements [i] . type == "password") I I 
(form, elements [i] . type =*= "textarea") 

) 

( 

if ( form. elements [i] . value — « ' ■> 
{ 

complete = false; 
break; 

} 

} 

else if ( form. elements [i] .type == "select-one") 
{ 

if ( form- elements [i] . selectedlndex — 0) 
{ 

^ complete = falser- 

break; 

} 

) 

else 
{ 

//don't worry about radio button 

} 

} 

} 

) 

if (! complete) 
{ 

//Temp bug fix: could not read any variable from english_text . 3 s 
(scope problem?) 

//was : alert (XD_gsValidateAllRequired) 

alert ("A required field is not filled out. Please make sure 
all required fields are filled out before hitting submit."); 
return false; 

} 

else 
{ 

/* 

Check if we've already submitted 
*/ 

if (!submitted) 
{ 

submitted = true; 

submitCount = 0 ; 
//took this line out because it was breaking IE 
// and it's not used for submitting the form anyway 

/ /form. submit {) ; 

return true; 

) 

) 



submitCount += 1; 



< 

var gender = ""; 
var message - "";; 
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if (form. gender. value == "1" || form, gender . value — ■ "2") 
var gender; 

if ( form. gender . value == "l") 
gender - "Dude" 

) 

else 
{ 

gender = "Lady" 

) 

} 



info"; 



} 



if (submitCount == 2) 
{ 

message = " Hey " + gender + " give me a second while I send 

} 

if {submitCount == 3) 
{ 

^ message - "Okay... now your just pressing too much"; 
if (submitCount > 1 && submitCount < 4) 

alert (message) ; 

} 

} 

return false; 



function CheckPassword ( f orm) 
{ 

var length = form. elements . length; 
var change^l; 
//Make sure passwords match 
if (form. elements [1] .value != 

form. elements [2] .value) 

{ 

alert (XD_gsValidatePas swords) 
change=0; 
return false; 

} 

if (change==l) 
f 

form. submit () ; 

} 

return true; 
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//xparse.js 

function ^element () 
{ 

this. type = "element"; 
this. name = new St ring O; 
this .attributes = new ArrayO; 
this . contents = new ArrayO; 
this.uid = _Xparse_count++; 
_Xparse_index [this . uid] ^this; 

// Added by Martin Hald 
this . attributes . folder - 0; 
) 

function _chardata ( ) 
{ 

this. type ~ "chardata"; 
this. value = new String O; 
} 

function _pi ( ) 
< 

this. type = "pi"; 

this. value = new String O; 

} 

function _comraent ( ) 
{ 

this. type = "comment"; 
this, value = new String O; 
} 

// an internal fragment that is passed between functions 
function _f rag O 
{ 

this.str - new String O ; 
this.ary = new ArrayO; 
this. end = new String O ; 
} 

///////////////////////// 

// global vars to track element UID's for the index 

var _Xparse_count = 0; 

var _Xparse_index = new ArrayO; 

///////////////////////// 

//// Main public function that is called to 

//// parse the XML string and return a root element object 

function Xparse(src) 
{ 

// Hack added by Martin Hald to fix the grove [x] not an object error 
// where the grove object array indexes was shifted up by the previos 
// parsing 
_Xparse_count =0; 

var frag — new _f rag ( ) ; 
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// remove bad \r characters and the prolog 
frag.str = _prolog (src) ; 

// create a root element to contain the document 
var root = new ^element ( ) ; 
root.name= XD_gsRoot Path; 
root, attributes, folder • «* 1; 
root .attributes. show = 1; 

/ / main recursive function to process the xml 
frag « _compile ( f rag) ; 

// all done, lets return the root element + index + document 
root .contents = frag.ary; 
root, index = _Xparse_index; 
_Xparse — index = new Array ( ) ; 

return root; 
} 

///////////////////////// 
///////////////////////// 

//// transforms raw text input into a multilevel array 
function ^compile ( f rag ) 
{ 

// keep circling and eating the str 
while (1) 
{ 

// when the str is empty, return the fragment 
if (frag.str .length ==0) 
{ 

return frag; 
} 

var TagStart = f rag . str . indexOf ( "<") ; 

if (TagStart != 0) 
{ 

// theres a chunk of characters here, store it and go on 
var thisary = frag.ary . length; 
frag.ary [thisary] = new _chardata(); 
if (TagStart == -1) 
{ 

frag. aryfthisary] .value _entity (frag. str) ; 

frag.str = *•"; 

} 

else 

{ 

frag.ary [thisary] .value = 
.entity (frag. str. substring (0, TagStart) ) ; 

frag.str - frag, str . substring (TagStart, frag, str . length) ; 

} 

else 

{ 

// determine what the next section is, and process it 
if (frag. str. substringd, 2) — "^"J 
{ 

frag = _tag_pi (f rag) ; 
J 

else 
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if (frag. str. substring (1,4) == " ! — " ) 
{ 

frag = _tag — comment <f rag) ; 
> 

else 

{ 

if (frag. str. substringd, 9) « n ! [CDATA [ " ) 
{ 

frag = _tag_cdata < f rag) ; 
} 

else 

{ 

if ( frag. str .substring (1, frag. end. length + 3) == 
+ frag. end + II _remove_escapes (frag . str . substring < 1, frag . end. length + 

3j) „ ••/" + frag. end) 

{ 

// found the end of the current tag, end the 

recursive process and return 

frag. str = frag. str. substring ( frag. end. length + 

3, frag. str. length) ; 

frag. end = ""; 
return frag; 
) 

else 

{ 

frag - _tag_element ( f rag) ; 
} 

} 

} 

> 

} 

* > 

return ""; 
} 

/////////////////////// 



/////////////////////// 

//// functions to process different tags 
function XDTrueSpace Index (f rag) 
{ 

var length = frag. length; 
for (var i=0; i < length; i++) 
{ 

if ( (frag.charAt (i) " ") 
&& (frag.charAt (i-1) != 

) 

{ 

break; 
} 

} 

return i; 
} 

function __tag_element (f rag) 
{ 
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var empty - (frag. str. substring (close - 1 , close) == »/»>- 
if (empty) ; ' ' ' 

{ 

close -= 1; 

} 

/ / split up the name and attributes 

var starttag - ^normalize { frag . str . substring ( 1 , close )) ; 
//var nextspace - starttag . indexOf ( n n ) ; 
var nextspace = XDTrueSpacelndex (starttag) ; 
var attribs = new String (); 
var name = new String (); 
if (nextspace != -1) 
( 

name = starttag. substring (0, nextspace) ; 

attribs - starttag. substring (nextspace + 1, starttag. length) ; 

else 

{ 

name = starttag; 
} 

var thisary = f rag. ary . length; 

frag.ary [thisary] = new _element(); 

frag.ary [thisary] .name = _remove_escapes (name) ; 

if (attribs. length > 0) 
{ 

frag.ary [thisary] .attributes - _attribution (at tribs) ; 

if ("empty) 
{ 

// ! J ! ! important, 

// take the contents of the tag and parse them 
var contents = new _frag(); 

contents. str « frag, str . substring (close + 1, frag . str . length) - 

contents. end = name; 

contents = _compile (contents) ; 

frag.ary [thisary] .contents » contents ary; 

frag. str « contents. str; 

} 

else 

{ 

frag, str = frag. str . substring (close + 2, frag. str . length) ; 

return frag; 
} 

function _tag_pi (f rag) 
{ 

var close = frag . str . indexOf ( "?>") ; 
var val = frag. str . substring (2, close) ; 
var thisary = frag . ary . length; 
frag. ary [thisary] * new _pi ( ) ; 
frag. ary [thisary] .value = val; 

frag, str - frag . str. substring (close + 2, frag, str . length) ; 
return frag; * 
> 

function _tag_comment (f rag) 
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( 

var close = f rag . str . indexOf ( " — >"); 
var val = frag . str . substring ( 4 , close) ; 
var thisary - f rag . ary . length; 
f rag . ary [thisary] = new _comment { ) ; 
frag. ary [thisary] .value = val; 

frag. str - frag . str . substring ( close + 3, frag . str . length) ; 

return frag; 

) 

function _tag_cdata ( f rag) 
{ 

var close = f rag . str . indexOf ( *] 3 >" ) ** 
var val = frag . str . substring ( 9, close) ; 
var thisary = frag . ary . length; 
frag. ary [thisary] - new _chardata(); 
frag . ary [thisary ]• value = val; 

frag. str « frag . str . substring (close + 3, frag. str . length) ; 

return frag; 

) 

///////////////////////// 



////////////////// 

//// util for element attribute parsing 
//// returns an array of all of the keys = values 
function ^attribution (str ) 
< 

var all = new Array (); 
while (1) 
{ 

var eq = str . indexOf ("=") ; 
if (str. length ==0 t i eq = -1) 
{ 

return all; 
} 

var idl » str . indexOf ( "\ B ") ; 
var id2 = str . indexOf ( n \ nn ) ; 
var ids = new Number ( ) ; 
var id = new String {) ; 

if ((idl < id2 && idl != -1) I! id2 — -1) 
{ 

ids = idl; 
id = n \' n ; 
) 

if ( (id2 < idl II idl -1) && id2 != -1) 
{ 

ids = id2; 
id = " \ n " ; 
) 

var next id = str . indexOf (id, ids + 1); 
var val ■» str . substring (ids + l,nextid) ; 

var name = xstrip (str . substring (0, eq) ) ; 
var entity = new StringO; 
entity = — entity (val) ; 
all [name] = entity; 

str = str . substring (nextid + 1, str . length) ; 
) 

return all; 
) 
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////////////////////// 

//// util to remove \r characters from input string 
//// and return xml string without a prolog 
function _prolog(str) 
{ 

var A = new Array (); 

A = str. split <"\r\n") ; 
str = A . join ( " \n") ; 
A = str. split ("Nr") ; 
str * A . join ( " \n" ) ; 

var start = str . indexOf { w <" ) ; 

if (str. substring (start, start + 3) == »<^ x " II qtr ,nhof^ , ^ ^ 
+ 3) == "<?X" ) str .substring (start, start 

{ 

var close = str . indexOf ("?>") ; 

str = str. substring (close + 2, str . length) ; 

var start = str . indexOf ("<! DOCTYPE" ) • 
if (start != -1) 
{ 

var close = str . indexOf (">", start ) + 1; 
var dp = str. indexOf ("[", start ) ; 
if (dp < close && dp »= -l) 
{ 

close - str. indexOf ("]>", start) + 2; 
str = str. substring (close, str. length) ; 

return str; 
} 

////////////////// 



function _remove_escapes (str) 

var A = new Array (); 
A = str. split ("W") ; 
str = A .join ( ".") ; 
return str; 
) 

////////////////////// 

////util to remove white characters from input string 
functxon xstrip(str) 9 
{ 

A = str. split ( w M ) ; 
str = A. join( M ") ; 
A = str. split ( n \n n ) ; 
str « A. join ( n ") ; 
A = str. split ( n \t n ) ; 
str = A. join ( "") ; 

//A = str. split (" "); 
//str « A. join ( w   w ) ; 
//A = str. split ("\n") ; 
//str = A. join ("") ; 
//A =» str. split (" "); 
//str = A.join('»"); 
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return str; 
} 

////////////////// 
////////////////////// 

//// util to replace white characters in input string 
function _norraalize(str) 
{ 

var A = new Array ( ) ; 

A - str. split ("\n") ; 
str = A. join( M ") ; 
A = str. split ("\t") ; 
str = A . j oin ( " ") ; 

return str; 
} 

////////////////// 
////////////////////// 

//// util to replace internal entities in input string 
function _entity(str) 
{ 

var A = new Array ( ) ; 

//A = str .split ("<") ; 

//str = A. join ( w < n ) ; 

//A = str. split (">") ; 

//str - A. join (">" ) ; 

//A = str .split ( w " ") ; 

//str = A. join ( "\ w n ) ; 

//A - str. split ("&apos;") ; 

//str - A. join ( "\ * " ) ; 

//A = str .split {"& n ) ; 
//str = A. j oin ( "& " ) ; 

//Get rid of any escapes 
A = str. split ("W") ; 
str = A. join ("") ; 

return str; 
} 

////////////////// 
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CLAIMS 

What is claimed is: 
1. 



2. 



3. 



4. 

2 



5. 



6. 

2 

7. 

2 

8. 



9. 

2 



server 



A shared computer network storage system, comprising: 
a first database containing file data; 

a second database containing information (metadata) about said file data of said first database- 
a server, said server executing file commands on said first file database said 

contemporaneously updating said second metadatabase upon executing said file commands- and 

a chent application, said client application communicating with said server, said client application 

mvokmg fi.e commands upon said server, said server executing said file commands and updating 

•nformation regarding said first file and second metadata databases displayed by said client application- 

whereby 

said client application controls files in said first file database and information regarding status of 
said first database files is more readily available by reference to said second metadatabase. 

Theshared computer network storage system of claim 1, wherein said first file database is distributed 

over at least two physical storage devices. 

The shared computer network storage system of claim 1, wherein said second metadatabase is 
distributed over at least two physical storage devices. 

Theslum*com pu ternetwork s to^^ 

with said server via a proxy. 



The shared computer network storage system of claim 1, wherein said server comprises a non-routable 

2 network. 



The shared computer network storage system of claim 1 , wherein said server comprises a transaction 

processor. 

The shared computer network storage system ofclaim 6, wherein said transaction processor guarantees 
access to and transactions on said first and second databases. 

The shared computer network storage system ofclaim 1 , wherein said server comprises an enterprise 
java bean cluster (EJBC). 

The shared computer network storage system ofclaim 8, wherein said enterprise java bean cluster 
(EJBC) handles business .ogic and resource access methods a well as memory caching for common resources. 



10. 



The shared computer network storage system ofclaim 1, wherein said server further comprises an 

2 application network. 
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1 1 . The shared computer network storage system of claim 1 0, wherein said application network further 

comprises a Java application cluster. 



12. The shared computer network storage system of claim 10, wherein said application network handles 
display functions and resource requests. 

13. The shared computer network storage system of claim 1, wherein said server further comprises a web 
server. 

14. The shared computer network storage system of claim 1 3, wherein said web server handles all requests 
for static content and proxies requests for dynamic content. 

1 5. The shared computer network storage system of claim 1 , wherein said server further comprises a load 
balancer, said load balancer proxying requests to a sub-server having the highest degree of availability or 
functionality. 

1 6. The shared computer network storage system of claim 1 wherein said server further comprises a DNS 
redirect or, said DNS redirector proxying requests to a resource having a highest degree of functionality. 

17. The shared computer network storage system of claim 1 wherein said server further comprises: 

a transaction processor, said transaction processor on a non-routable network, said transaction 
processor guarantees access to and transactions on said first and second databases; 

an enterprise java bean cluster (EJBC) on a non-routable network, said enterprise java bean cluster 
(EJBC) coupled to said transaction processor and handling business logic and resource access methods a 
well as memory caching for common resources; 

an application network on a non-routable network, said application network coupled to said 
enterprise java bean cluster, said application network including a java application cluster and handling 
display functions and resource requests; 

a web server, said web server coupled to said application network and handling all requests for 
static content and proxies requests for dynamic content; 

a load balancer, said load balancer coupled to said web server and proxying requests to a sub- 
server having the highest degree of availability or functionality; and 

a DNS redirector, said DNS redirector coupled to said load balancer and proxying requests to a 
resource having a highest degree of functionality. 

1 8. The shared computer network storage system of claim 1 , wherein said client application is web-based. 

1 9. The shared computer network storage system of claim 1 , wherein said client application interacts with 
an operating system running upon a computer upon which said client application is also running, said client 
application adopting and implementing a visual display format similar to said operating system. 
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A shared computer network storage system, comprising: 

devices" ^ daUbaSe C ° ntainin£ fi,C d3ta ' S3id da,ab3Se diStribUted ° Ver * ,CaSt ^ phySiCal ^ 

a second database containing information (metadata) about said file data of said first database said 
second database distributed over at least two physical storage devices; 

a server, said server executing file commands on said - firs, file database, said server 
contemporaneously updating said second metadatabase upon executing said file commands, said server 
including: 

a transaction processor, sa.d transaction processor on a non-rou,ab,e network, said transaction 
processor guarantees access to and transactions on said first and second databases- 

wnr? C T riSe j3Va bea " dUSter (EJBC) °" ' n ° n - rOUtab,e netW ° rk ' Sa ' d enterprise Java bean duster 
(EJBOcoupledtosaidtransactionprocessorandhandhngbusiness.ogic and resource access methods a 
well as memory caching for common resources; 

an application network on a non-routable network, said application network coup.ed to said 
enterpnse Java bean Custer, said application network including a java application Custer and handling 

display functions and resource requests; 

a web server, said web server coupled to said application network and handling all requests for 
static content and proxies requests for dynamic content; 

a load balancer, said load balancer coupled to said web server and proxying requests to a sub- 
server having the highest degree of availability or functionality; and 

a DNS redirector, said DNS redactor coupled to said load balancer and proxying requests to a 
resource having a highest degree of functionality; and 

a client application, said client application communicating with said server via a proxy, said client 
apphcation invoking fi.e commands upon said server, said server executing said file commands and 
updatmg information regarding said first file and second metadata databases displayed by said client 
application; whereby 

said client application controls files in said first fi.e database and information regarding status of 
sa,d first database files is more readily available by reference to said second metadatabase. 

The shared computer network storage system of claim 20, wherein said client application is web- 



23. 



based. 



The shared computer network storage system of claim 20, wherein said client application interacts 
w,th an operatingsystem running upon a computer upon which said client application is also running, said client 
apphcat,on adopting and implementing a visual display format similar to said operating system. 

A method for providing private file space and information transfer over a public computer network, 
the steps comprising: 

providing a publicly-available private file space system coup.ed to the public computer network- 

providmg a Cent program in communication with the public computer network 

sending a request from said client program to said publicly-available private file space system 
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("private system"); 

evaluating said request; 
authenticating said request; 
satisfying said request; and 

returning a success indicator to said client program indicating the success or failure of said request; 
whereby 

said client program may create and control files held by said private system. 

24. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, wherein the step of evaluating said request further comprises evaluating said request for 
static content and returning an appropriate response if said request is for static content. 

25. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 24, the steps further comprising: 

providing an application network within said private system; 
proxying said request to said application network; and 
parsing a header of said request. 

26. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, wherein said step of authenticating said request further comprises: 

authenticating a user using said client program; and 

authenticating said request made by said client program to ensure that it conforms with an account 
associated with said user. 

27. The method for providing private file space and information transfer over a public computer network 
as set forth in claim 23, further comprising: 

parsing multipart form data associated with said request; 
determining said request's type; and 
submitting said request 

28. A method for providing private file space and information transfer over a public computer network, 
the steps comprising: 

providing a publicly-available private file space system coupled to the public computer network; 
providing a client program in communication with the public computer network; 
sending a request from said client program to said publicly-available private file space system 
("private system"); 

evaluating said request for static content and returning an appropriate response if said request is for 
static content; 

providing an application network within said private system; 
proxying said request to said application network; and 
parsing a header of said request 
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authenticating said request by authenticating a user using said client program and authenticating 
said request made by said client program to ensure that it conforms with an account associated with said 

user, 

parsing multipart form data associated with said request; 
determining said request's type; 
submitting said request; 
satisfying said request; and 

returning a success indicator to said client program indicating the success or failure of said request; 
whereby 

said client program may create and control files held by said private system. 

A data structure for effecting file operations on a private file space and information transfer system 
over a public computer network, comprising: 
a user data object; 
a process request object; and 
a recovery object; 

said user information object, said process request object, and said recovery object associated within 
a file action object. 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said user data object further comprises: 
a user information object; and 
a security object. 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said process request object further comprises: 
a file operation object comprising said recovery object and a database IO object, a file IO object, 
and an administration object 

The data structure for effecting file operations on a private file space and information transfer system 
over a public computer network as set forth in claim 29, wherein said recovery object further comprises: 
a recovery IO object; 
a mount status object; 
a recovery administration object; and 
a recovery process object. 

A data structure for effecting file operations on a private file space and information transfer system 
over a public computer network, comprising: 

a user data object, said user data object having a user information object; and a security object; 
a process request object, said process request object including a file operation object, a database IO 
object, a file IO object, and an administration object; and 
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a recovery object, said recovery object incorporated in said tile operation object, said recovery- 

object including a recovery IO object, a mount status object, a recovery administration object, and a 

recovery process object; 

said user information object, said process request object, and said recovery object associated within 

a file action object; whereby 

file operations may be facilitated by the data structure including recovery from resource failure. 

34. A shared file storage resource for a computer network, comprising: 

an allocatable file storage resource; 

a server, said server coupled to said storage resource, said server: 

allocating individual user file space for a plurality of users on said storage resource; 

receiving files for storage on said storage resource; 

transmitting files stored on said storage resource; 

generating control-protocol codes for transmitting said files; 

receiving file commands for controlling files on said storage resource; and 

transmitting display codes indicating file status on said storage resource, said display codes 
representing said storage resource as a network drive; 

a first network connection, said first network connection coupling said server to the computer 
network; 

a workstation, said workstation: 

receiving files for storage on said storage resource; 

transmitting files stored on said storage resource; 

receiving file commands for controlling files on said storage resource; and 

transmitting display codes indicating file status on said storage resource, said display codes 

representing said storage resource as a network drive; whereby 

a user may store, retrieve, and control files in a unique and secure file storage area on said 

allocatable storage resource available throughout the computer network and detached from said 

workstation. 

35. The shared file storage resource for a computer network as set forth in claim 34, wherein said display 
codes further comprise: 

a browser-interpretable object, such as a JavaScript object, said object displaying file status on said 
storage resource as a web page. 

36. The shared file storage resource for a computer network as set forth in claim 34, further comprising: 

a standalone program running on said workstation, said standalone program interpreting said 
display codes and providing a seamless interface to said user, said seamless interface presenting said 
storage resource as a local or network resource to said user and allowing said user to manipulate files on 
said storage resource in the same manner as local storage resources such as a floppy disk drive or a local 
hard drive. 
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The shared file storage resource for a computer network as set forth in claim 34, wherein said 
computer network, further comprises: 
the Internet. 



38. A method for transferring data from a first network resource to a second network resource at the 

2 direction of a user, the steps comprising: 

submitting a first file location indicating data to be transferred to the second network resource; 
the second network resource requesting said data at said first file location from the first network 

resource; 

« the first network resource transmitting said data to the second network resource; and 

the second network resource notifying the user of successful transfer upon successful reception of 
« said data; whereby n 

the user may use the first and second network resources to obtain and control said data. 



39. 

2 

40. 



The method for transferring data as set forth in claim 38, wherein the second network resource 
comprises a subscriber-based system of network-available storage space. 



The method for transferring data as set forth in claim 38, wherein the first and second network 
2 resources are coupled to the Internet. 



41. 



42. 

2 

43. 



The method for transferring data as set forth in claim 38, the steps further comprising: 

displaying to the user a status of transmission of said data from said first network resource to said 
second network resource. 

The method for transferring data as set forth in claim 38, the steps further comprising: 
verifying the user as a subscriber to or member of the second network resource. 



A method for transferring data from a first network resource to a second network resource at the 
2 direction of a user, the steps comprising: 

submitting a first file location indicating data to be transferred to the second network resource, the 
second network resource being a subscriber-based system of network-available data storage space; 

verifying the user as a subscriber to or member of the second network resource; 

the second network resource requesting said data at said first file location from the first network 
resource; 

the first network resource transmitting said data to the second network resource via Internet; 
displaying to the user a status of transmission of said data from said first network resource to said 
10 second network resource; and 

the second network resource notifying the user of successful transfer upon successful reception of 
12 said data; whereby 

the user may use the first and second network resources to obtain and control said data. 
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44. A client-server system for a network-based data storage and manipulation system, comprising: 

a client system, said client system having a file access service and a file manipulation service; 
a server, said server providing network-based data storage resources and responding to requests 
transmitted by said client system, said server effecting said requests; 

said server determining if a client request is one for metadata regarding data stored upon said 

server; 

said server providing said metadata if said client request is for metadata and transmitting said 
metadata to said file manipulation service; and 

said server performing a file action if said client request is not for metadata, said server updating 
said metadata and transmitting said metadata to said file manipulation service; whereby 

said server operates, and said client system presents, operations on said server in a manner similar 
to operations local to said client system. 

45. The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said file access service further comprises: 

a request processing layer for processing requests; and 

a first network I/O layer for transmitting said requests to said server. 



46. The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said file manipulation service further comprises: 

a parser, said parser parsing said metadata from said server; 

a data structure, said data structure receiving and preserving parsed data from said parser; and 
a data display layer, said data display layer operating upon and displaying said parsed data; 
whereby 

metadata may be displayed to inform about data stored upon said server. 

47. The client-server system for a network-based data storage and manipulation system as set forth in 
claim 46, wherein said parser is an XML parser. 

48. The client-server system for a network-based data storage and manipulation system as set forth in 
claim 44, wherein said server further comprises: 

a second network I/O layer, said second network I/O layer engaged when said requests are not for 
metadata, said second network I/O layer transmitting requests for file action; and 

a resource access layer, said resource access layer receiving transmissions from said second 
network I/O layer and effecting said requests, said resource access layer engaged when said requests are 
for metadata, said resource access layer obtaining and transmitting said metadata; and 

a metadata compiler, said metadata compiler receiving said metadata from said resource access 
layer, compiling said metadata, and transmitting said compiled metadata to said client system. 

49. The client-server system for a network-based data storage and manipulation system as set forth in 
claim 48, wherein said metadata compiler is an XML generator. 
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50. A client-server system for a network-based data storage and manipulation system, comprising: 

a client system, said client system having a file access service and a file manipulation service; 
a server, said server providing network-based data storage resources, said server creating and 
maintaining metadata regarding stored data, said server responding to requests transmitted by said client 
system, said server effecting said requests; 

said server determining if a client request is one for metadata; 

said server providing said metadata if said client request is for metadata and transmitting said 
metadata to said file manipulation service; 

said server performing a file action if said client request is not for metadata, said server updating 
said metadata and transmitting said metadata to said file manipulation service; 

said file access service having a request processing layer for processing requests and a first 
network I/O layer for transmitting said requests to said server; 

said file manipulation service having an XML parser, said XML parser parsing said metadata from 
said server, said file manipulation service having a data structure, said data structure receiving and 
preserving parsed data from said parser, and said file manipulation service having a data display layer, 
said data display layer operating upon and displaying said parsed data so that metadata may be displayed 
to inform about data stored upon said server; and 

said server having a second network I/O layer, said second network I/O layer engaged when said 
requests are not for metadata, said second network I/O layer transmitting requests for file action, said 
server having a resource access layer, said resource access layer receiving transmissions from said second 
network I/O layer and effecting said requests, said resource access layer engaged when said requests are 
for metadata, said resource access layer obtaining and transmitting said metadata, and said server having a 
metadata compiler in the form of an XML generator, said metadata compiler receiving said metadata from 
said resource access layer, compiling said metadata, and transmitting said compiled metadata to said client 
system; whereby 

said server operates as and said client system presents operations on said server in a manner similar 
to operations local to said client system. 
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Fig. 3 
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## we need to do all of this to not- +-k« 

correct page 9 the reseller cod e to show the 

my $oDiskAccount = XDrive : : DatabaspO- • t=ki ^ r,- ,« 
$oDB0) ; .uataDaseO. .Table: : DiskAccount->new (undef , 

$oDiskAccount->loadWhere("USERNAME", Susername) ; 

my SoUser = XDrive :: DatabaseO: : Table •• a« e r Dfl f a , . c 

$oDiskAccount->fetchDBO) ; ' " UserData ->new (undef , 

$oUser->lo a dWherePK($oDiskAccount->fetchColumn("USER_SEQ«) ) ; 

my SoReseller = XDrive: : DatabaseO- ■ Tab! *»• -r^^i i 
$oDiskAccount->fetchDBO) ; ' Table - • Reseller->new (undef , 

$oRes e ll e r->loadWherePK($oUser->fetchColu m n(»RESE L LER_ S EQ«) , ; 
my $oTemplate = new XDrive: : Template, • 

$oTemplate->partner($oReseller->fetchColumn("CODE") ) ; 

#*JIt ° r t 9 f nal ^ y this is where the signup form.cgi goes 
##SoTemplate->load( ' splash. thtml ' ) ; 9 

SoTemplate->load { • tell_a_f riend_f rame . thtml • ) ; 

llll * addrArrav = $oCGI->param< ' friends email array' ) • 
##my nameArray = $oCGI-> P aram( • friends^ame IrrayV 
##my SnumFnends = $oCGI->param< 'numFriends' )J 

## generate list for the javascript array 
##my QaddrList = split /,/, SaddrArray; 
##my SnameList = split /,/, SnameArray; 

##$addrArray = "" ; 
##$nameArray = ""; 

##my Scount = @addrList - 1; 

##for (my $i = 0;$i < $count;$i++) { 

##$addrArray .= «\ — . SaddrList [$i] . »»\» » . 
##$naroeArray .= «\— . SnameList [$i] . "\",'"T 

## this will add the quote without the comma 

##$addrArray .= «\"" . SaddrList [$count] . »\""; 

##$nameArray .= »\«- . SnameList [Scount] »\""- 
## gets the array started " 
my StempVar; 

my $tempEmail = $oCGI->param ( 'friends emaill • ) • 
my SnumFriends = $oCGI->param ( 'numFriends ') ; 

my SaddrArray = "\"» . StempEroail . 

my ?nameArray = »\"» . $oCGI->param ( • f riends_namel • ) . »\»» ; 

## generate list for the javascript array 
for (my $i = 2;$i <= SnumFriends; $i++) 

StempVar = $oCGI->param( • friendsemail ' . $i); 



if '(StempVar) 
{ 



119 100 of 137 



4SDOCID: <WO 



Ol.WWlAl IA<> 



WO 01733381 PCTAJSOO/30536 
$addrArray H f \"" • $tempVar . »\»« ; 

$nameArray .= \ nn - $oCGI->par am (' friend s_name ■ . $i) . 

} 

} 



$oTemplate->tags { { ' numFriends ' => $numFriends / 

1 f riends_name_array ' => $nameArray, 
' friends_email_array * => $addrArray) ); 

print $oCGI->header ( ) ; 

print $oTemplate->get ( ) ; 

$oDiskAccount->f inish ( ) ; 
$oUser->f inish ( ) ; 
$oReseller->f inish { ) ; 
$oDiskAccount->disconnect ( ) ; 



############################################################################# 
## Login in user who is comming from a Skip The Download 
## Registration 

############################################################################# 



sub std_login () { 

my $username = shift; 
my $oCGI - shift; 

my $sSTDPartner = shift; 

my $sLanguage = shift; 

my $sFileORL = shift; 

my $sFileName = shift; 

my $sAltORL = shift; 

my SsCatld = shift; 

my $sGid = shift ; 

my $sSid = shift; 



my $oDBO 



- new XDrive: : DatabaseO (undef ) ; 



my $oError = new XDrive: : Error; 

my $oToken « xd_login ($oCGI, $username, SoError, $oDBO) ; 
xd set session cookie ($oCGI, $sSTDPartner, $sLariguage) ; 



my $oTemplate - new XDrive :: Template 
({ 

■partner_code B => $sSTDPartner, 
'language 1 => $sLanguage, 

'file 1 -> ' skip_the_download_f rom_reg . thtml * , 
•tags' => 
{ 

•FILE_URL' => $sFileURL, 
, FILE_NAME* -> SsFileNaroe, 
•ALTRUL' ~> $s Alt URL, 

•LANG* $sLanguage, 

• STDPARTNER ' => $sSTDPartner , 
'CATID* $sCatId, 
•GID' => $sGid, 
•SID' => $sSid, 

} 
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$oTemplate->clear ( ) ; 

print "Content-type: text /html\n\n" ; 
print $oTemplate->get { ) ; 
$oDBO->disconnect ( ) ; 



sub contact_cybergold { 
my $oCGI = shift; 
my $msgid = shift; 
my $email = shift; 



my %args = ( 
'mint^home • 
1 msg_mode ' 

'usr_email ■ 
'rnsg_id ' 

•pay_type' 
' P av __ v a lue ' 
'pay^readrae* 

1 co^naine • 
'co_key ' 
'co_account 1 
*mint_secret • 

' mint__url__pay 1 
' msg_version ' 
); 



=> $ENV { ' MINT_H0ME • } , 
~> ' background__mode ' , 

—> $email , 
=> $msgid, 

-> * reward 1 , 
=> , 1.00* / 

=> 'Thanks for registering with X: drive.', 

*=> r X Drive' , 

=> ' registration * , 

=*> 1 100500900000396' , 

=> '184FEB9DB81944502A1C91B2879484B6' , 

I> J"? : //wWWl * c y ber 9old. com/payserver ?pay_server » , 



my($code, %res) = mint_invoke (\%args) ; 

##this is temp code to print out stuff for cybergold 

##my Gkeys = keys %res; 

##my Rvalues = values Ires; 

## while (@keys) 

##{ 

## die popf^keys), ' = ', pop (Rvalues) , "\n"; 
## } 

return $code; 



sub write_befree_log { 

my $oCGI = shift; 

my $source id = $oCGI->cookie ( 1 sourceid' ) ; 
##get the time 

#f needed to figure out name of file to write to 

n^i*-- my ,J? nS ? C ' $nMin ' $nHour, SnDay, SnMonth, SnYear, $sDay) ~ 
Uocaltime(tame)) [0,1,2,3,4,5,6]; y ' 

if ($nYear > 99) { 

^ SnYear » substr ($nYear, 1, 2) ; 

## Numeric month is 0-11, so add one 
$nMonth++; 

## Handle Y2K issue 
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if ( SnYear 80 ) { 

$nYear += 1900; 

} 

else { - 
$nYear += 2000; 

} 

my $dToday = sprint f ( "%s%02d%02d", $nYear, $nMonth, $nDay) ; 
my $dTodayFull = sprintf ( "%02d%02d%s 
%02d: %02d: %02d", $nMonth, SnDay, SnYear, $nHour, $nMin, $nSec) ; 

my $text = 

"14 524 098\tS\t$dTodayFull\t$sourceid\tl\tl\tl\tO. 00\tUSD\tregistration\n n ; 

warn "#BF'\ $text, "\n w ; 

##open (FILE, n »xdrive_orders_$dToday . txt " ) ; 
##print FILE $text; 
##close(FILE) ; 



sub send_email_referee { 

my $user_seq = shift; 

my $oDBO = shift; 
my $oCookie = shift; 

my $additional_quota = shift; 
my $ref erred_f rom = shift; 

my $language = $oCookie->getElement ( ' language ' ) ; 
my $partner = $oCookie->getElement ( 'partner ') ; 

if ($language eq 'Spanish') { 

my $text = 'un amigo que usted refirio'; 
if ($referred_f rom eq f 2') { 

$text = 'un usted compart io un fishero con'; 

} 

} 

else { 

my $text = 'referred*; 

if ($referred_f rom eq '2') { 

$text = 'shared a file with'; 
} 

} 



my $text = 'referred'; 

if ($ref erred_f rom eq ' 2 ' ) { 

$text - 'shared a file with'; 

} 



##comes in as k, change to megabytes 
my $mbs « $additional_quota/1024 ; 

my $oUserData = XDrive :: DatabaseO: : Table : :UserData->new (undef, 

$oDB0) ; 

$oUserData->loadWhere ( "SEQ" , $user_seq) ; 

my Semail^address = $oUserData->f etchColumn ( "EMAIL^ ADDRESS" ) ; 
my $name_first = $oUserData->f etchColumn ( "NAME_FIRST n ) ; 
my $naroe_last = $oUs er Da t a- >f etchColumn { "NAME_LAST W ) ; 

my $oTemplate = new XDrive :: Template ( {' language * => Slanguage, 

'partner^code • => $partner} ); 

$oTemplate->load ( ' recei ved_5MB_t el la friend - 1 html ' ) ; 
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$oTemplate->tags ( {'mbs' => $mbs, 
'text' => $text) ) ; 
$oTemplate->clear ( ) ; 

my $message = $oTemplate->get ; 



my %toXdrive = 
< 

To => "$name_first $name_last <$email_address>", 

Bcc => 

From => "support \@xdri ve.com", 
Message => Smessage, 
Subject => "Congratulations. 1 " 
) ; 

sendmail (%toXdrive) ; 
$oUserData->f inish ( ) ; 

> 
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###signup_form.cgi 

# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 
## Fri Apr 5, 1996 to use new templates. Updated Wed Apr 21 1999 to use 
## new library code. 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB) ) ; 
use CGI; 

use CGI:: Carp 'fatalsToBrowser'; 
use XDrive:: CGI qw(:MAIN); 
use XDrive: : Client : Registrations- 
use XDrive: : Template; 
use XDrive: : DatabaseO: : Search; 
use XDrive: : Library ; 

use constant XD__REG I STRAT I ON_DE FAULT_COUNTRY => 223; 
exit &main; 
sub main { 

my $oContent = new XDrive: : Template; 
my $oNavigation = new XDrive :: Template; 
my $oLayout = new XDrive :: Template; 

my $oCGI = new CGI; 

my $oCookie = XDrive :: CGI :: Cookie->new (' x_session_ info • , $oCGI); 
my $oSearch; 



my $sEmailAddress = undef; 



my ($country_seq, $occupation_seq, $postal_code, $ct_promo_seq) ; 



my %pullDownHash; 

if (XDDBConnectionCheckO && XDNFSCheck ( ) ) 
{ 

SoSearch « XDrive :: DatabaseO: : Search->new (undef ) ; 

} 

else 
{ 

$sClaimTicket = undef; 
$oSearch = undef; 

%pullDownHash = genera te_db_arr ay () ; 

} 

if ($sClaimTicket ) { 

my $rhData = getUserData ($oSearch, $sClaimTicket ) ; 



my $sReferee = $oCGI->param (* referee ') ; 

my $sClaimTicket = $oCookie->get Element ( 1 ct ■) ; 



## Defaults 



my $sUsername 
my $sNameFirst 
my $sNameLast 
my $nY0B 



undef; 
undef; 
undef; 
undef; 
undef; 
3; 



my $nPromoSeq 
my $nGender 
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if ($rhData) { 

my SoNewCgi = CGI->new ($rhData) ; 

$sUsername = $oNewCgi-> pa ram ( f username ' ) ; 

SsNameFirst » $oNewCgi->parara ( ■ name_f irst ' ) ; 

SsNameLast = $oNewCgi->param ( ' name_last ' ) ; 

$sEmailAddress = $oNewCgi->param ( ' email_address ' ) ; 

SnYOB » $oNewCgi->param( 'birth year 1 ); 

$nGender = $ oNewCgi->par am (• gender •) ; ~ 

$occupation_seq - $oNewCgi->param (• occupation seq ■} ; 

$country_seq = $oNewCgi->param (' country seq f ) ; 

$postal_code = $oNewCgi->param ( 'postal code ' ) ; 



if ($sReferee ne "") { 

SoCGI); # ^ $OC °° kie B XDrive - :C GI::Cookie->new('x_session_info' / 

my $sRefered_from = $oCGI->param ( • type ' ) ; 
$oCookie->set Element { { 'partner_code '=> 'xdrv • } ) ; 
$oCookie->setElement { { f language ' 1 english • } ) ; 
$oCookie->setElement{{ 'referee' $sReferee}); 
$oCookie->setElement ({ 'refered_from' -> $sRefered from))- 
^ prxnt "Set-Cookie: " . $oCookie->asString { ) ; 

$oContent->partner { 1 xdrv 1 ) ; 
$oNavigation->partner { • xdrv' ) ; 
$oLayout->partner ( 'xdrv r ) ; 

## *' m * ssumin 9 there Wili be one pa 9 e and not a series of frames. 
## this can be changed if need be 

# my $oCookie = XDrive : :CGI : : Cookie->new ( ■ x_session info\ $oCGI ) - 

# my $promo => $oCookie->getElement {' promo 1 ) ; ~ 

my $promo = $oCookie->getElement ( 'promo ') ; 
my $file_found; 

##if we have a promo, try to get a special registration paqe 
if ($promo) { ^ * 

##attempt to open a special registration page 

$file_found = $oLayout->load (Spromo . • registration. thtml M • 
if ( ! $file_found) { ■ ' 

##if we cannot, open the general promo reg page 
^ $file_found - $oLayout->load { 'promo^registrat ion. thtml ') ; 

) 

##is we don't have a promo then use the standard registration 
if { <! $promo) I J (! $file_found) ) { 

## Load the required template HTML files. 
$oNavigation->load( ,t front__nav. thtml") ; 
$oContent->load ( "f ront_signup . thtml " ) ; 
$oLayout->load { "layout . thtml " ) ; 

$oContent->tags 
(( 

'username' => $sUsername, 

•name_first' => $sNameFirst, 

'name last' => SsNameLast, 

•email_address' => $sEmailAddress, 
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'country' => 
xd_form_countries_db_check(XD_REGISTRATION_DEFAULT_COUNTRY, 

$oSearch, \%pullDownHash) , 

'occupation' => xd_f orm_occupation_db_check (undef , 

SoSearch, \%pullDownHash) , 

'media type' => xd_forni_media_type_db_check (undef , 

$oSearch, \%pullDownHash) , 

' gender 1 => xd_f orm_gender_db_check (undef, 

$oSearch, \%pullDownHash) , 

• select_marketing' => 'CHECKED', 

• select_newsletter ' => 'CHECKED' , 
'referee' => $sReferee, 
}); 

## Print out the HTML and exit 
$ oLayout->tags 
( { 

' header_graphic ' => ' header__registration . gif • , 
•title 1 => 'Register Now! 1 , 
'content 1 => $oContent->get , 
•navigation' => $oNavigation->get 
} > ; 

} 

elsif ($sClaimTicket) { 
$oLayout->tags 
( { 

•country' => xd_f orm_countries ($ count ry_seq, 



$oSearch) , 
$oSearch) , 



'occupation 1 => xd__form__ occupation ($occupation_seq, 



•media_type' => xd_f or m_media__type (undef , $oSearch) 

•gender' => xd_f orm_gender ($nGender, $oSearch) , 

' select_marketing' ' CHECKED' , 
• select_newsletter ' => 1 CHECKED ' , 

•username' => $sUsername, 

' name_f irst • => $sNameFirst , 

' name_last ■ => $sNaraeLast, 

' email_address ' => $sEmailAddress, 

'h>irth_year' => $nYOB, 

'referee' => $sReferee, 

•postal^code' => $postal_code 

}) ; 

} 

else { 

$oLayout->tags 
(i 

' 9 country 1 — > 
xdj orm_count ries_ db_check (XD_REGISTRATI0N_DEFAULT_COUNTRY , 
$oSearch, \%pullDov*nHash) , 

'occupation' -> xd_form_occupation_db_check (undef , 

SoSearch, \%pullDownHash) , 

'media^ype' => xd — f orm_ media_type_db_check (undef , 
$oSearch, \%pullDownHash) , 

•gender' => xd_form_gender_db_check (undef , 
$oSearch, \%pullDownHash) , 

•select_marketing' => 'CHECKED* , 

' select_newsletter f => 'CHECKED', 

'referee' => $oCGI->param ( 1 referee ' ) , 

}) ; 

) 

$oLayout->clear; 
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print $oCGI->header, $oLayout->get ; 

if (defined SoSearch) 

{ 

$oSearch->disconnect ( ) ; 

} 

return 0; 



## johngaa add to check of db is up or down 

sub generate_db array 

{ 

## create a hash 

my %tempHash; 

my $i = 1; 

my Skey; 

my etempVal; 

open FH, "<down_data . dat " ; 

while (<FH>) 
{ 

chomp $_; 

if ($__ =~ / A #(\w+)/g) 
< 

my GnewArray; 
Si = 1; 
$key = $1; 
^ $tempHash{$key} = [ GnewArray ]; 

else 
{ 

@tempVal = split (/W, $_) ; 

$tempHash{$key}->[$i - l] [0] = StempVal [0] ; 
$tempHash{$key}->r$i - 1][1] = $tempVal[l); 
$i++; 

} 

} 



> 



close FH; 

return %tempHash; 



sub xd_form_countries db check 
{ ~ " 

my $default = shift; 

my SoSearch = shift; 

my SpullDownHash = shift; 

my SreturnVal; 

if (defined SoSearch) 
< 

SoSearch)* 11 ^ 31 ~ xd - f orm _ countries ( X D_REG I STRAT 1 0N_DE FAULT_COUNTR Y , 

} 

else 
< 

## insert alternate source of countries here 
my $templ = SpullDownHash-> {» country •) ; 
^ $returnVai = options_list <XD_REGISTRATION_DEFAULT_COUNTRY, GStempl ) ; 
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return $returnVal ; 

} 
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sub xd f orm_occupation_db_check 
{ 

my $default = shift; 

my $oSearch - shift; 

my $pullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_forrn_occupation (undef , $oSearch) , 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash->{ 'occupation' } ; 
$returnVal = options_list (undef , @$templ ) ; 

} 

return $returnVal; 

} 

sub xd_f orm__media_type__cLb_check 
{ 

my $default = shift; 

my $oSearch = shift; 

my $pullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_f orm_niedia_type (undef , $oSearch), 

} 

else 
{ 

## insert alternate source of countries here 
my Stempl = $pullDownHash-> { 'media^type 1 } ; 
$returnVal = opt ions_list (undef , @$templ ) ; ~ 

} 

return $returnVal; 

} 

sub xd_f orm_gender_db_check 
{ 

my $default - shift; 

my $oSearch = shift; 

my $pullDownHash = shift; 

my $returnVal; 

if (defined $oSearch) 
{ 

$returnVal = xd_f orm_gender (undef , $oSearch), 

} 

else 
{ 

## insert alternate source of countries here 
my $templ = $pullDownHash-> {' gender •} ; 
$returnVal = opt ions_list (undef , @$templ ) ; 

} 
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return SreturnVal; 



## end of johngaa add 
sub getPromoURI ($$) { 

my $oSearch = shift; 

my @promo_seq = (shift); 

my $oDBH = $oSearch->f etchDBO->f etchDBH ( ) ; 

my $st = "SELECT uri FROM xdrive . promo WHERE seq = 

my $data = $oDBH->selectcol_arrayref ($st , . undef , @promo_seq) ; 

return $data->[0]; 

} 

sub getUserData { 

my $oSearch « shift; 
my $sTicket = shift; 

my $oDBH = $oSearch->f etchDBO->f etchDBH {) ; 

my SsQuery = "SELECT DATA FROM BATCH_USER_DATA WHERE CODE = 
my SoCursor = $oDBH->prepare (SsQuery) ; " ' 

$oCursor->bind_param ( 1 , SsTicket ) ; 
$oCursor->execute; 

my $rh; 

my $sData « $oCursor->f etchrow_array ( ) ; 

# my ($sData) = $oCursor->f etchrow array(); 

# eval $sData; ~ 

# return $rh; 
return $sData; 
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###signup_success,cgi 

# ! /usr/bin/perl 

## This CGI allows us to pass the sst and sid on to the inner frame 
## 

## Modified by Justin White on 10/14/99 by manually printing the 

## header to the browser and getting rid of the XDrive: :CGI import. 

§# Created new cgi, database, and error objects to pass to xd_security_check . 

## Also added the exit in the sub call. 



use strict; 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI:: Carp qw ( f atalsToBrowser ) ; 
use CGI ( ) ; 
use Token; 

use XDrive : :Client :: Security; 

use XDrive :: Template; 

use XDrive : :DatabaseO; 

use XDrive :: Error ; 

use XDrive :: Library; 

use XDrive : :CGI :: Cookie; 



&main { ) ; 



exit; 



sub main 
{ 

my $oCGI = new CGI; 

my $oDBO = new XDrive :: DatabaseO; 
my SoErr = new XDrive: : Error; 
my $oCookie = new XDrive :: CGI :: Cookie {' x_session_inf o ' , $oCGI); 

#### 

## Attempt to autenticate the user 
#### 

my $oToken « xd_security_check ($oDBO, $oCGI, $oErr ) ; 



#### 

## If the autentication fails or there is an error during the 

## autentication phase then redirect to the error CGI 

#### 



i f ( $oErr->Occurud ) 
{ 

xd_f atal_error ($oCGI, $oErr ) ; 

exit; 

> 



#### 

## Otherwise we have a valid session 
#### 

my $sUsernan»e = $oToken->data ( ' user • ) ; 



### Edited by Justin so that the partner_code is looked for in 
### the cookie instead of the token table. 

# my $sPartner - $oToken->data ( ' partner_code ' ) ; 

my $sPartner = $oCookie->getElement ( 'partner ') ; 
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if (! defined $sPartner) 
{ 

$sPartner = "xdrv"; 

$oCookie->setElement { { ' partner ' =>$sPartner } ) ; 
print "Set-Cookie: n , $oCookie->asString ( ) ; 

} 

my $oTemplate = new XDrive :: Template ( { ■ partner_code ' => $sPartner) 



$oTemplate->load { ' signup_success . thtml f ) ; 
$oTemplate->tags ( {'username' => $sUsernarae} ); 

print "content-type: text/html \n\n"; 

print $oTemplate->get < ) ; 

$oDBO->disconnect ( ) ; 

return 0; 
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###sign u p_toc.cgi 



# ! /usr/bin/perl 

## Written by Martin Hald <mhald@uci . edu> on Sat, Jan 30, 1999. Updated 

## Fri Apr 5, 1996 to use new templates. 

## 

## Modified by Justin White on 10/11/1999 so that it sets a cookie. 
## 

## Modified by Martin Hald on 11/15/1999 so that is now accepts 
## - partner 
## - language 
## - agreeuri 
## - disagreeuri 

use strict; 

use lib ($ENV{PERL_XDRIVE_LIB} ) ; 
use CGI; 

use CGI:: Carp qw (f atalsToBrowser) ; 
use XDrive :: Template; 
use XDrive: :CGI: : Cookie; 

&main ( ) ; 

exit; 

sub main { 

my $cookie; 

my $sPartnerCode; 

my $oCGI = new CGI; 

my $oCookie — XDrive :: CGI :: Cookie->new ( 1 x_session_inf o ' , $oCGI); 

my $sReferee = $oCGI->param( 1 referee ') ; 

my $sPartner = $oCGI->param( 'partner *) ; 

my $sLanguage = $oCGI->param {' language ' ) ; 

my $sRef ered_f rom = $oCGI->param ( ■ type ' ) ; 

$oCookie->setElement ( { 'partne^code * =>$sPartner } ) ; 
$oCookie->setElement ( { ' language • =>$sLanguage } ) ; 

if ($sReferee ne ( 

$oCookie->setElement ({ 'referee • => $sReferee}); 
$oCookie->setElement { { 1 ref ered_f rom' => $sRef ered_f rom} } ; 
print "Set-Cookie : " . $oCookie->asString ( ) ; 

) 

if (! defined $sPartner) { 
$sPartner = 'xdrv 1 ; 

} 

## Load the terms and conditions 

my ShDefaults = { 'partner_code • =>$sPartner, f cookie • =>$oCookie } ; 
my.$oContent = new XDrive :: Template ($hDefaults) ; 
my $oLayout - new XDrive: : Template ($hDefaults) ; 

$oContent->load ( 'presignup. thtml ' ) ; 

if ($sPartner eq 'xdrv') { 

my $oNavigation = new XDrive :: Template ($hDefaults) ; 
my $oHeader = new XDrive :: Template ($hDefaults) ; 

my $oFooter = new XDrive: : Template ($hDefaults) ; 
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$oLayout->load ( * layout . thtml f ) ; 
$oNavigation->load ( ' f ront_nav. thtml ' ) ; 
$oHeader->load{ • presignup_header . thtml * ) ; 
$oFooter->load { *presignup_f ooter . thtml ' ) ; 
$oContent->tags ({' header ' => $oHeader->get , 

'footer' => $oFooter->get, }); 
$oLayout->tags ( { 'navigation 1 => $oNavigation->get , 

' header_graphic' => 'header_registration.gif',}); 

} else { 

$oLayout->load ( ' tac_wrapper . thtml ' ) ; 

} 

my $sAgreeURI = $oCGI->param ( 'agreeuri ' ) ; 
my $sDisagreeURI = $oCGI~>param{ 'disagreeuri ') ; 

$oLayout->tags { { 'title' => 'Terms and Conditions', 

•content* => $oContent->get , 

'agreeuri' => $sAgreeURI # 

•disagreeuri' => $sDisagreeURI , } ) ; 
$oLayout->clear; 

print $oCG3»header () ; 
print $oLayout->get; 

return 0; 
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# ! /usr/bin/perl 
use strict; 

use lib $ENV{PERL_XDRIVE_LIB) ; 

use CGI qw(param redirect header cookie); 
use CGI: : Cookie; 

use LWP : : UserAgent ; 

use CGI::Carp qw (f atalsToBrowser ) ; 

use XDrive: : Client: : Security; 

use XDrive: : Client: : Actions; 

use XDrive: :DatabaseO: : Table: : DiskAccount ; 

use XDrive: :DatabaseO: : Search; 

use XDrive; : DatabaseO: : Transaction; 

use XDrive: : Template; 

use XDrive: :CGI qw(:MAIN); 

use XDrive: : CGI: : Cookie; 

use XDrive: : DatabaseO; 

use XDrive: : Error; 

use constant TRUE => (1==1 ) ; 
use constant FALSE => ! TRUE; 
use Token; 



my $oDB0 = new XDrive :: DatabaseO; 
main ($oDBO) ; 

$oDBO->disconnect ; 
exit; 



## NOTE: Remove the quota check from here. will be handled in iava 
############################# #############f8################ # j • 



sub main 
{ 



my $oDBO » shift; 

my $oCGI = CGI->new(>; 

my $oErr = new XDrive :: Error; 

my SoCookie = XDrive: : CGI : :Cookie->new ( f xd_std_JLnfo ' , $oCGI) ; 



## params for file url and file name 

my $sFileURL - $oCGI->param ( ■ FILEURL 1 ) ; 

my SsFileName = $oCGI->param { 1 FILENAME r ) ; 

my $sAltURL = $oCGI->param ( 'ALTURL • } ; 

my $sSid « $oCGI->param ( 'SID' ) ; 

my $sGid = $oCGI~>param ( 'GID' ) ; 

my $sCatId = $oCGI->param ( 'CATID' ) ; 

my $sPartnerCode « $oCGI->param { 1 STDPARTNER * ) ; 

my $sLanguageCode = $oCGI->param( 1 LANG ■ ) ; 

my $sOsemame =» $oCGI->param( 'user • ) ; 

my $sPassword » $oCGI->param ( 'pass • ) ; 

my $sError = $oCGI ->par am (• error ' ) ; 

my $sCookie = $oCGI->cookie { ' SST ' ) ; 
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my $sessionCookie; 

my $s Promo = ' ' ; 

my $sPartnerParams = ""; 

my $sCNetString = 



## IF THE SPECIAL CI NET VARIABLES ARE DECLARED 

## THEN GENERATE THE C I NET STRING 

## THIS URL IS CALLED FOR ANY FILE DOWNLOADED 

## FROM C| NET SO THAT THEY CAN CREDIT THE FILE 

## BEING DOWNLOADED 

if ( 

($sSid != ") && 
($sGid != ") && 
($sCatId ! = 1 ' ) 
) { 



$sAltURL = "http://beta.cnet.com/downloads/0-" . $sCatId . "-107-" 
. $sSid . " .html?tag=ex.dl.xdrive"; 

## IF YOU ARE ON THE TEST SERVERS, 
## THEN USE C | NET'S TEST URL 
if ( 

<$ENV{ f HTTP_HOST' } eq 'martini.xdrive.com') II 
($ENV{ 'HTTP_HOST* } eq ' ant if reeze • xdrive . com ' ) 
) { 

$sCNetString = "http: //abv-s j c2- 
export2 . cnet . com/downloads /O, 10152, 0-" . 

SsCatld . 
"-110-" . 
$sSid . 

OO.html?gid=" . 
$sGid . 

"&tag=ex.dl,xdrivepop.dlcgi. " • 
$sSid; 

## ELSE, USE THEIR REAL URL 
} else { 

$sCNetString = "http: //abv-s j cl- 
export2. cnet . com/ downloads /O, 10152, 0-" • 

$sCatId . 
"-110-" . 
$sSid . 

", OO.html?gid= w . 
$sGid . 

w &tag=ex. dl . xdrivepop . dlcgi . n . 
$sSid; 

) 



$sPartnerParams = 
' ? STDPARTNER=$sPartnerCode&LANG=$sLanguageCode&ALTURL=SsAltURL f, ; 

$oCookie->setElement ( 
{ 

' FILEURL ' => $sFileURL, 
• FILENAME 1 => $sFileName, 



116 of 137 

135 



BNSOOCID: <WO . 0133381A1JA> 



W ° 01/33381 PCT/USOO/30536 

1 ALTURL ' => $sAltURL, 

' STDPARTNER • => $sPart nerCode, 

1 LANG 1 -> SsLanguageCode, 

'CATID' => $sCatId, 

'SID' => $sSid, 

•GID" => $sGid, 

}); 

print "Set-Cookie: $oCookie->asString ( ) ; 

my $n = 0; 
my $rv; 

## Create the database object 

my $oSearch = XDrive : : DatabaseO: : Search->new ($oDBO) ; 

##The token for the user session 
my $oToken; 

## If u/p 

if (defined SsUsername && defined $sPassword) 
{ 

## Auth or fail 

if (xdyauth_password($sUsername, $sPassword, $oDBO) ) 

$oToken = xd_iogin ($oCGI , $sUsername, $oErr ) ; 
$sessionCookie - xd_set session cookie ($oCGI, 
^sPartnerCode, SsLanguageCode, $ s Promo ) ; ~~ ~~ 

} 

else 

{ 

## Login failed 
my $r - get HTMLContent 
( 

' skip_the_download_login_f ailed . thtml ' , 
SsFileURL, 
SsFileNaroe, 
$sAltURL, 
$sPartnerCode, 
SsLanguageCode 

); — 

print "Content-type: text /html \n\n w ; 
print $r; 
return 1; 



} 

## error or cookie not defined 
elsif ( (length ($sError) > 0) I | (length ( $sCookie ) 0) ) 

## show the login page 

my $r = get HTMLCont ent (' skip_the_download_login. thtml • , 

$sFileURL, 

$sFileName, 

$sAltURL, 
$sPartnerCode, 
$sLanguageCode 
); 

print "Content-type: text/html\n\n"; 
print §r; 
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return 1; 
} 

else 

## cookie defined so authenticate it 
{ 

SoToken = xd_security_check ( $oDBO, $oCGI , $oErr ) ; 
$sessionCookie = xd_set_session_cookie ($oCGI, $sPartnerCode, 
$sLanguageCode, $sPromo) ; 

i f { $oEr r->Occurud ) 
{ 

print $oCGI->redirect ( Vcgi- 
bin/skip_the_download. cgi?&error=expired&$sPartnerParams" ) ; 

return 1; 

} 

} 



if (!$sFileURL) { 

my $thtml = ($sAltURL != • ■)? 
' skip_the_download_no_alt_error . thtml ' 

: ' skip_the_download_error . thtml ' ; 



my SsMessage « $oErr->ReturnMessageGivenCode ( 1220) ; 

&ThtmlErrorOut ($thtml, 
$sMessage, 
$sFileURL, 
SsFileName, 
$sAltURL, 
$ s Pa r t n e r Code , 
$sLanguageCode 
); 

} 



## create the Actions object and download the file 

my $oAction = new XDrive; : Client :: Actions ($oToken, $oCGI ) ; 

## set the filename and file url 
$oAction->STDFilename ($sFileName) ; 
$oAction->STDURL ($sFileORL) ; 

## see if file exists, if yes, give em message 
my $bFileExists = $oAction->STDFileExists ( ) ; 

if (SbFileExists) 
{ 

$oDBO->disconnect ( ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (1242 ) ; 

ErrorOut ($sMessage, SsFileURL, $sFileName, $sAltURL, $sPartnerCode, $sLangua 
geCode ) ; 

) 

## Check that the file is not already being downloaded 
if ($oSearch->XDSTDBeingDownloaded ($oToken->user, SsFileURL) ) 
{ 

$oDBO->disconnect < ) ; 

my $sMessage = $oErr->ReturnMessageGivenCode (124 3) ; 
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geCode^ r ° rOUt ($sMeSSa ^ e ' $sFileURL ' ^FileName, SsAltURL, SsPartnerCode, $sLangua 
) 

## Spool the action to download the file 

my ^Transaction = new XDrive :: DatabaseO: : Transaction ($oDBO) ; 
my SnSeq = $oTransaction->insertSkipTheDownload 

$oTo)cen->user, 
$sFileName / 
$sFileURL, 
0, 

undef 
) ; 

$oTransaction->commit ; 

## Insert failed return an error 
if <$nSeq < 0) 
{ 

$oDB0->dis connect {) ; 

my $sMessage = $oErr->ReturnMessageGivenCode ( 124 4 ) ; 

geCode^r° r ° Ut ($SMeSSage ' $ sFil <^RL, $sFileName, SsAltURL, SsPartnerCode, SsLangua 
} 

## IF THE INSERT DIDN'T FAIL, 

## AND THE SPECIAL C | NET URL ISN'T NULL 

## THEN CREDIT C | NET 

elsif ($sCNetString ne ■ •) 

{ 

my $oUA = new LWP :: User Agent; 

$oUA->agent ("XDriveSTD/O. 1 " . $oUA->agent ) ; 

# Create a request 

my $oRequest - new HTTP: ; Request GET -> $sCNetString; 

# Pass request to the user agent and get a response back 
my SoResult - $oUA->request ( $oRequest ) ; 



print redirect ( w /cgi- 
bin/skip_the_download_status.cgi?seq=$nSeq&$sPartnerParanis w ); 



sub ErrorOut ( ) 
{ 

my $sMessage = shift; 
my $sFileURL = shift; 
my $sFileName « shift; 
my $sAltURL = shift; 
my $sPartnerCode = shift; 
my $sLanguageCode = shift; 
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my $html = sgetHTMLContent ( 1 skip_the_download_no _alt_error . thtml • , 

SsFileURL, 
$sFileName, 
$sAltURL f 
$sPartnerCode, 
$sLanguageCode, 
$sMessage, 
) ; 



print "Content-type : text/html\n\n" ; 
print $html; 
exit (0) ; 



sub ThtmlErrorOut ( ) 
{ 

my $ thtml * shift; 

my $sMessage = shift; 

my $sFileURL - shift; 

my $sFileName = shift; 

my SsAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $htrol = SgetHTMLContent ($thtml, 

SsFileURL, 
SsFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sMessage, 

) ; 



} 



print "Content-type : text /html\n\n"; 

print $html; 

exit(0); 



sub getHTMLContent 
{ 

my $thtmlfile = shift; 

my $sFileURL — shift; 

my SsFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my SsMessage » shift; 

my $template = new XDrive: : Template 
<{ 

' partner_code 1 —> $sPartnerCode, 
•language* => $sLanguageCode, 

'file 1 => $thtmlfile, 

"tags* => 
{ 

f FILE_URL' ■ => $sFileURL, 
' FILE_NAME ' $sFileNaroe, 
•ALTURL' => $sAltURL, 
'LANG' => SsLanguageCode, 



139 



120 of 137 



RNSDOCID: <WO 



0133381A1 IA> 



WO 01/33381 PCT/US00/30536 
' STDPARTNER * => $sPartnerCode, 
•message* => $sMessage, 
} 

}); 

$template->clear () ; 
return $template->get ; 

} 

## Create a string which makes the previously created 
## cookie expire. 

sub empty_cookie 
{ 

my $oSelf - shift; 
my $cookie = new CGI:: Cookie 
( 

-name => ■ sst • , 
-value => • ' , 
-expires => • -1M' 
) ; 

print header (-cookie=> [$cookie] ); 
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###skip_the_download_status.cgi 

# ! /usr/bin/perl 

use lib ($ENV{PERL_XDRIVE_LIB}) ; 

use CGI qw (header redirect); 
use XDrive: :CGI; 
use XDrive: rClient: .-Actions; 
use XDrive: :Client: rSecurity; 
use XDrive: :DatabaseO; 

use XDrive: :DatabaseO: :Table: : SkipDownload • 
use XDrive: : Template; °' 
use XDrive: : Error ; 
use XDrive: : Library; 
use Token; 

use strict; 

use constant TEMP_DIR XDSTDTempDirectory ( ) ; 

Smain; 
exit (0) ; 

sub main 
{ 

## get parameters 

my $nFileSize; 

my $sTempFile; 

my SsFileName; 

my $sError; 

my $nStatus; 

my SbDone; 

my $percent - 0; 

my SnDownloadedSize = 0; 

my $sURL; 

my $nNow; 

my $oCGI = new CGI(); 

my $nSeq - $oCGI-> para m { • seq ■ ) ; 

my $nStart = $oCGI-> P aram (• start •) • 

mC Sf; rtnerC ?! = $oCGI->param( 1 STDPARTNER" ) ; 

my SsLanguageCode = $oCGI->param ( ' LANG ' ) ; 

my SsAltURL $oCGI->parani ( ' ALTURL 1 ) • 

my $previous_percent = $oCGI-> par am ( 'pp ■ } ; 

## SET THE CON^ECTION_CO"NT = 0 IF IT ISN'T PASSED IN 

my S c„„ n ec ti< ,„_co u „t - < S oC GI ->pa rM1( J , . cc . , , 0; 

my $oErr = new XDrive: .-Error ; 

## get the token and the action object 
my $oDBO - new XDrive :: DatabaseO; 

ZZ i°I°+* n = Xd - Securit y_ cn eck($oDBO,$oCGI,$oErr)- 

-y SoActaon = new XDrive : .-Client :: Actions (SoJoKn,' $0 CGI, ; 

my $ s Partner Params = 

"STDPARTNER=$sPartnerCodeSLANG=$sLanguageCode&ALTORL=$sAltURL" ; 
i f ( $oErr->Occurud ) 
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{ print redirect ("/cgi-bin/skip_the_downloaci.cgi?$sPartnerParams"); 
return; 

} 

## if the sequence number was passed then get infomation from the 

database - 

if (defined $nSeq) 

{ ## load the information from the datbase 

my $oSkip = XDrive: :DatabaseO:: Table : : SkipDownload->new (undef , $oDBO) 
SoSkip->loadWhere ( • SEQ' , $nSeq) ; 

SnFileSize - $oSkip->f etchColumn ( ' FILE_SIZE_BYTES ■ ) ; 

$sTempFile = $oSkip->f etchColumn {' FILENAME_FORJTEMP_FILE ') ; 

$sFileName - $oSkip->f etchColumn (• FILE_NAME' ) ; 

$nStatus - $oSkip->fetchColumn('IS_ACTIVE'); 

$sError = $oSkip->f etchColumn ( • ERROR_CODE' ) ; 

$sURL = $oSkip->f etchColumn { ' FILE_URL' ) ; 

$bDone - $oSkip->f etchColumn ( ■ IS_DONE ' ) ; 

} 

## XDRIVE. SKI P_THE_DOWNLOAD.IS_ACTIVE lengend 
## 0 - still in queue 
## 1 - being downloaded 
## 2 - on hold 

## IF CONNECTION_COUTN > 9, THEN GO TO THE FILE NOT FOUND (1220) ERROR 
## DISPLAY, BUT KEEP TRYING TO DOWNLOAD THE FILE 
if ($connection_count >9) { 
$sError=1220; 

} 

## IF AN ERROR OCCURRED THEN DISPLAY IT 
## AND THEN EXIT{0); 
if (defined $sError) 
{ 

if ($sError 1240) 



{ 



SDisplayQuotaError ( ' ' , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
5 sLanguageCode 

) ; 



) 

else 

* my $oErr = new XDrive: : Error ; 

$oErr->AddErrorByErrorCode ($sError) ; 
SDisplayError ($oErr->Message () , 
$sURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode 

); 

} 

} 

## IF THERE IS NO ERROR, THEN GATHER STATUS 
## AND DISPLAY TO THE USER 
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else 
( 

## Get file size, later change to get from a tmp file 
my $sPath = TEMP_DIR. M /$sTempFile" ; 



## IF STATUS IS LISTED AS DONE IN THE DB, 
## THEN SHOW THE DONE PAGE 
if ($bDone == 1) 
{ 

&DisplayDone ( ■ • , 
$sURL, 
$sFileName / 
$sAltURL, 
SsPartnerCode, 
$sLanguageCode 
) ; 

} 

## ELSE FILE IS NOT DONE, 

## GATHER MORE DATA AND DISPLAY TO USER 

else 

{ 



## IF STATUS IS NOT ACTIVE, OR THE FILE DOESN'T EXIST 
## THEN DISPLAY THE CONTACTING SERVER PAGE 
## REMOVED: || ! -e $sPath 
## FROM CHECK 

if ( (SnStatus =-0 || -e $sPath) 
&& { ! ($previous_percent >= 0)) 

) 

{ 

&DisplayContactServer <$nSeq, $sURL, $sFileName, $sAltURL, $sPartnerCode, $sL 
anguageCode, $sPartnerParams, Sconnection count) ; 
} 

## ELSE, GATHER STATUS DATA 
## AND DISPLAY TO USER 
else 
{ 

## Set the start time in seconds since the epoch if not passed 
## as parameter 

if (! defined $nStart II $nStart !~ / A \d+$/) 
$nStart = timef); 

} 



## IF NO FILE SIZE HAS BEEN SET IN THE DB 
## DISPLAY ZERO PERCENTAGES TO THE USER 
if (! defined SnFileSize If SnFileSize == 0) 
{ 

$nFileSize = 'O'; 
$percent = 1 0 ■ ; 

&DisplayStatus($nSeq, $ P ercent,$sFileName,$nFileSize, • », 
$nStart, • f , • • , 

$sAltURL, $sPartnerCode,$sLanguageCode, $sPartnerParams ) ; 
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## ELSE 

## * THERE WAS NO ERROR 
## * THE PILE WAS NOT DONE 

## * THE FILE EXISTS IN THE TEMPORARY DIRECTORY 
## * THE DB HAS AN EXPECTED FILE SIZE 

## SO READ THE FILE # CALCULATE DATA, AND DISPLAY TO USER 

else 

{ 

## These checks are performed before inserting the skip 

information 

## into the database, but we will do it again here to be 

safe . 



# my $sError - $oErr->ReturnMessageGivenCode ( 14 1 ) ; 

# XDErrorToBrowser ( M " , $sError , undef ,$oToken) ; 

##die "Cannot check $sPath w if $sPath /\.W; 
##die "Cannot check $sPath" if $sPath /\/\//; 



## Get the size of the download object 
my @file_info - stat ($sPath) ; 

## Conver the downloaded file size into KB 

if <$file_info[7] > 0) 

{ 

$nDownloadedSize = $f ile_info [7] ; 

if ($nFileSize > 0) 
{ 

$percent = 100 * $nDownloadedSize/$nFileSize; 
} 

if ($percent < 0) 
{ 

$percent = 0; 
) 

$percent = sprintf ("% . 2f ", $percent ) ; 
} _ 

## IF THE FILE IS GONE NOW, OR SOMEOTHER CONDITION, THE USER 
## WILL NEVER SEE THE %DONE DROP 

## USE WHICH EVER IS LARGER, THE PRECENT THAT WE JUST 

DISPLAYED 

## OF THE ONE THAT WE JUST READ FROM THE FILE SYSTEM 
$percent = ($previous_percent > $percent) ? $previous_percent 
: $percent; * 

## We have already transfered some of the file, so we can now 
## estimate the download time. 
$nNow = time { ) ; 

my $sInfo; 

my $nElapsedSec = $nNow - $nStart; 
my $nTransPerSec - 0; 

if ($nElapsedSec) 
{ 

$nTransPerSec = $f ile_info [7] /$nElapsedSec; 

} 



if ($nTransPerSec > 0) 
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{ 

my $partial = $percent/100; 

my (SnSecsRemain, $nMin, SnSecs, SnTransPerSecMB) ; 

if ($partial == 0) { 

$sInfo = ' 1 ; 
} else { 

SnSecsRemain « <$nElapsedSec/$partial ) -$nElapsedSec; 
SnMin - int ( $nSecsRemain/60) ; 
$nSecs = SnSecsRemain % 60; 
SnTransPerSecMB = SnTransPerSec/1024 ; 

} 

m , xm ^ $sInfo = sprintf <", %d:%02d remaining (%.2f 

KB/sec)" r $nMin,$nSecs 

, SnTransPerSecMB) ; 

my SnTrans; 

my $k = "KB"; 
my $nDiv = 1024; 

my $nTempSize = $f ile__inf o [7] || 0; 

if ($nFileSize > 1024*1024) 
{ 

$k = "MB"; 

$nDiv = 1024*1024; 

} 

if (SnFileSize < 0) 
{ 

$nFileSize = 0; 
} 

$nFileSize = sprintf { "% . 2f " , $nFileSize/$nDiv) ; 
$nTrans - sprintf ("%. 2f", $nTempSize/$nDiv) ; 

&DisplayStatus($nSeq / $percent / $sFileName7$nFileSize / • 
$nStart,$sInfo, $k, 

$sAltURL, $sPartnerCode / SsLanguageCode, $s Partner Pa rams) ; 

## END OF READING DATA FROM SYSTEM AND 

## DISPLAYING TO USER 

} 

## END OF NO EXPECTED SIZE IN DB 
## SHOW USER ZERO PERCENTAGES 
) 

## END OF FILE MUST BE DONE 

## SO SHOW A DONE 

) 

## END OF NO ERROR 
) 

$oDBO->disconnect ; 
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sub DisplayContactServer 
{ 

ray 

($nSeq, $sURL, $sFileName, $sAltURL, $sPartnerCode, SsLanguageCode, $sPartnerParams 
, $connection_count) = @_; 

my ($sHostname) = $sURL =~ /\/\/ ( [ *\/] + ) \//; 
$connection_count++; 

## load the status page 
my $template = new XDrive :: Template 
{{ 

•partner^code 1 => SsPartnerCode, 
•language' => $sLanguageCode, 

1 file • -> ' skip_the_download_contacting . thtml ' , 

•tags' => 

{ 

'hostname 1 — > $sHostname, 

'continue_to' => "/cgi- 
bin/skip the_download_status . cgi ?seq=$nSeq&cc=$ connect ion_count &$ sPartner Para 
ms", 

•fileName' => $sFileNarne, 
'altURL' => $sAltURL, 
} 

}) ; 

print "Content-type : text /htmlXnXn" ; 
print $template->get ; 

} 



sub DisplayStatus 
{ 

my $nSeq = shift; 

my $percent = shift; 

my $filename = shift; 

my $filesize = shift; 

my ^transferred = shift; 

my $start = shift; 

my $info — shift; 

my $k = shift; 

my $sAltURL « shift; 

my $sPartnerCode = shift; 

my SsLanguageCode - shift; 

my SsPartnerParams = shift; 

my $percent_disp; 

if (Sfilesize <= 0) 
{ 

$filesize = 'Unknown'; 
$k = ' *; 

$percent_disp = 'Unknown'; 
$percent =0; 

} 

else 
{ 

$percent_disp = "$percent%"; 

} 

## load the status page 
my $template = new XDrive :: Template 
U 
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•partner_code ? => $s Par tnerCode, 

'language' => SsLanguageCode, 

' file ' => 1 skip_the_download__status . thtml ' , 

•tags' => 

{ 

• PERCENTJHSP' => $percent_disp, 

• PERCENT 1 => $percent, 

' FILE_NAME 1 => $ filename, 

' FILE_SIZE 1 => $filesize, 

' TRANSFERRED ' => $transf erred, 

1 TRANS INFO * => $info, 

•K» => $k, 

•URL' => Vcgi- 

bin/skip_the_download_status . cgi?seq=$nSeq&st art =$start&pp=$percent&$s Partner 
Params", 

* altURL' => $sAltURL 
} 



$ template- >clear; 

print "Content- type: text /html \n\n M ; 
print $template->get ; 



sub DisplayDone 
{ 

my $sMessage = shift; 

my $sFileURL = shift ; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

&ErrorOut ( ' skip__the_download_complete . thtml * , 
$sFileURL, 
$sFileName, 
SsAltORL, 
$ s Par tnerCode , 
$sLanguageCode, 
SsMessage 
); 



sub DisplayError 
{ 

my $sError = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltORL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode = shift; 

my $thtml = ($sAlt(JRL ! = " •)? ■ skip_the_download_no_alt_error . thtml • 

: • s kip_the_download_er ror . thtml 1 ; 

SErrorOut <$thtml, 
$sFileURL, 
$sFileName, 
$sAltURL, 
$sPar tnerCode, 
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$ s LanguageCode , 

$sError 

) ; 



sub DisplayQuotaError 
< 

my $sError = shift; 

my $sFileURL = shift ; 

my $sFileName = shift; 

my SsAltURL = shift; 

my SsPartnerCode - shift; 

my $sLanguageCode = shift; 

SErrorOut ( 1 skip_the_download_quota_error . thtml ' 
SsFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
$sLanguageCode, 
$sError 
) ; 



sub ErrorOut ( ) 
{ 

my $sTHTMLFILE = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode - shift ; 

my $sLanguageCode = shift; 

my SsMessage « shift; 



my $template = new XDrive: : Template 
({ 

•language' => $sLanguageCode, 

'partner_code' => SsPartnerCode, 
'file* => $sTHTMLFILE, 
•tags* => 



{ 



} 

)>; 



'message' => SsMessage, 
'altURL' -> SsAltURL, 
•fileURL' SsFileURL, 
'FILE_NAME' -> $sFileName, 
• LANG ' => $sLanguageCode, 
'ALTURL ' => SsAltURL, 
' STDPARTNER ' => $sPartnerCode, 



my $html = $template->get ; 

print "Content-type: text /html\n\n"; 
print $html; 
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SsLanguageCode, 

$sError 

) ; 



sub DisplayQuotaError 
{ 

my SsError = shift; 

my $sFileURL = shift; 

my $sFileName - shift ; 

my SsAltURL = shift; 

my $sPartnerCode = shift; 

my $sLanguageCode — shift; 

SErrorOut ( ' skip_the_download_quota_error . thtml ' , 
$sFileURL, 
$sFileName, 
$sAltURL, 
$sPartnerCode, 
SsLanguageCode, 
$sError 
) ; 



sub ErrorOut ( ) 
{ 

my SsTHTMLFILE = shift; 

my $sFileURL = shift; 

my $sFileName = shift; 

my $sAltURL = shift; 

my $sPartnerCode = shift ; 

my $sLanguageCode = shift; 

my SsMessage - shift; 

my $template = new XDrive :: Template 

•language* => $sLanguageCode, 

• partner^ code ' => $sPartnerCode, 
•file' => $sTHTMLFILE, 

•tags' => 

{ 

•message' *=> SsMessage, 
•altURL' => SsAltURL, 
•fileURL' => $sFileURL, 

• FILE_NAME 1 => $sFileName, 
1 LANG ' SsLanguageCode, 

' ALTURL 1 => $sAltURL, 

• STDPARTNER ' => SsPartnerCode , 

} 

}); 

my $html = $template->get ; 

print "Content-type: text /html \n\n" ; 
print $html; 
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my $sUser_name = SoUserlnf o->f etchColumn ( • NAME FIRST*) " » 
$oUserInfo->fetchColumn( 'NAME^LAST' ) ; ~ 

my $sUser_email = $oUserInfo->f etchColumn ( f EMAIL ADDRESS 1 ) * 
$oUserInfo->finish () ; ~ 
$oUserInfo->disconnect () ; 



if ($sAddress) 
{ 



&send_mail ($sName, $sAddress, $sUser name, $sVser email 
$nUser_ID, $oCGI, SoToken, $oErr, $oCookie) ; 

&display_thank_you ($oCGI, SoCookie) ; 
} 



else 

{ 

&display_form($oCGI, $oCookie) 
} 



sub send_mail { 

my ($sName, SsAddress, $sUser_name, $sUser email, $nUser ID SoCGI 
$oToken, $oErr, SoCookie) = Q_; "~ ~ 

## send out email for each friend only if form is filled out 
## get number of friend fields 

my $numFriends = $oCGI->param ( "numFriends " ) ; 
for (my $i=l; $i<=$numFriends ; $i++) 
{ 

$sAddress = $oCGI->param ( ' f riends_email • . $i); 
$sName = $oCGI->param < • f riends_naroe ' .51); 

fr „ my $sMessa 9 e = &get_message($sUser name, $nUser ID, $sName, 

$sUser_name,$oCookie) ; ~ — 

##only send the mail if the email address is filled out 

if ($s Address) 

f 

my %toXdrive = 
( 

To => "$sName <$sAddress> w , _ 

Bcc => ■ ■ , 

From => w $sUser_email w , 

Message => $sMessage, 

Subject ^> "Check out X: drive!", 

) ; 

unless (sendmail %toXdrive) 
{ 

wasrn "## Mail error $Mail :: Sendmail :: error; 
if ($Mail: : Sendmail: terror /451/) 
{ 

my SsError = $oErr->ReturnMessageGivenCode ( 1310) ; 

XDErrorToBrowser ( Mw , SsError, undef , $oToken) ; 

else 

{ 

my $sError « $oErr->ReturnMessageGivenCode (1311) ; 
XDErrorToBrowser ( ■ t ell_a_f riend_error . thtml • , $sError , undef, $oToken) ; 

exit (1) ; 

} 

} 
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sub get__f ormf ield { 

my ($sNuiu, $oCookie) = @_; 

my $oFormField = new XDrive :: Template 
({ 

■ language * => $oCookie->getElement { • language ' ) , 

'partner_code * => $oCookie->getElement ( 'partner ' ) , 
J); 

$oFormField->load ( 1 tell_f orm_f ields . thtml 1 ) ; 

$oFormField->tags 
({ 

'number' => $sNum 
)); 

return $oFormField->get ; 



sub get_raessage { 

my ($sUser_name, $nUser_ID, $sName, $sUserEmail, $oCookie) = @_; 

my $oMessage = new XDrive :: Template 
({ 

• language 9 => $oCookie->getElement { * language ' ) , 

•partner_code ' =*> $oCookie->get Element ( 'partner* ) , 
} ) ; 

$oMessage->load ( 1 tell_a_f riend message . thtml • ) ; 

$oMessage->tags 
(I 

"user^name" => $sUser_name, 
•nUserJD' => $nUser_ID, 

• user_email ' => $sUserEmaii, ' 
1 f riend^name f => $sName 

}); 

return $oMessage->get ; 



sub display_form { 

my $oCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
U 

• language " $oCookie->getElement ( ■ language • ) , 

'partne^code' => $oCookie->getElement { 'partner 9 ) , 
>); 

$oForm->load ( • tell_a_f riend . thtml ■ ) ; 

my $numFriends = $oCGI->param( "numFriends") ; 

##construct the html for multiple input fields 
my SinputFields^* ' ; 

for (my $i=l; $i<=$numFriends ; $i++) J 
{ 

SinputFields = $inputFields . &get_f ormf ield <$i , $oCookie) ; 
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$oForm->tags 
({ 

' f riendsToTell ' => $input Fields , 
•numFriends* => $numFriends, 
}); 

print $oCGI->header, $oForm->get; 
exit (0) ; 

) 

sub display_thank_you { 
my SoCGI = shift; 
my $oCookie = shift; 
my $oForm = new XDrive :: Template 
{{ 

'language' => $oCookie->getElement (• language 1 ) , 

■partne^code' => $oCookie->getElement ( 'partner* ) , 
}) ; 

$oForm->load ( ' tell_a_f riend t_y . thtml • ) ; 

print $oCGI->header, $oForm->get; 
exit (0) ; 

} 
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###web_unauthorized.cgi 

# 1 /usr/bin/perl 

# Written by Martin Hald <mhald@uci . edu> on Sat Feb 13, 1999 
# 

# Program for showing unauthorized information and allowing the users to 

# re-login and possibly showing them a "forgot your password?" link. 

use strict; 

use lib ( $ENV { PERL_XDRIVE__LIB } ) ; 

use CGI qw(header param) ; 

use CGI::Carp qw ( f atalsToBrowser ) ; 

# use XDrive: :CGI qw(;MAIN); 

use XDrive: : Client: : Registrations- 
use XDrive: : Template; 
use XDrive: : Error; 

exit &main; 

sub main 

my $oCGI = CGI->new(); 

my $oLayout = new XDrive :: Template; 
my SoContent = new XDrive :: Template; 
my $oNavigation = new XDrive :: Template; 

$oLayout->partner ( 'xdrv' ) ; 
$oContent->partner ( 'xdrv' ) ; 
SoNavigation->partner ( "xdrv* ) ; 

$oLayout->load ( 1 layout . thtml • ) ; 
$oNavigation->load ( ■ front_nav. thtml 1 ) ; 

## Get the error key 

my $sError = $oCGI->param ( • error • ) ; 

##now get the error message associated with that-error 
my $oErr = new XDrive :: Error; 

my $message = $oErr->ReturnMessageGivenCode ($sError ) ; 

## Load the required template HTML files, 
my SoForm = new XDrive :: Template; 
$oForm->partner ( • xdrv ■ ) ; 
$oForm->load( "f r on t_nav . thtml " ) ; 
$oContent->load ( "unauthorized . thtml " ) ; 

## Update the layout 
$oLayout->tags 
({ 

•header^graphic' => 'header denied. gif 
}}; " 

## Update the content 
$oContent->tags 
' << 

•error^message* => $messaqe 
}) ; 

$oContent->clear ( ) ; 
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## Print out the HTML and exit 
$oLayout->tags 
<{ 

'content' «> $oContent->get , 
'navigation 1 => $oNavigation->get , 
•title* -> 'Authorization Denied' 
}) ; 

print header (), $oLayout->get ; 
return 0; 



< 
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// Module: dlgShareAFile.h 1 

// Module: dlgShareAFile.h 3 

// Module: xdBase64.cpp 5 

// Module: xdBase64.h 9 

// Module: xdGlobals.h 1 0 

// Module: xdParseDate.h 13 

// Module: xdRegistry.h 14 

// Module: xdTokens.h 16 

// Module: xdTools.h 17 

// Module: xdEngine.h 20 

// Module: tdimsgtbLh 22 

// Module: tdisock.h 24 

// Module: xdFilelO.cpp 41 

// Module: xdDebugger.cpp 45 
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// 

// Module: dlgShareAFile.h 

//Subsystem: KnoWare Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class. 

// 

// 

// Copyright (c) 1 999 by X:dri ve(tm), Inc. 

// Portions Copyright (c) 1 996- J 999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

// 

// 

^include "stdafx.h" 
#inc!ude <xdGloba!s.h> 

#ifhdef_VXD_SOURCE_ 
# include "resource. h H 
#endif 

^include M dlgSha^eAFile.h ,, 

#ifdef_DEBUG 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

// 

// Implementation 

// 

BEGIN_MESSAGE_MAP(dlgShareAFile, CDialog) 

//{ {AFX _MSG_M AP(dlgShareAFile) 

//}}AFX_MSG_MAP 
END_MESSAGE_MAP() 

II 

// Method: dlgShareAFiieO 
// Purpose: Standard constructor 

// 

dlgShareAFiIe::dJgShareAFile(CWnd* pParent /*=NULL*/) 
: CDiaIog(dlgShareAFile::IDD, pParent) 

i 

//{ {AFX_DATA_rNIT(dlgShareAFile) 
rnsFileName - szEMPTY; 
m_sFileDescription = szEMPTY; 
m sEmai I Message = szEMPTY; 
msEmailSubject = szEMPTY; 
m_sEmailO = szEMPTY; 
m~sErnailI = szEMPTY; 
m"sEniaiI2 = szEMPTY; 
m_sEmail3 = szEMPTY; 
m_sEmail4 = szEMPTY; 
//} } AFX_DATA JN IT 
} // End of dlgShareAFiieO 

// — ~ 

// Method: DoDataExchange() 

// Purpose: Standard data exchange handler 

// 

void dlgShareAFile:: DoDataExchange(CDataExchange* pDX) 
{ 
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CDialog::DoDataExchange(pDX); 
//{ { AFX_DATA_MAP(dlgShareAFi!e) 
DDX_Text(pDX, IDC_SHARE_FILENAME, m_sFileName)* 
DDX_Text(pDX, IDC_SHARE_F1LEDESC, m^sFileDescription); 
DDX_Text(pDX, JDCJSHARE_EMAILMSG, injsEmailMessage)' 
DDXJText(pDX, IDC_SHARE_EMAILSUB, m_sEmaiISubject)- ' 
DDX_Text(pDX, IDC_SH ARE EMAILl , m_sEmailO) 
DDX_Text(pDX, IDC_SHARE_EMAIL2, m_sEmail])j 
DDX_Text(pDX, IDC_SHARE_EMAIL3, m_sEmai!2); 
DDX_Text(pDX, IDCSHAREEMAIL4, m_sEmaU3); 
DDX_Text(pDX, IDC_SHARE_EMAIL5 > m_sEmail4)- 
//} } AFX_DATA_MAP 
} // End of DoDataExchangeQ 



// 

// Method: OnlnitDialogO 

// Purpose: Called to initialize the contents of the dialog 
BOOL dlgShareAFile-OnlnitDiaJogO 

CDia!og::OnInitDia!ogO; 

UpdateData(FALSE); 

return TRUE; // return TRUE unless you set the focus to a control 

// EXCEPTION: OCX Property Pages should return FALSE 
} // End of OnlnitDialogO 



// 

// Method: OnOKO 

// Purpose: Called to close out the dialog. 
// 

void d!gShareAFile::OnOK0 
{ 

UpdateData(TRUE); 
CDia!og::OnOK(); 
} //End of OnOKQ 
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// Module: dlgShareAFile.h 

// Subsystem: Kno Ware Internet Engine (kwEngine.dll) 

// Contents: Declaration module for the dlgShareAFile class 

// 

// 



// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996- 1 999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#if ! defined(JTNC_DLG SH A RE AFI LE_H_) 
#define JNC_DLGSHAREAFILE_H_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1 000 

#ithdef_VXD_SOURCE_ 
#include "resource.))** 
#endif 

#ifiidef VXD SOURCE 



// 

// dlgShareAFile dialog class 

// 

class dlgShareAFile : public CDialog 
public: 

dlgShareAFiIe(CWnd* pParent = NULL); // standard constructor 

//{{AFX_DATA(dIgShareAFiIe) 
enum { IDD = IDD_SHARE }; 
CString m_sFileName; 
CString m_sFileDescription; 

CString m_sEmaiJMessage; 

CString m_sEmaiISubject; 
CString m_sEmaiI0; 
CString m__sEmaill; 
CString m sEmaiI2; 
CString m_sEmail3; 
CString m_sEmaiI4; 
//} } AFXJDATA 

//{ {AFX_VIRTU AL(dlgShareAFiIe) 
protected: 

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support 
//} }AFX_V1RTUAL ^ 

protected: 

//{ { AFX_MSG(dlgShareAFiIe) 
virtual BOOL OnlnitDialogO; 
virtual void OnOKO; 
//}}AFX_MSG 

DECLARE JvlESSAGEJv1AP() 

}> 

//{ { AFX_INSERT_LOCATION} } 
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// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 

#endif 

#endif// !defined(_INC_DLGSHAREAFILE_H_) 
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// Module: xdBase64.cpp 

// Subsystem: Xrdrive Client Engine (xdEngine.dll) 

// Contents: Implementation module for the xdBase64 class 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

//Portions Copyright (c) J 996- 1 999 by KnoWareOO, Inc. 

// AH rights reserved. 

// m 

// 

#include "stdafx.h" 
^include "xdBase64.h" 

#ifdef_DEBUG 

#undef THI S_FILE 

static char THIS_FI LE[]=_FILE 

tfendif 

#ifdef_VXD_SOURCE_ 

#include <xdEngine.h> 

^define TRACE DEBUG_DPRJNTF 

#endif 

// Static Member Initializers 

// 

// The 7-bit alphabet used to encode binary information 
CString xdBase64::mj>Base64 Alphabet = 

_T( "ABCDEFGHIJKLMNOPQRSTU VWXYZabcdefghijklmnopqrstuvwxyzO 1 23456789+/" 

int xdBase64::m_nMaskn = { 0, 1, 3, 7, 15, 31, 63, 127, 255 }; 

// 

// Method: xdBase64() 

// Purpose: Standard Constructor 

// 

xdBase64::xdBase64 ( void ) _ 
} //End ofxdBase64() 

// m 

II Method: ~xdBase64() 

// Purpose: Standard destructor 

// 

xdBase64::~xdBase64() 
{ 

} // End of ~xdBase64() 

// 

// Method: EncodeO 

// Purpose: Encodes a string 

// 

CString xdBase64::Encode(LPCTSTR szEncoding, int nSize) 

CString sOutput = _T( ); 
int nNumBits = 6; 
UINT nDigit; 
int Ip = 0; 
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ASSERT( szEncoding != NULL ); 
if( szEncoding = NULL ) 

return sOutput; 
mszlnput = szEncoding; 
m_n!nputSize = nSize; 

m_nBitsRemaining = 0; 

nDigit = read_bits( nNumBits, &nNumBits, Ip ); 

while( nNumBits >0) 

{ 

sOutput += m_sBase64AIphabet[ (int)n Digit ]; 
nDigit - read_bits( nNumBits, &nNumBits, lp ); 

} 

// Pad with as per RFC 1 52 1 
while( sOutput.GetLength() % 4 != 0 ) 
{ 

sOutput += '='; 

} 

return sOutput; 
} //End ofEncodeO 

// 

// Method: DecodeO 
// Purpose: Decodes data 

// Notes: The size of the output buffer must not be less than 3/4 the 

// size of the input buffer. For simplicity, make them the same 

// size. 

// 

int xdBase64::Decode(LPCTSTR szDecoding, LPTSTR szOutput) 
{ 

CString slnput; 
int c, Ip =0; 

int nDigit; 
CString strDecode; 

int* pDecode = (int*)strDecode.GetBuffer(256*sizeof(int)); 



ASSERT( szDecoding != NULL ); 
ASSERT( szOutput != NULL ); 
\f{ szOutput = NULL ) 

return 0; 
if( szDecoding = NULL ) 

return 0; 
slnput - szDecoding; 
if( sInput.GetLength() = 0 ) 

return 0; 

// Build Decode Table 
// 

for( int i = 0; i < 256; i++ ) 

pDecodep] = -2; // Illegal digit 
for( i=0; i < 64; i++ ) 
{ 

pDecode[ m_sBase64Alphabet[ i ] ] = i; 

pDecodef m_sBase64Alphabet[ i ] | 0x80 ] = i; // Ignore 8th bit 
pDecodef = 

pDecodef 1 0x80 ] = -!;// Ignore MIME padding char 



// Clear the output buffer 

memset( szOutput, 0, sInput.GetLength() + 1 ); 

// Decode the Input 
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// 

for( Ip = 0, i = 0; lp < sInput.GetLength(): lp++ ) 
{ 

c = slnputf Ip ]; 

n Digit = pDecodef c & 0x7F ]; 

if{ nDigit <-l ) 

{ 

return 0; 

} 

else iff nDigit >= 0 ) 

// i (index into output) is incremented by write_bits() 
^ write J>its( nDigit & 0x3F, 6, szOutput, i ); 

return i; 
} //End ofDecodeQ 



// . 

// Method: read_bits() 
// Purpose: dunno 

// 

UINTxdBase64::read_bits(int nNumBits, int * pBitsRead, int& !p) 
ULONG IScratch; 

while( ( mnBitsRemaining < nNumBits ) && 
( Ip < m_nInputSize ) ) 

int c = m_szlnput[ Ip-H- ]; 
mJBitStorage «= 8; 
m_lBitStorage |= (c & Oxff); 

m_nBitsRemaining += 8; 

ifl[ mnBitsRemaining < nNumBits ) 
{ 

IScratch « mJBitStorage « ( nNumBits - nwiBitsRemaining ); 
♦pBitsRead - mJiBitsRemaining; 
mnBitsRemaining = 0; 

else 
{ 

IScratch = mJBitStorage » ( m_nBitsRemaining - nNumBitsTT 
*pBitsRead = nNumBits; 
nwiBitsRemaining -= nNumBits; 

return (UINT)IScratch & m_nMask[nNumBits]; 
}//End ofread_brtsQ 



//- 



// Method: writej>its0 

// Purpose: dunno ' 

// 

void xdBase64::writeJ>its ( UINT nBits, int nNumBits, LPTSTR szOutput, int& i ) 
UINT nScratch; 

mJBitStorage = (mJBitStorage « nNumBits) | nBits; 
mnBitsRemaining += nNumBits; 
while( m nBitsRemaining > 7 ) 
{ 

nScratch = mJBitStorage » (nwiBitsRemaining - 8); 
szOutput[ i++ ] = (TCHAR)(nScratch & OxFF); 
rnjiBits Remaining -= 8; 
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} //End of write_bits() 
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// Module: xdBase64.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 

// Contents: Declaration module for the xdBase64 class. 

// 



// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#if !deflned(_INC_XDBASE64_H_) 
#define JNC_XDBASE64_H_ 

#ifdef_VXD_SOURCE_ 

^include <xdCString.h> 

#endif 

#if _MSC_VER >= 1000 
#pragma once 

#endif// MSC VER>= 1000 



// 

// xdBase64 encoder class 
// 

class xdBase64 
{ 

public: 

xdBase64 ( void ); 
virtual ~xdBase64 ( void ); 

virtual int Decode ( LPCTSTR szDecoding, LPTSTR szOutput ); 

virtual CString Encode ( LPCTSTR szEncoding, int nSize ); 

protected: 

void write J>its ( UINT nBits, int nNumBts, LPTSTR szOutput, int& Ip ); 
UINT read_bits ( int nNumBits, int* pBitsRead, int& Ip ); 

protected: 

int m_nInputSize; 

int m_nBitsRemaining; 

ULONG mJBitStorage; 

LPCTSTR m_szlnput; 

static int rnjiMaskQ; 

static CString m_sBase64 Alphabet; 

}; 

#endif // !defined(_JNC_XDBASE64_H_) 
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// Module: xdGlobals.h 

// Subsystem: Xrdrive 

// Contents: Global definitions used throughout the system 
// 



// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 



//- 

// 

// 

#ifhdef_INC_XDGLOBALS_H_ 
tfdefine _INC_XDGLOBALS_H_ 

#ifdef_VXD_SOURCE 



// 



//This HodgePodge helps us to be able to compile all of our code 
// under Ring-3 and Ring-0 without too much modification. 

#ifhdefUSE_NDIS 

^define USE_NDIS 

#endif 



^include <vtoolscp.h> 



// VTooIsD main header file 



#ifhdefLPCTSTR 

typedef char 
typedef unsigned char 
typedef const TCHAR* 
typedef TCHAR* 
typedef unsigned char 
typedef BYTE* 

typedef DSKTLSYSTEMTIME 
typedef HANDLE 
^define _T(x) 



#endif 



TCHAR; 
_TUCHAR; 
LPCTSTR; 

LPTSTR; 

BYTE; 

LPBYTE; 
SYSTEMTIME; 

HINSTANCE; 

(x) 



#ifhdef BASED_CODE 

#defme BASED_CODE 

#endif 

#imdef INVALID_HANDLE_VALUE 

#deflne INVALID_HANDLE VALUE (HANDLE). I 

#endif 



#define 

^define 

#deflne 

#deftne 

#define 

#define 

^define 

#define 

#deflne 

#deflne 

#define 

#define 

#define 



tcsstr 

_tcs!en 
_tcscpy 

tcsrchr stnrchr 

tcscat 
_ttoi 
Jtol 
_tcsrev 
_tcschr 

jcsncpy strncpy 
Jcspbrk strpbrk 

stprintf sprintf 

tcslwr 



strstr 
strlen 
strcpy 

strcat 

atoi 

atol 

strrev 

strchr 



strlwr 



// Standard Unicode mappings 
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#define _tcsupr strupr 

#define _tcsicmp stricmp 

^define _tcscmp strcmp 

^define _tcscolJ strcmp 

^define istdigit isdigit 

// #defme ASSERT Assert 

typedef HANDLE HWND; 

#endif 

// _ 

// Setup a whole bunch of constants that we can use throughout the systems 

#deflne chNL T^W) 

//define chCOMMA ~ X(7) 

#deflne chDOSSLASH .TfW) 

#deflne chUNIXSLASH _T(T) 

#define chQUOTE T(V) 

#define chDQUOTE X(V") ~ 

#define chPERJOD ~T(7) 

#define chBAR ~TC|') 

#define chTAB ~T(V) 

#deflne chCR ~T(V) 

^define chSPACE " xf •) 

#defme chCOLON ~TC:*) 

#define chSEMlCOLON T(Y) ~ 

#deflne chDASH Zt(V) 

//define chPLUS ~T( , +') 

#defme chPERCENT ItC%') 

//define chOPENB RACKET _T('[') 

#define chCLOSEBRACKET _T(J) 

#define chNUL TOO*) 

#defme chZERO J^C' 0 *) 

#define chONE _T( 9 l *) 

#define chTWO T{*T) 

//define chTHREE " XC3 1 ) 

fldefine chFOUR JJQV) ~ 

#define chFIVE T^S 1 ) 

#deflne chSIX ~T('6') 

^define chSEVEN ~ T(T) 

#define chEIGHT JITD 

#defme chNINE JT(W 

#define chOPENPAREN _TCO 
#define chCLOSEPAREM _TC)') 

#deflne chAT _xf @*) 

^define szNL T("\n") 

#define szCOMMA ~" x( H »j 

#define szDOSSLASH _T("\\") ~ 

#define szUNIXS L ASH JT( n r) 

#define szQUOTE T( mm ) 

//define szDQUOTE _TO" w ) " 

^define szPERIOD ~T( W . H ) 

#define szBAR ~T(T) 

//define szTAB JTC^ n ) 

//define szCR Zt('V") 

#define szSPACE ~T(" -) 

//define szCOLON * T(": H ) 

//define szSEMICOLON T( w ;") " 

^define szDASH _T( w - n ) 

^define szPLUS _T("+") 

#defuie szOPENBRACKET _T(T) 

tfdefme szCLOSEBRACKET _T("J") 
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#defme szAT _T( M @") 
#define szEMPTY _T( ,,W ) 
#define szCURRENTDIR _T( n . n } 

tfdefine szPARENTDIR _TC\. W ) 

#defme szFTP_DOT _T( M ftp. H ) 

#define szFTP_SLASH _T("ftp://") 

#defme szOPENPAREN _T(T) 
#deflne szCLOSEPAREN _T( M ) W ) 

tfdefine XD_CACHE_BASED1R _T("xdcache") 

#define XD_LOGFILE_NP JTCxdrive.log") 

#define XD_LOGFILE_VXD _Trxdrivevxd.log") 



// 

// We need to define the scope of values which will be used in the system. 
// They are defined here since we need to read/write these to the registry. 
// 

// 

// General defines 
// 

#defme XD_LEN_J32 32 

tfdefine XD_LEN_64 64 

#define XD_LEN_128 128 

#define XD_LEN_256 256 

#defineXD_LEN_512 512 

#define XD_LEN_1 024 1 024 

#defme XD_LEN_2048 2048 

// 

// these program IDs are also the 1st two digits of the registration number 
// 

#defme XD_PROGID_XDRlVE 0x53 // {DB21 12AD-0000-0000-0053-000004281965} 



// 

// IN will generate a directory listing and the local file that contains 
// that information will have an extension of \fhd\ For example, if 
// IN/FND does a directory listing of frp.microsoft.corn/softlib/mslfiles, 
// h will place the raw directory listing in the in the local IN cache 
// directory (which is currently defined as hanging off of the same 
// directory where IN is located) as 
// 

// c:\xdCacheVftp.microsoftxom\root.softlib.mslflles.Is 
// 

// and the parsed FND formatted data will be placed into 
// 

// c:\xdCache\frp.microsoft.com\root.softlib.mslfiIes.fiid 
// 

// the .fhd file is parsed out to produce the information returned as a 
// result of the FINDFIRSTQ/FINDNEXTO calls to the NP. 

// 

#define XD.F1LEEXT_.LS _T(".ls") 
#define XD_F1 LEEXT_XDR _T('\fhd M ) 
// 

// Here is our Network Provider Name 

// 

#defuie XD_PROVIDERJMAME _T( ,f Xdrive") 
#defme XD_PROVIDER NETID 0x00 1 20000 



#endif // INC XDGLOBALS H 
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// Module: xdParseDate.h 

// Subsystem: Xrdrive Tools Library (xdTools.dll) 

// Contents: Declaration module for the CParseDate utility class 

// Copyright (c) 1999 by X:drive(tmX Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

//All rights reserved. 

// 

// ~ 

// 

#ifhdef_rNC_XDPARSEDATE_H_ 
#define _INC_XD PARSED A TE_H_ 

^include <xdTokens.h> 



class XDTOOLS_PUBLIC CParseDate 
{ 

public: 

CParseDate ( void ); 
-CParseDate ( void ); 



BOOL 



Parse (LPCTSTRs); 



jnt m_iYear; 

int rnJMonth; 

int m_iDay; 

int m_iHour; 

in * m_iMinute; 

>nt m_iSecond; 

TCHAR m_szDate[64J; 

TCHAR m_szTime[32]; 

TCHAR rnj>zOrig[64]; 



private: 



}; 

#endif 



BOOL isNUM ( LPCTSTR s ); 

BOOL isDOW ( LPCTSTR s ); 

xdTokens m^tokens; 
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// 

// Module: xdRegistry.h 

// Subsystem: X:drive Tools Library (xdTools.dll) 

// Contents: Declaration module for the xdRegistry utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

#ifhdef_INC_XDREGISTRY_H_ 
^define JNC_XDREG1STRY_H_ 

#if_MSC_VER>= 1000 
#pragma once 

#endif // _MSC_VER >= 1 000 

^include <xdGlobals.h> // Xrdrive system wide globals 

^include <xdTools.h> // X:drive Tools Related 

II 

// xdRegistry 

// the registry class encapsulates the regitry functions. You must open 

// at least a hive in the constructor, then you can optionally open 

// a subkey & read/write information to the registry. All methods will return 

/A true upon successful completion, false will be returned if an error 

// has occurred. 

// 

class XDTOOLS_PUBLIC xdRegistry 
{ 

public: 

xdRegistryO; 
-xdRegistryO; 

// 

// public interface 

// 

public: 

BOOL RegOpenRead ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegOpen Write ( HKEY hHive, LPCTSTR szSubKey ); 
BOOL RegClose ( void ); 

BOOL RegDeleteKey ( HKEY hHive, LPCTSTR szSubKey ); 

BOOL RegDeleteValue ( LPCTSTR szVal ); 

BOOL RegEnumKey ( int i, LPCTSTR szKeyName, UINT uiLenWithNull ); 

BOOL RegEnumVal ( int i, LPCTSTR szValName, UINT uiLenWithNull, LPCTSTR 

szValData, UINT uiDataLenWithNull ); 

BOOL RegEnumStr ( int i, LPCTSTR szVal, UINT uiLenWithNull ); 

BOOL RegGetStr ( LPCTSTR sName, LPCTSTR szVal, UINT uiLenWithNull ); 
BOOL RegPutStr ( LPCTSTR sName, LPCTSTR szVal ); 

BOOL RegPutBin ( LPCTSTR sName, BYTE* pBuffer^ UINT uiLen ); 

BOOL RegGetNum ( LPCTSTR sName, BOOL& bVal ); 

BOOL RegGetNum ( LPCTSTR sName, WORD& wVal ); 

BOOL RegGetNum ( LPCTSTR sName, DWORD& dwVal ); 

BOOL RegGetNum ( LPCTSTR sName, UINT& uiVa! ); 

BOOL RegPutNum ( LPCTSTR sName, DWORD dwVal ); 
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LONG RegGetLastError ( void ); 

private: 

HKEY m JiKey; // the current open hive 
LONG m_IRetCode; // the last return code 

}; // End of xdRegistry 

#endif // JNC_XDREGISTRY_H_ 
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// 



// Module: xdTokens.h 

// Subsystem: Xrdrive Tools Library (xdTools.dll) 

// Contents: Declaration module for xdTokens utility class 

// 

// 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

#ifhdefJNC_XDTOKENS_H_ 
#define _INC_XDTOKENS_H_ 

#if JVfSC_VER>= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

^include <xdGIobals.h> // Xrdrive system wide globals 

#include <xdTools.h> // X:drive Tools Related 



#define XD_MAX_TOKENS 1 024 

// 

// xdTokens 

// This class is a big worker class, its used to parse strings into 

// tokens or substrings. Strings are parsed by supplying a string of 
// characters which will be used to parse out the string. 
// 



class XDTOOLS_PUBLIC xdTokens 
{ 

public: 

xdTokens(LPCTSTR pTokens = NULL); 
-xdTokensO; 



II 

II Public Interface 

// 

public: 

int 
int 

LPCTSTR 



Parse(int iNumToParse, LPCTSTR pString, LPCTSTR pTokens=NULL); 
Parse(LPCTSTR pString, LPCTSTR pTokens=NULL); 
operator[](int ilndex); 



// 

// Private Members 

// 

private: 

LPCTSTR 
int 

LPTSTR 
LPTSTR 
LPTSTR 
}; // End of xdTokens 



*in_pTok; 

m_iNumParsed; 

m_szWorkString; 

m_szTokens; 

m_pWorkString; 



#endif // INC XDTOKENS H 
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// 

// Module: xdTools.h 

// Subsystem: X:drive Tools Library (xdTooIs.dl!) 
// Contents: Main header file for the xdTooIs library 
// 

II 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

II 

// 

// 

#imdef_INC_XDTOOLS_H_ 
tfdefine _INC_XDTOOLS_H_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif//_MSC_VER>- 1000 

#include <xdGloba!s.h> // X:drive system wide globals 

tfifdef _VXD_SOURCE_ 
^include <xdCString.h> 
#endif 

#pragma warning (disable : 4100) 
#pragma warning (disable : 4201) 

// 

// The following code block will insure the proper resolution of any 

// API functions (and classes) which are exposed from the XDTOOLS library. 

// When compiling the XDTOOLS library source code, make sure that the 

// following #deflne is defined in the project settings (both debug & release). 

// This will cause any classes and/or API functions defined as to 

// be exported to the LIB file. If you are USING the library by linking to 

// the XDTOOLS.LIB or XDTOOLSD.LIB import libraries, then ignore the 

// following #define , s for 

// 

#ifdef_XDTOOLS_SOURCE_ 

tfdefine XDTOOLS_PUBLIC _declspec( dllexport ) 

Seise 

tfdefine XDTOOLS_PUBLIC //_declspec( dllimport ) 
#endif // „XDTOOLS_SOURCE_ 

// 

// If we are debugging & we trap an exception, we will display it 

// in a message box, otherwise in release mode, we wont. 

// 

#ifdef_DEBUG 

#define XDTRACE(x) AfxMessageBox(x) 

#else 

#define XDTRACE(x) TRACEO(x) 

#endif 

II 

// XDDATE API (Date Functions) 

// 

XDTOOLS_PUBLIC int XDDATE_MonthNum ( LPTSTR szMonth ); 

II 

// XDSTR API (String Functions) 

// 
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XDTOOLS 
XDTOOLS" 
XDTOOLS" 
XDTOOLS" 
XDTOOLS" 
XDTOOLS 
XDTOOLS 
XDTOOLS" 



PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 



LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
LPTSTR 
BOOL XDAPI 



XDSTR_Squish ( LPTSTR p ); 
XDSTR_StripChar ( LPTSTR p, TCHAR c ); 
XDSTR_DirSlashAdd ( LPTSTR sz, TCHAR c ); 
XDSTR_DirSlashRemove ( LPTSTR sz, TCHAR c ); 
XDSTRJTrimRight ( LPTSTR ); 
XDSTRJTrimLeft ( LPTSTR ); 
XDSTRJTrim ( LPTSTR ); 

CreatePath ( LPCTSTR ); // calls CreateDirectoryQ to make a path. 



// Stuff for messge boxes 
// 

#ifhdef_VXD_SOURCE_ 

int XDTOOLS_PUBLIC XD_MSG ( LPCTSTR szText, UINT uiMsgFlags ); 

int XDTOOLS_PUBLIC XD_QUESTION ( LPCTSTR szText, UINT uiMsgFlags ); 

LPCTSTR XDTOOLS_PUBLIC XDJTEXT ( HINSTANCE h, UINT uiResId ); // LOADS A 
RESOURCE! 

BOOL XD_DoHelp ( LPHELPINFO ); 

void XD_DoHelpContext ( CWnd* ); 

#endif 



// 

// the calling object needs to supply the resource 

// handle for loading the string. So set up a stupid macro 

// that will automatically supply this! 

// 

# define XD_LOADSTRJNG(x) XD_TEXT(AfxGetResourceHandle(),(x)) 
// 

// DEBUGGING STUFF 

// 

#define CATCH_MSG _T("Caught Exception in File %s, Line %d\n\n rt ) 
#ifdef_VXD_SOURCE_ 

#define XDCATCH dprintf(CATCH_MSG, _T(_FILE_), _LINE_ ) 

#else 

^define XDCATCH { CString s; s.Format(CATCH_MSG, _T(_FILE_), _LINE_ ); 
AfxMessageBox(s); } 
#endif 



// 

// Ring 0 File I/O 

// 

#ifdef_VXD_SOURCE_ 
#defme GENER1C_READ 
#define GENERIC, WRITE 
#define CREATENEW 
tfdefine CREATE_ALWAYS 
#define OPEN_EXISTING 
#defme OPEN_ALWAYS 
#define TRUNCATEEXISTING 
#defme FILE_SHARE_READ 
#define FILE SHARE WRJTE 
tfdefineFILE SHARE DELETE 



(0x80000000)/* from WINNT.H V 

(0x40000000)/* from WINNT.H V 

1 

2 

3 

4 

5 

0x00000001 
0x00000002 

0x00000004 // not supported 



HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read-write) mode 

DWORD dwShareMode, // share mode 

void* IpSecAtt, // pointer to security 

attributes 

DWORD dwCreateFlags, // how to create 

DWORD dwFlagsAndAttributes, // file attributes 
HANDLE); 
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BOOL CloseHandle ( HANDLE hFile ); 

BOOL ReadFile ( HANDLE hFile, // handle of file to read 

void* lpBuffer, // pointer to buffer that receives data 

DWORD nNumberOfBytesToRead, // number of bytes to read 
DWORD* lpNumberOfBytesRead, // pointer to number of bytes read 
void* IpOverlapped); // pointer to structure for data 



BOOL ReadFileLine ( HANDLE hFile, // handle of file to read 

BYTE* lpBuffer, // pointer to buffer that receives 



data 



DWORD d wBytesToRead, // number of bytes to read 

DWORD* dwBytesRead, // pointer to number of bytes read 

DWORD* dwOffset); // pointer to structure for data 



BOOL WriteFile ( HANDLE hFile, LPCTSTR IpBuffer, DWORD dwBytesTo Write, 

DWORD* pBytesWritten, void* p); 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ); 

#endif 

#endif // !definedC.INC_XDTOOLS_HJ 
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// 

// Module: xdEngine.h 

// Subsystem: Xrdrive Client Engine (xdEngine.dll) 

// Contents: Main include file for the xdEngine subsystem 

// 

// 



// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1 996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

//_ 

// . 

// 



#ifadef_INC_XDRIVE_ENGINE_H_ 
tfdefine _INC_XDRJVE_ENGINE_H_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif//_MSC_VER>= 1000 

#pragma warning (disable : 4100) 
//pragma warning (disable : 4201) 

#ifdef_XDENG!NE_SOURCE_ 

#define XDAPI_PUBLIC declspec( dllexport ) 

#else 

#define XDAPIJMJBLIC //_declspec( dllimport ) 
#endif // _XDENGINE_SOURCE_ 

#pragma pack(l) // byte pack this thing! 

#include <xdGIobals.h> 



// 

// XD_DIRENTRY - directory listing hem 

// 

// The following structure is used to hold an object in the file listing 

// file. Xdrive will generate the file list for the directory and store it 

// in the cache directory. That file will contain 

II a list of record structures of this type. The .mnd file is generated 

// based upon the FTP server specific format in the .idx file in the same 

// cache directory. 

// 

typedef struct _xd_direntry_ 
{ 

USHORT cb; // class size, MUST BE FIRST! ! ! ! 

DWORD dwFileAttributes; 

FILETIME ftCreationTime; 
FILETIME ftLastAccessTime; 
FILETIME ftLastWriteTime; 
DWORD nFileSizeHigh; 

DWORD nFileSizeLow; 
TCHAR cFi!eName[ XD_LEN_5 12 ]; 

TCHAR m_szObPerms [ XD_LEN_32 + 1 ]; 

BYTE m_bObOwnerPerms[4]; 

BYTE m_bObGroupPerms[4]; 

BYTE m bObWor!dPerms[4]; 

} XD__D1RENTRY, * LPXD_DIRENTRY; 

#pragma packO 
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// Return codes 
// 

typedef UINT X D_RETCODE; 
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#defme XD_SUCCESS 
#define XD_CANCEL 

#define XD_ERR_CONN ECTF A I LED (int)2 

^define XD_E RR_LOG INF A I LED (int)3 

#defme XD_E RR_CONNECTREFU SED (int)5 

#define XD_ERR_CANTRESOLVEHOST (int)6 

tfdefine XD_ERR_SERVERUPGRADING (int)7 



(int)O 
(int)l 



// socket connect failed 
// bad username/pwd 
// socket connect refused 
// cant resolve host 
// upgrading our servers 



tfdefineXD ERR OTHER 



GntH 



// 

// The following constants are used in the notification structure. 

// 

typedef enum 
{ 



XD NOTIFY 
XD~NOTIFY~ 
XD_NOTIFY~ 
XD NOTIFY" 



XDJMOTIFY_QUOTA 
XD_NOTIFY_START 
XD_NOTIFY_STOP 
} XD_NOTIFY_CODE; 



IDLE 

STATUS JvlSG = 1000, 

XFERDATA_DN = 1001, 

X FERDATA_U P = 1002, 



0, 



1003, 
1004, 
1005 



// nothing happening here 

// status msg 

// downloading 

// uploading 

// Update the quota 
// Start an operation 
// Stop an operation 



// ; 

// XDNOTIFY - This is our notification structure. The http engine 
// will use this structure to pass status information back to the 
// invoking method. 

// 

#pragma pack( 1 ) 

typedef struct _xd_notif!cation__ 
{ 

int m_iNotifyType; 

TCHAR m_szMessage [ 1024 ^ sizeoffTCHAR) ]; 

// 

// used for send/receive 
// 

ULONG m_dwStartTime; //GetTickCountO/1000 

ULONG m_dwCurrentTime; //GetTickCountO/1000 

DWORD mdwCurrentBytes; 
DWORD m_dwTotalBytes; 



TCHAR m_szLocaIFileName [ MAXPATH + sizeof(TCHAR) ]; 

TCHAR m_szRemoteFileName [ MAX_PATH + sizeof(TCHAR) J; 

} XD_NOTIFY, *LPXD_NOTIFY; 
^pragma packO 

#deflneXD NOTIFY MAX 50 



#endif // INC XDRJVE ENGINE H 
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// Module: tdimsgtbl.h 

// Subsystem: X:drive Client Engine (xdEngine.dll) 
// Contents: TDI Error table. 

// * 

II 

// Copyright (c) 1 999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

//All rights reserved. 

II 

// 

// 



#ifhdef TDIMSGTBLH 

#define TD I M SGTB L_H 

typedef struct 
{ 

TD1_STATUS Status; 
int WinStatus; 
char *szMsg; 
} INETTDIMSG; 



INETTDIMSG TdiMsgTblQ = 
{ 

{TDI_SUCCESS, ERROR_SUCCESS, "TDI Success"}, 
{TDI__NO_RESOURCES, ERROR_BAD_COMMAND, "No resources."}, 
{ TDI_ AD D R_rN_U SE, ERRORJB AD_COMMAND, "Address already in use."} , 
{ TDI_B AD_ADDR, ERROR_BAD_COMMAND, "Address given is bad/'}, 
{TDI_NO_FREE_ADDR, ERROR BAD COMMAND, "No addresses available."}, 
{TDI_ADDRJNVALID, ERROR_BAD_COMMAND, "Address object is invalid."}, 
{TDI_ADDR_DELETED, ERROR_BAD COMMAND, "Address object was deleted."}, 
{TDI_BUFFER_OVERFLOW, ERROR JBAD_COMM AND, "Buffer overflowed."}, 
{TDI_BAD_EVENT_TYPE, ERRORJB AD_COMMAND, "Bad event type."}, 
{TDl_BAD_OPTION, ERROR_BAD_COMMAND, "Bad option or length."}, 
{TDI_CONN_REFUSED, ERROR_BAD_COMMAND, "Connection was refused."}, 
{TDI__rNVALID_CONNECT!ON, ERROR_B AD_COM M AND, "Invalid connection."}, 
{TDI_ALREADY_ASSOCIATED, ERROR_BAD_COMM AND, "Connection already associated."} , 
{TDl_NOT_ASSOClATED, ERROR_BAD_COMM AND, "Connection not associated."} , 
{TDI_CONNECTION_ACTIVE, ERROR_BAD_.COM M AND, "Connection is still active."}, 
{TDI_CONNECTION_ABORTED, ERROR_BAD_COM M AND, "Connection was aborted."}, 
{TDI_CONNECTION_RESET, ERROR_BAD_COMMAND, "Connection was reset."}, 
{ TDI_TIMED_OUT, ERROR_BAD_COMMAND, "Connection timed out."}, 
{ TD1_GRACEFU L_DI SC, ERROR_BAD_COMMAND, "Received a graceful disconnect."} , 

{TDI_NOT_ACCEPTED, ERROR_BAD_COMMAND, "Data not accepted."}, 
{TDI_MORE_PROCESSING, ERROR_BAD_COMMAND, "More processing required."}, 
{TD1JNVALID STATE, ERROR_BAD_COMMAND, "TCB in an invalid state."}, 
{TDMNVALIDJPARAMETER, ERRORJB AD_COMM AND, "An invalid parameter."}, 
{TDI_DEST_NET_UNREACH, ERROR_.BAD.COMM AND, "Destination net is unreachable."}, 
{TDI_DEST_HOST_UN REACH, ERRORJBAD_COMMAND, "Dest. host is unreachable."}, 
{TDI_DEST_UN REACH ABLE, ERRORJB ADCO M M AND, "Dest is unreachable. "}, 
{TDI JDESTJ>ROT_lJNREACH, ERROR_BAD_COMMAND, "Destination protocol is unreachable."}, 
{TDIJDEST_PORT_lTN REACH, ERROR JBAD_COM MAN D, "Dest. port is unreachable."}, 
{TDI JNVALIDJJUERY, ERROR_BAD_COMMAND, "Invalid query type specified."} , 

{TDI_R£Q_ABORTED, ERROR_BAD_COMMAND, "Request was aborted for some reason."}, 
{TDI_BUFFERJTOO_SMALL, ERROR BAD COMMAND, "Buffer was too small."}, 
{TDI_CANCELLED, ERRORJBAD_COMMAND, "The request was cancelled."}, 
{TDI_BUFFERJTOOJBlG, ERROR_BAD_COMMAND, "Invalid request."}, 
{ ERROR_SEM_TIMEOUT, ERROR_SEM_T1MEOUT, 'Timed out."}, 
{TDI_PENDING, ERROR JBADCOMMAND, "Pending"} 
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}; 

tfendif 
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// Module: tdisock.h 

// Subsystem: Xrdrive Client Engine (xdEngine.dll) 

// Contents: TBI Socket header file. 

// 

// a 

// Copyright (c) 1999 by X:drive(tm), Inc. 

// Portions Copyright (c) 1996-1999 by River Front Software 

// AH rights reserved. 

// 

// " _ 

// " 

#iihdef_TDISOCK_H 
tfdefine TDISOCK_H 



#define TDISOCK_TlMEOUT 15000 
^define WSADESCRIPT!ON_LEN 256 
#define WSASYS_STATUS_LEN 128 
typedef short SHORT; 
typedef unsigned short USHORT; 
typedef unsigned short ushort; 
typedef unsigned int uint; 
typedef unsigned long ulong; 
typedef unsigned long ULONG; 



typedef void (♦CTEReqCmphRtnXvoid •Context, long FinalStatus, unsigned int ByteCount); 
typedef unsigned char uchar; 7 w " u,Bt * 



typedef struct WSAData { 

WORD wVersion; 
WORD wHighVersion; 

char szDescription[WSADESCRIPTION_LEN+ 1 ]; 

char szSystemStatus[WSASYS_STATUS LEN+1] 

unsigned short iMaxSockets; 
unsigned short iMaxUdpDg; 
char FAR * IpVendorlnfo; 
} WSADATA; 

typedef WSADATA FAR *LPWSADATA; 



#define USE_NDIS 1 

#include <vtoolscp.h> 
^include <crtl.h> 



#undefUSEJMDIS 



#include <tdi.h> 

# include <vxdsvc.h> 

# include <tdivxd.h> 

# include <tdistat.h> 

#undef VTDI_Device_ID \ 
^include <vtdi.h> 



Refine MAKELOTJG(i. b) ((LONG)(((WORDXa)) | ((D WORD)((W OR D)(b))) « 1 6)) 
^define LOWORD(l) ((WORD)(l)) ' 
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#define HI WORD(I) ((WORD)(((D WORD)(l) » 1 6) & OxFFFF)) 
tfdefine LOBYTE(w) ((BYTE)(w)) 

tfdefine HIBYTE(w) ((BYTE)(((WORD)(w) » 8) & OxFF)) 
/* 

* Structures returned by network data base library, taken from the 

* BSD file netdb.h. All addresses are supplied in host order, and 

* returned in network order (suitable for use in system calls). 
V 

struct hostent { 

char FAR * h name; /* official name of host */ 

char FAR * FAR * h_a!iases; /* alias list */ 

short h_addrtype; /* host address type */ 

short hjength; /* length of address */ 

char FAR * FAR * h_addrjist; /* list of addresses */ 
#define h_addr h_addrjist[0] /* address, for backward compat */ 

/**♦** Wait for semaphore flags */ 

#define WAIT_SEMA_FLAGS 0 //BLOCK_SVC_INTS | BLOCK_POLL 

/***♦* Macro to call wait on semaphore function */ 
#define SEMAPHORE^ WAIT( hSem, nTimeout ) \ 

WaitOnSemaphore( s, hSem, #hSem, nTimeout ) 



/♦**** Checks for valid TDI status */ 

#define TDI_CHECKSTATUS(s) if ( (s) != TDI_SUCCESS ) 
\ 

Line:%d TDI (%dj - %s\n'\ \ 
MapTdiToString(s)); ); \ 



/***♦* Destroys a semaphore */ 

^define SEMAPHORE_SAFE_DESTROY(hSem) \ 
if(hSem) 
{ 



\ 
{ 

errdebug( DBGJog( H ERROR - File: %s 

_FILE_, _LINE_, (s), 

goto Exit; 
\ 

} 



vbsdebug( DBGJog("Destroy Semaphore %s'\ #hSem); ); \ 
UtilSemDestroy(hSem); \ 

hSem = 0; \ 
> 



/****♦ Signals a semaphore */ 

#define SEMAPHORE_SAFE_SIGNAL(hSem) \ 

if(hSem) \ 

{ \ 
vbsdebug( DBGJogC*** Signal Semaphore %s w , #hSem); ); \ 
vbsdebug( DBGJogJiex Jong( hSem ); ); \ 
Signal_Semaphore_No_Switch( hSem ); 

\ 

} \ 
else \ 

{ \ 

vbsdebug( DBG_log( w *** NO SEMAPHORE TO SIGNAL %s", #hSem); ); \ 
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/* 

* Basic system type definitions, taken from the BSD file sys/types.h. 
*/ 

typedef unsigned char u_char; 
typedef unsigned short u_short; 
typedef unsigned int u_int; 
typedef unsigned long u_long; 



/* 

* Constants and structures defined by the internet system, 

* Per RFC 790, September 1981, taken from the BSD file netinet/in.h. 
*/ 

/* 

* Protocols 
*/ 



#define IPPROTO IP 


0 


/* dummy for IP */ 


#define IPPROTO ICMP 


1 


/* control message protocol */ 


#define IPPROTO 1GMP 


2 


/* internet group management protocol */ 


#define IPPROTO GGP 


3 


/* gateway^ (deprecated) */ 


#define IPPROTO TCP 


6 


/* tcp */ 


^define IPPROTO PUP 


12 


/* pup */ 


#define IPPROTO UDP 


17 


/* user datagram protocol */ 


tfdefine IPPROTO I DP 


22 


/* xns idp */ 


#define IPPROTO JMD 


77 


/* UNOFFICIAL net disk proto */ 


#define IPPROTO RAW 


255 


/* raw IP packet */ 


#define IPPROTO MAX 


256 





/* 

* Port/socket numbers: network standard functions 
*/ 

#define IPPORTJECHO 7 
#define IPPORT_DISCARD 9 
#de£ine IPPORT_SYSTAT 11 

#define I PPORT_DA YTIME 13 

#define IPPORT_NETSTAT 15 
#define IPPORTJTP 21 
#define I PPORTJTE LN ET 23 
#defme IPPORT_SMTP 25 
#define IPPORTTIMESERVER 37 
#define IPPORT_N A MESERV ER 42 
#define IPPORT_WHOIS 43 
#define IPPORT_MTP 57 

/* 

* Port/socket numbers: host specific functions 
*/ 

#define IPPORTTFTP 69 
^define IPPORT_RJE 77 
tfdefine IPPORT_FINGER 79 
#define IPPORTTTYLINK 87 
#define IPPORT_SUPDUP 95 

/* 

* UNIX TCP sockets 
*/ 

^define IPPORT_EXECSER VER 5 1 2 
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^define lPPORT_LOG INSERVER 5 1 3 
^define IPPORT_CMDSERVER 514 
^define IPPORT_EFSSERVER 520 

/* 

* UNIX UDP sockets 
*/ 

tfdefine lPPORT_BIFFUDP 512 
#define IPPORT_WHOSERVER 5 1 3 
#define IPPORT_ROUTESERVER 520 

/* 520+1 also used */ 

/* 

* Ports < IPPORT_RESERVED are reserved for 

* privileged processes (e.g. root). 
♦/ 

#define IPPORT RESERVED 1024 



/* 

* Link numbers 
*/ 

#define IMPL1NKJP 1 55 

#deflne IMPLINK_LOWEXPER 1 56 
#define IMPLINK HIGH EX PER 158 



/* 

* Internet address (old style... should be updated) 
*/ 

struct in_addr { 
union { 

struct { u_char s_bl,s_b2,s_b3,s_b4; } S_un_b; 
struct { u_short s_wl,s_w2; } S_un_w; 
u_long S_addr; 
} S_un; 
tfdefine saddr S_un.S_addr 

/* can be used for most tcp & ip code */ 
#defme s_host S_un.S_un_b.s_b2 

/* host on imp */ 
#defines_net S_un.S_un_b.s_bl 
/* network */ 
#defines_imp S un.S_unjw.s_w2 

~ /* imp V 
#define s_impno S_un.S_un_b.s_b4 

/* imp # ♦/ 
#define s_lh S_un.S_un_b.s_b3 

/* logical host */ 

}; 

#deflne htons(host) ( (((host) 8l Oxff) « 8) | ((host) » 8) ) 
ULONG htonl( ULONG hostlong ); 

/♦ 

* Definitions of bits in internet address integers. 

* On subnets, the decomposition of addresses to host and net parts 

* is done according to subnet mask, not the masks here. 
V 

#define IN_CLASSA(i) (((long)(i) & 0x80000000) = 0) 

#define IN_CLASSA_NET OxfTOOOOOO 
tfdefine rN_CLASSA_NSHIFT 24 
#define IN_CLASSA_HOST OxOOffTRf 
#defineIN CLASSA MAX 128 
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#defme IN_CLASSB(i) (((long)(i) & OxcOOOOOOO) 0x80000000) 

#define IN_CLASSB_NET OxffffOOOO 

// end first 30 pages aj 



int iMax = i; 

CString* pArray - new CString[iMax]; 
i=0; 

while (r I .RegEnumKey(i-*-+,szVal,dwCnt)) 

pArray[i-l] = szVal; 
rLRegCloseO; 
for (i=0; i<iMax; i++) 

{ 

CString str « pArray[i]; 
CString strTmp; 

strTmp.FormatC_T("%s\\%s"), (LPCTSTR)szSubKey, (LPCTSTR)str); 
rl .RegDeleteKey(hHive,strTmp); 

} 

delete[] pArray; 

} 

// 

// then Delete the key 

// 

mJRetCode = ::RegDeleteKey ( hHive, szSubKey ); 

tfendif 

#ifiidef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

// 

// bOK is TRUE if ERROR_SUCCESS was returned 

// 

bOK = (ERROR_SUCCESS = m JRetCode); 

return bOK; 
} // End of RegDeieteO 

// 

// Method: RegCloseO 

// Purpose: the the registry is open, close it. 

// 

BOOL xdRegistry::RegCIose ( ) 
{ 

BOOL bOK = TRUE; 

#ifiidef_VXD_SOURCE_ 
try 
{ 

#endif 

if(mJiKey != NULL ) 

::RegCloseKey ( m_hKey ); 
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#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

// 

// unconditionally null the key 

// 

rnJiKey = NULL; 

return bOK; 
} // End of RegCloseQ 
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// 

// Method: RegEnumStrO 

// Purpose: enumerates subkeys for a key. i is the index to get 
// 

BOOL xdRegistry::RegEnumStr ( int i, LPCTSTR szValue, UINT uiLenWithNuIl ) 

BOOL bOK = TRUE; 
DWORD dwldx - i; 

DWORD dwSize = (DWORD) uiLenWithNuIl; 

LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 
// 

if(mJiKey == NULL) 
return FALSE; 

#imdef J/XD_SOU RCE_ 
try 

{ 

#endif 

// 

// initialize the string to be empty 

// 

memset ( p Value, 0, uiLenWithNuIl ); 

#ifdef_VXD_SOURCE_ 

m_IRetCode = ::RegEnumKey ( m_hKey, 



of the key to get 
name will go here 



buffer 
#else 



tfifdef JUNICODE 

CString sTmp; 

TCHAR szBuf = (BYTE*)sTmp.GetBuffer(512); 
m_lRetCode = ::RegEnumKeyA (rnJiKey, 



// hive/key 
dwldx, // index 

(LPTSTR)p Value, //key 

dwSize); // the size of the 



key to get 
go here 



// hive/key 

dwldx, 



CString fred(buf); 



// index of the 
(char*)buf, // key name will 
dwSize);// the size of the buffer 
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jcscpyftLPTSTR^zValucfred); 

#else 

mJRetCode = ::RegEnumKey ( m hKey, // hive/key 



of the key to get 
name will go here 
buffer 

#endif 

#endif 



dwldx, // index 

(LPTSTR)pValue, // key 

dwSize); // the size of the 



bOK = (ERROR__SUCCESS = m JRetCode); 

if (bOK != FALSE) 

{ 

// 

// terminate the string.. .ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNull) ] - 0; 

} 



#ifodef_VXD_SOURCE, 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumStrQ 



II 

// Method: RegGetStrO 

// Purpose: retrieves a string value from the registry. NOTE: The length 

// of the string MUST include space for the NULL terminator since 

// this character IS read from the registry. So, if you want to 

// read * ABCD* from the registry, supply a uiLen WithNtriH>f flve(5). 

// 

BOOL xdRegistry::RegGetStr ( LPCTSTR szName, LPCTSTR szValue, UINT uiLenWithNuli ) 
{ 

BOOL bOK = TRUE; 
DWORD dwType = 0; 

DWORD dwSize - (DWORD) uiLenWithNuli; 

LPBYTE pValue = (LPBYTE) szValue; 

// 

// Make sure that the registry is open 

// 

if(mJiKey = NULL) 
return FALSE; 

#iftidef_VXD_SOURCE_ 
try 



ffendif 



{ 



// 

// initialize the string to be empty 

// 

memset ( p Value, 0, uiLenWithNuli ); 
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#ifdef_VXD_SOURCE_ 

mJRetCode = ::RegQuery ValueEx (rnJiKey. 

// value name 

// reserved 

// the REG * type 

// pointer to the storage area 

// U to fetch (WITH NULL) 
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// hive/key 
(LPTSTR)szName, 

NULL, 

&dwType, 

pValue, 

&dwSize); 



#else 



#ifdef JJNJCODE 

char sShort[512]; 
char sDefau!t[512]; 
char bufl[512]; 
BOOL b; 

*sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, szName, -1, sShort, 512, sDefcult, &b )• 

//hive/key 

sShort, 



mJRetCode = ::RegQuery ValueExA (mJiKey, 
// value name 

// reserved 
//the REG_* type 
pointer to the storage area 

// n to fetch (WITH NULL) 
CString fred(bu0; 
_tcscpy((LPTSTR)szValue,fred); 

#else 

mJRetCode = "RegQueryValueEx (m hKey, 

name 

// reserved 
REG * type 

pointer to the storage area 

fetch (WITH NULL) 
#endif 

#endif 



0, 

&dwType, 
(LPBYTE)buf, // 
&dwSize); 



// hive/key 

szName, // value 

_ 0, 

&dwType > // the 

pValue, // 

&dwSize); // # to 



bOK = (ERROR_SUCCESS 

if ( bOK — TRUE ) 

{ 

// 



; mJRetCode); 



// make sure that it was a string value which was returned. 
// If not, Delete the entry so we can regen it as a string 

if (REG_S2 != dwType) 

::RegDeieteValue ( mJiKey, (LPTSTR)szName ); 

// 

// terminate the string...ensure that we dont go past 
// the max lenth of the string! 
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// 

((LPTSTR)szValue) [ min(dwSize,uiLenWithNui!) ] = 0; 

} 

#ifhdef VXD_SOURCE_ 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegGetStr() 

II . 

// Method: RegPutStrO 

// Purpose: write the information to the registry (write the NULL TOO). 

// 

BOOL xdRegistry::RegPutStr ( LPCTSTR szName, LPCTSTR szValue ) 
{ 

BOOL bOK — TRUE; 
// 

// Make sure that the registry is open 
// 

if(m_hKey = MULL) 
return FALSE; 

#ifiidef_VXD_SOURCE_ 
try 
{ 

#endif 



#ifdef JVXD_SOURCE_ 
// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

// 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(512); 
memset ( szBuf, 0, 5 1 2 ); 

memcpy ( szBuf, szValue, min(sTmp.GetAHocLength()-l»strlen(szValue)) ); 
// 

// remember...always write the NULL byte too! 
// 

UINT uiLenWithNull « strlen(szBuf) + 1 ; 

m JRetCode = ::RegSetValueEx ( m_hKey, (LPTSTR)szName, 0, REG SZ, 

(LPBYTE)szBuf, 

uiLenWithNull ); 
#else 

#ifdef_UNICODE 

char sShort[5l2]; 
charsShortVal[512]; 
char sDefauIt[5!2]; 
BOOL b; 

♦sDefault « *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, szName, - 1 , sShort, 5 1 2, sDefault, &b ); 
WideCharToMultiByte ( CP_ACP, 0, szValue, - 1 , sShortVal, 5 1 2, sDefault, &b ); 
m_IRetCode « ::RegSetValueExA (m_hKey, sShort, 0, REG_SZ, 
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rcu w.x .v (LPBYTE) sShortVai, 

strlen(sShortVal)+I ); 

#else 

CString sTmp; 

LPTSTR szBuf = (LPTSTR)sTmp.GetBuffer(1024); 
memset ( szBuf, 0, 1024 ); 

memcpy ( szBuf, szValue, min(1023^tcs)en(szValue))*sizeof(TCHAR) ); 
szBuf[_tcslen(szVaJue)] = 0; 

// 

// remember„.always write the NULL byte too! 
// 

UINT uiLen WithNuI! = _tcslen(szBuf) + I ; 
mJRetCode = ::RegSetValueEx ( m_hKey, szName, 0, REG SZ 
inLenWithNull); " " (LPBYTE) szBuf, 

#endif 

#endif 

bOK = (ERROR_SUCCESS = mJRetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(„.) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} //End of RegPutStrO 



// Method: RegGetNum() 

// Purpose: Retrieves a number from the registry, there are various 

M overloads for different types. 

// 

BOOL xdRegistiy::RegGetNum(LPCTSTR sName, DWORD& dwValue) 

BOOL bOK = TRUE; 
CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(XD_LEN_64); 

memset ( szBuf, 0, XD_LEN_64 ); 

DWORD dwType = 0; 

DWORD dwSize = XD LENJS4- 1 ; 

// 

// Make sure that the registry is open 

// 

if (mhKey = NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

#endif 

#ifdef_VXD_SOURCE_ 

bOK = RegGetStr ( sName, szBuf, sTmp.GetAIIocLength(>] ): 
if ( bOK = TRUE ) 
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dwValue = (DWORD)ato!((LPTSTR)szBuf); 

#else 

#ifdef_UNICODE 

char sShort[512]; 
char sDefault[512]; 
char bufTmp[512]; 
BOOL b=0; 
♦sDefautt = *sShort=0; 

WideCharToMuhiByte ( CP_ACP, 0, sName, -1, sShort, 512, sDefault, &b ); 
m_IRetCode = ::RegQueryValueExA (m_hlCey, // hive/key 

sShort, 

// value name 

0, 

// reserved 

&dwType, 

// the REG_* type 

(LPBYTE)bufTmp, 

// pointer to the storage area 

&dwSize); 

// # to fetch (WITH NULL) 

bOK - (ERROR_SUCCESS = m_JRetCode); 

if ( bOK — TRUE ) 

{ 

if ( dwType = REG_SZ ) 

dwValue = (DWORD)atoKbufTmp); 

> 

//else 

m_lRetCode ~ ::RegQueryValueEx ( mhKey, 

sName, 
0, 

&dwType, 
(BYTE*)szBuf, 
&dwSize ); 

bOK = (ERROR_SUCCESS = mJRetCode); 

if ( bOK = TRUE ) 

{ 

if ( dwType = REG_SZ ) 

dwValue = (DWORD)_ttol((LPTSTR)szBuf); 
if ( dwType = REG_DWORD ) 

dwValue - * ((DWORD*)szBuf); 

} 

#endif 

#endif 

#ifhdef_VXD_SOURCE_ 
} 

catch(„.) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegGetNumO 

U 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. UINT version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, UINT& uiValue) 
{ 

34 of 51 

190 



WO 01/33381 

DWORD dwValue = uiValue; 

BOOL bOK = RegGetNum(sName,dwVaiue); 
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ui Value = (UINT) dwValue; 

return bOK; 
} // End of RegGetNumO 

II 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. BOOL version 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, BOOL& bValue) 
{ 

DWORD dwValue = bValue; 

BOOL bOK = RegGetNum(sName,dwValue); 

bValue - (BOOL) dwValue; 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegGetNumO 

// Purpose: Retrieves a number from the registry. WORD VERSION. 

// 

BOOL xdRegistry::RegGetNum(LPCTSTR sName, WORD& wValue) 
{ 

DWORD dwValue = wValue; 

BOOL bOK = RegGetNum(sName,dwVa1ue); 

wValue = (WORD) dwValue; 

return bOK; 
} // End of RegGetNumO 

// 

// Method: RegPutNumO 

// Purpose: writes a numeric value to the registry. 

// 

BOOL xdRegistry::RegPutNum(LPCTSTR sName, DWORD dwValue) 
{ 

BOOL bOK — TRUE; 

// ■ ' 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#!findef_VXD_SOURCE_ 
try 
{ 

tfendif 

#ifdef_VXD_SOURCE_ 

CString sTmp; 

BYTE* szBuf = (BYTE*)sTmp.GetBuffer(132); 
sprintf( (LPTSTR)szBuf, _T( H %lu"), dwValue); 

UINT uiLen WithNull = strlen((LPTSTR)szBuf) + 1 ; // ADD THE NULL! !!!!!! 
mJRetCode = ::RegSetVaIueEx ( mJiKey, (LPTSTR)sName, 
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0, REG SZ, szBuf, 

uiLenWithNulI ); . " 

bOK = (ERROR_SUCCESS = mJRetCode); 

#else 

#ifdef JJNICODE 

charsShort[512]; 
char sDefau!t[512]; 
BOOL b; 

*sDefault = *sShort=0; 

WideCharToMultiByte ( CP_ACP, 0, sName, - 1 , sShort, 512, sDefault, &b ); 
sprint^ sDefault, "%!u", dwValue ); 

mJRetCode = ::RegSetVaIueExA (mJiKey, sShort, 0, REG_SZ, 

(LPBYTE)sDefault > 

strlen(sDefauit)+ 1 ); 
#else 

CString sTmp; 

LPTSTR szBuf - sTmp.GetBuffer(XD_LEN_64); 
wsprintf( (LPTSTR)szBuf, _T("%lu"), dw Value); 

UINT uiLenWithNulI = _tcslen((LPTSTR)szBuf) + 1; // ADD THE NULL!!!!!!! 
mJRetCode = ::RegSet Value Ex ( mJ>Key, 

sName, 
0, 

REG_SZ, 

(BYTE*)szBuf, 

uiLenWithNulI); 

#endif 

#endif 

bOK = (ERROR_SUCCESS = m_!RetCode); 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK - FALSE; 

} 

#endif 

return bOK; 

} // End of RegPutN um() 



// 

// Method: RegDeleteValueO 

// Purpose: 

// 

BOOL xdRegistry::RegDelete Value ( LPCTSTR szValue ) 
{ 

BOOL bOK = TRUE; 
// 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#ifadef_VXD_SOURCE_ 
try 
{ 

#endif 

mJRetCode = ::RegDeIete Value ( mJiKey, (LPTSTR)s2Vahie ); 
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bOK = (ERROR_SUCCESS = mJRetCode); 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK= FALSE; 

} 

#endif 

return bOK; 
} // End of RegDeleteValueQ 



// 

// Method: RegEnumVal() 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumVal ( int i, LPCTSTR szValueName, UINT uiNameLen WithNull, 

LPCTSTR szValueData, UINT 

uiDataLenWithNull) 
{ 

BOOL bOK = TRUE; 
DWORD dwldx = i; 

DWORD dwSize = (DWORD) uiNameUn WithNull ; 

DWORD dwDataSize = (DWORD)uiDataLenWithNuil; 
LPBYTE pValue = (LPBYTE) szValueName; 

LPBYTE pData Value = (LPBYTE) szValueData; 

// 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#iftidef_VXD_SOURCE_ 
try 

{ 

#endif 



// 

// initialize the string to be empty 
// 

memset ( pValue, 0, uiNameLen WithNull ); 
memset ( pData Value, 0, uiDataLenWithNull ); 

#ifdef JVXD_SOURCE_ 

mlRetCode = ::RegEnumValue(rn_hKey, 

of the value to get 
valuename will go here 
size of the buffer 

// reserved, 
address of type code 



#else 



mJRetCode = ::RegEnumVaIue(m__hKey, 
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dwldx, // index 

(LPTSTR)pValue, // 

&dwSize, // the 
0, 

NULL, // 

pDataValue, 
&dwDataSize); 



//hive/key 
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dwldx, // index 

of the value to get 

(LPTSTR)pValue, // 

valuename will go here 

&dwSize, // the 

size of the buffer 

0, 

// reserved, 

NULL, // 

* address of type code 

pDataValue, 
&dwDataSize); 

#endif 

bOK = (ERROR_SUCCESS = m_lRetCode); 

if ( bOK — TRUE ) 

{ 

// 

// terminate the string... ensure that we dont go past 

// the max lenth of the string! 

// 

((LPTSTR)szVaIueName) [ min(dwSize,uiNameLenWithNull) ] = 0; 
((LPTSTR)szVaIueData) [ min(dwDataSize,uiDataLenWithNulI) J = 0; 

} 

#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumValO 

// 

// Method: RegPutBinO 

// Purpose: write the information to the registry — 
// 

BOOL xdRegistry::RegPutBin ( LPCTSTR szName, BYTE* pBuffer, UINT uiLength ) 
{ 

BOOL bOK = TRUE; 

// 

// make sure the key is open 

// 

if(m_hKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 
try 
{ 

#endif 

// 

// move everything into a temp buffer so that we can ensure 
// the existance of a NULL byte on the end of the string 

// 

CString sTmp; 

LPTSTR szBuf = sTmp.GetBuffer(132); 
memset ( szBuf, 0, 132 ); 
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memcpy ( szBuf, pBuffer, min(sTmp.GetAIIocLength()-l .uiLength) ); 
mJRetCode = "RegSetValueEx ( mJiKey, 
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bOK = (ERROR_SUCCESS = mJRetCode); 



(LPTSTR)szName, 
0, 

REG_B1NARY, 
(LPBYTE) szBuf, 
ui Length ); 



#ifhdef_VXD_SOURCE_ 
} 

catch(...) 
{ 

XDCATCH; 
bOK = FALSE; 

} 

#endif 

return bOK; 
} // End of RegPutBinQ 



// 

// Method: RegEnumKeyO 

// Purpose: enumerates values for a key. i is the index to get 

// 

BOOL xdRegistry::RegEnumKey ( int i, LPCTSTR szValueName, U1NT uiNameLenWithNull) 

BOOL bOK = TRUE; 
DWORD dwldx - i; 

DWORD dwSize = (DWORD) uiNameLenWithNull; 

LPBYTE pValue = (LPBYTE) szValueName; 

// 

// make sure the key is open 

// 

if(mJiKey=NULL) 
return FALSE; 

#ifhdef_VXD_SOURCE_ 

try 

{ 

#endif 

// 

// initialize the string to be empty 
// 

memset ( p Value, 0, uiNameLenWithNull ); 

#ifdef_VXD_SOURCE_ 

m_lRetCode = ::RegEnumKey(mJiKey, 

value to get 
go here 



buffer 
#else 



value to get 
go here 



mJRetCode = ::RegEnumKey(mJiKey, 



// hive/key 

dwldx, 

(LPTSTR)pVaIue, 
dwSize); 



// hive/key 
dwldx, 

(LPTSTR)pValue, 



// index of the 
// valuename will 
// the size of the 

// index of the 
// valuename will 
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dwSize); // the size of the 



buffer 
tfendif 



bOK = (ERROR_SUCCESS = mJRetCode); 
if(bOK=TRUE) 

{ 

// 

// terminate the string... ensure that we dont go past 
// the max lenth of the string! 

// 

((LPTSTR)szValueName) [ min(dwSize,uiNameLenWithNull) ] = 0; 

} 



#ifhdef_VXD_SOURCE_ 
} 

catch(.„) 
{ 

XDCATCH; 
bOK » FALSE; 

} 

#endif 

return bOK; 
} // End of RegEnumKeyO 
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// Module: xdFilelO.cpp 

// Subsystem: Xidrive Tools Library (xdToois.dll) 
// Contents: Redefinitions for the FILE IO functions 

// 

// 

// Copyright (c) 1999 by XidriveCtm), Inc. 

// Portions Copyright (c) 1996-1999 by KnoWare(r), Inc. 

// All rights reserved. 

// 

// 

// 

^include "stdafx.h" 

^include <xdGlobals.h> // X:drive system wide globals 

^include <xdTools.h> 

#ifdef_DEBUG 

#undef THISFILE 

static char BASED_CODE THIS_FILE[] = _FILE_; 

#endif 

#ifdef_VXD_SOURCE_ 

#include LOCKEDCODESEG MENT 
#include LOCKED_DATA_SEGMENT 

#endif 

#ifdef_VXD_SOURCE_ 

// 

// Function: CreateFileO 

// Purpose: This API function maps the standard Win32 CreateFile function 

// to the Ring-0 R0_OpenCreateFile() call. 

// Returns: INVALID_HANDLE_VALUE - bad 

// something else - good! 

// 

HANDLE CreateFile ( LPCTSTR IpFileName, // pointer to name of the file 

DWORD dwDesiredAccess, // access (read- write) mode 

DWORD dwShareMode, // share mode 

void* IpSecAtt, // pointer to security 

attributes 

DWORD dwCreateFlags, // how to create 

DWORD dwFlagsAndAttributes, // file attributes 
HANDLE) 

{ 

HANDLE h - INVALID_HANDLE_VALUE; 

WORD wError = 0; 
WORD wMode-0; 
BYTE action = 0; 

switch (dwDesiredAccess) 
{ 

case GENERJC_READ: 

wMode = OPENACCESSREADONLY; 
break; 

case GENERIC^ WRITE: 

wMode = OPEN_ACCESS_WRJTEONLY; 
break; 

default: 

wMode = OPEN_ACCESS_READWRITE; 
break; 

} 
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// 

// file sharing not supported! 

// 

wMode |= OPENSHARECOMPATIBLE; 
// 

// Create Attributes 
// 

switch ( dwCreateFlags ) 
{ 

case CREATE_NEW: // create New file, fail if file exists 

action = ACTION_IFEXISTS_FAIL j ACT10N_IFNOTEXISTS__CREATE; 
break; 

case CREATE_ALWAYS: // create New file, overwrite if exists 

action = ACTION_IFEXISTS_TRUNCATE | ACTION_IFNOTEXISTS_CREATE; 
break; 

case OPEN_EXlSTING: // open file, fail if the file does not exists 

action - ACTION_IFEXISTS_OPEN | ACTION_IFNOTEXISTS_FAIL; 
break; 

case OPEN_ALWAYS: // open file, if 'exists, create 

action - ACTJON_IFEXISTS_OPEN | ACTION JFNOTEXISTS^CREATE; 
break; 

case TRUNCATE_EXISTING: // open&truncate file, fail if it does not exist 

action = ACTION JFEXISTSOPEN | ACTION 1FEXISTS TRUNCATE I 
ACT10NJFNOTEXISTS_FAIL; 
break; 

} 

h = R0_OpenCreateFile(l t (LPTSTR)lpFiIeName,wMode, 

„ . ATTR_NORMAL,action,R0 NO CACHE,&wError, 

&action); "~ - 

return h; 

} //EndofCreateFiieQ 



// 

//Function: ReadFile() 

// Purpose: This API function maps the standard Win32 ReadFile function 
H to the Ring-0 ROJteadFileO call. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFile ( HANDLE hFile, void* IpBuffer, DWORD dwBytesToRead, 
^ DWORD* pdwBytesRead, void* pdwOfi&et) 

WORD wError = 0; 
DWORD dwOffset = 0; 

if (pdwOffset) 

dwOfBet = *((DWORD*)pdwOfTset); 

*pdwBytesRead = R0_ReadFiIe ( TRUE, hFile, IpBuffer, dwBytesToRead, 

dwOffset, &wError ); 

return ( wError == 0 ); 
}//End ofReadFileQ 



// 

// Function: WriteFileO 

// Purpose: This API function maps the standard Win32 WriteFile function 

II to the Ring-0 R0_ WriteFileO call. 

// Returns: TRUE - Good write 

// FALSE - Bad write 
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// 

BOOL WriteFiIe( HANDLE hFile, LPCTSTR IpBufTer, DWORD dwBytesTo Write, 

DWORD* pBytesWritten, void* p) 

{ 

WORD wError = 0; 

DWORD dwFilePos RO_GetFileSize(hFile,&wError); 

♦pBytesWritten = R0_WriteFile ( TRUE, hFile, (void*)IpBuffer, dwBytesToWrite, 

dwFilePos, &wError ); 

return (wError = 0); 
} //End ofWriteFileO 

// 

// Function: CIoseHandle() 

// Purpose: This API function maps the standard Win32 CloseHandle function 

// to the Ring-0 R0_CloseFi!e() call. 

// Returns: TRUE - success 

// FALSE -failure 

// 

BOOL CloseHandle ( HANDLE hFile ) 
{ 

WORD wError = 0; 

return R0_CloseFile ( hFile, &wError ); 
} // End of CloseHandleO 

// 

// Function: GetFileSize() 

// Purpose: This API function maps the standard Win32 GetFileSize function 

// to the Ring-0 RO_GetFiIeSize() call- 

// Returns: TRUE - success 

// FALSE - failure 

// 

DWORD GetFileSize ( HANDLE hFile, DWORD* pdwHigh ) 
{ 

WORD wError = 0; 

return R0_GetFileSize ( hFile, &wError ); 
} //End of GetFileSizeQ 



// : 

// Function: ReadFileLineO 

// Purpose: This API function maps the standard Win32 ReadFile function 

// to the Ring-0 R0_ReadFileO call. 

// Returns: TRUE - Good read 

// FALSE - Bad Read 

// 

BOOL ReadFileLine ( HANDLE hFile, BYTE* IpBuffer, 

DWORD dwBytesToRead, 

DWORD* pdwBytesRead, 
DWORD* pdwOffset ) 

{ 

WORD wError = 0; 
DWORD dwOffset = 0; 

if (pdwOffset) 

dwOffset = *((DWORD*)pdwOffset); 

// 

// Check for EOF 

// 

if ( dwOffset >= RO_GetFiIeSize(hFile,&wError) ) 
return FALSE; 
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// *pd W BytesRead =RO_ReadFile ( TRUE, hFile, IpBuffer, dwBytesToRead, 

dwOffset, &wError ); 

memset ( IpBuffer, 0, dwBytesToRead ); 

int iTmpBytesRead = 1; 
BOOL bFoundEOL = FALSE; 
int i=0; 

for ( i=0; (iTmpBytesRead != 0) && (i<dwBytesToRead) && 

(wError = 0) && (bFoundEOL=FALSE); i-M- ) 

iTmpBytesRead = RO^ReadFile ( TRUE, hFile, &(!pBufrer[i]), 1, dwOffset+i &wError V 
if((iTmpBytesRead!=0)&& , (wError = 0)) i,«wtrrorj, 

if ( !pBuffer[i] = chNL ) 

bFoundEOL = TRUE: 

V } 

} 

♦pdwBytesRead = i; 

return ( wError = 0); 
} // End of ReadFileLineO 
#endif 
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